bin/rt-drop-tables

   1 #!/usr/bin/perl
   2
   3 my @tables = qw(
   4 Attachments
   5 Queues
   6 Links
   7 Principals
   8 Groups
   9 ScripConditions
  10 Transactions
  11 Scrips
  12 ACL
  13 GroupMembers
  14 CachedGroupMembers
  15 Users
  16 Tickets
  17 ScripActions
  18 Templates
  19 TicketCustomFieldValues
  20 CustomFields
  21 CustomFieldValues
  22 sessions
  23 );
  24
  25 foreach my $table ( @tables ) {
  26   print "drop table $table;\n";
  27   print "drop sequence ${table}_id_seq;\n";
  28 }
  29