Support AuthToken serialization

Author: cbrandtbuffalo

lib/RT.pm

@@ -624,6 +624,8 @@ sub InitClasses {
     require RT::DashboardSubscriptions;
     require RT::ObjectContent;
     require RT::ObjectContents;
+    require RT::AuthToken;
+    require RT::AuthTokens;
 
     _BuildTableAttributes();
 
@@ -691,6 +693,7 @@ sub _BuildTableAttributes {
         RT::DashboardSubscription
         RT::ObjectContent
         RT::Configuration
+        RT::AuthToken
     );
 }
 

lib/RT/Migrate/Serializer.pm

@@ -237,6 +237,9 @@ sub PushAll {
     # Shorteners
     $self->PushCollections(qw(Shorteners));
 
+    # AuthTokens
+    $self->PushCollections(qw(AuthTokens));
+
     $self->PushCollections(qw(Links));
     $self->PushCollections(qw(Transactions Attachments));
 

lib/RT/User.pm

@@ -3118,6 +3118,10 @@ sub FindDependencies {
     );
     $deps->Add( in => $objs );
 
+    $objs = RT::AuthTokens->new( $self->CurrentUser );
+    $objs->LimitOwner( VALUE => $self->Id );
+    $deps->Add( in => $objs );
+
     # XXX: This ignores the myriad of "in" references from the Creator
     # and LastUpdatedBy columns.
 }

sbin/rt-serializer.in

@@ -254,7 +254,7 @@ sub estimate {
     # Expected types we'll serialize
     my @types = map {"RT::$_"} qw/
         Queue Ticket Transaction Attachment Link
-        User  Group  GroupMember Attribute
+        User  Group  GroupMember Attribute AuthToken
         CustomField CustomFieldValue
         ObjectCustomField ObjectCustomFieldValue
         Catalog Asset SavedSearch Dashboard DashboardSubscription ObjectContent