Subversion Repositories VORC

#!/usr/bin/perl

use strict;
use cPanelUserConfig;
use RollerCon;
use WebDB;
use DBI;

my $dbh = WebDB::connect ();

$| = 1;
print "Connected to DB...\n";

#my $dupes = $dbh->prepare ("select Aid, Gid, role, RCid from assignment where role like ?");
my $dupes = $dbh->prepare ("select Aid, Gid, role, RCid from assignment where Aid <= ? order by Aid desc");

my $get_timestamp = $dbh->prepare ("select timestamp from log where RCid = ? and (event = ? or event = ?)");
my $set_timestamp = $dbh->prepare ("update assignment set created = timestamp(?) where Aid = ?");

#my $userdupe = $dbh->prepare ("select * from assignment where Gid = ? and RCid = ? and role like ? order by wb_ticket_act desc, cast(substr(role, 5) as UNSIGNED)");

#$dupes->execute ('CLA-%');
$dupes->execute (48627);

print "Fixing Assignment Timestamps";

while (my ($aid, $gid, $role, $rcid) = $dupes->fetchrow_array ()) {
  
  $get_timestamp->execute ($rcid, "Shift Add: ".$gid." -> ".$role, "Shift Override: ".$gid." -> ".$role);  
  my ($timestamp) = $get_timestamp->fetchrow_array ();
  
  $set_timestamp->execute ($timestamp, $aid);
  
  print ".";
}

print " done.\n";