#!/usr/bin/perl

# Name of database
our $db     = "prometeus";
# Name of MySQL user
our $dbUser = "prometeus";
# User Password
our $dbPass = "qwerty";
# Host of MySQL
our $dbHost = "localhost";
# just $dsn, no reason to change value
our $dsn    = "DBI:mysql:$db:$dbHost";

# where i can get sources.list with mirrors
our $aptsource = "/etc/apt/sources.list";
# where i can get rpm GROUPS (must be sorted in alphabeta order)
our $GROUPS = "/usr/lib/rpm/GROUPS";

# Where is all rpms
our $files_root = "/home/crux/Sisyphus";
our @rpm_root = ($files_root . "/i586/RPMS.base", $files_root . "/noarch/RPMS.base");
our @srpm_root = ($files_root . "/SRPMS.base");

# Delete duplicate rpms
sub deleteDup {
	my $list = shift;
	my ($oldRpm,$name,@newlist);

	foreach my $rpm (@{$list}) {
		($name) = ( $rpm =~ /^(.+)-.+?-.+\.\w+\.rpm$/ );
		if ($name eq $oldRpm){
			$newlist[$#newlist] = $rpm;
			print "Old version of $name was found\n";
		} else {
			push @newlist,$rpm;
		}
		$oldRpm = $name;
	}

	return @newlist;
}


1;
