bin/sequences.reset

   1 #!/usr/bin/perl
   2
   3 use FS::UID qw(adminsuidsetup);
   4 use FS::Record qw(dbdef dbh);
   5
   6 my $user = shift;
   7 adminsuidsetup $user or die;
   8
   9 foreach my $table ( dbdef->tables ) {
  10   my $primary_key = dbdef->table($table)->primary_key;
  11   next unless $primary_key;
  12   #my $local = dbdef->table($table)->column($primary_key)->local;
  13   ##next unless $default =~ /nextval/;
  14   #print "$local\n";
  15
  16   my $statement = "select setval('${table}_${primary_key}_seq', ( select max($primary_key) from $table ) )";
  17
  18   print "$statement;\n";
  19   next;
  20
  21   my $sth = dbh->prepare($statement) or do {
  22     warn dbh->errstr. " preparing $statement\n";
  23     next;
  24   };
  25   $sth->execute or do {
  26     warn dbh->errstr. " executing $statement\n";
  27     dbh->commit;
  28     next;
  29   }
  30
  31 }
  32