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";