Subversion Repositories VORC

#!/usr/bin/perl

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

my $dbh = WebDB::connect ();

my $dupes = $dbh->prepare ("select distinct Gid, RCid, count(*) as count from assignment where role like ? group by Gid, RCid having count > 1");
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-%');

while (my @row = $dupes->fetchrow_array ()) {
  my ($gid, $rcid) = @row;
  my $counter = 0;
  
  $userdupe->execute ($gid, $rcid, 'CLA-%');
  while (my $dupe = $userdupe->fetchrow_hashref ()) {
    print "Deleting [$dupe->{Aid}, $dupe->{RCid}, $dupe->{role}]\n" if $counter;
    $dbh->do ("delete from assignment where Aid = ?", undef, $dupe->{Aid}) if $counter;
    $counter++;
  }  
}