#!/usr/bin/perl


# Include credentials
use vars qw($db $dbUser $dbPass $dbHost);
require 'dbinfo';

# 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 = "/home/liks/scripts/GROUPS";

our $tmpdir = "/home/liks/tmp";

# Where is all repos and rpms
our $repo_base = "/var/ftp/pub/Linux/ALT";

our %repo_root = ( "Sisyphus" => $repo_base."/Sisyphus/files",
		   "Daedalus" => $repo_base."/Daedalus",
		   "Branch5" => $repo_base."/5.0/branch/files",
		   "Branch41" => $repo_base."/4.1/branch/files",
		   "UP41" => $repo_base."/updates/4.1",
		   "BP41" => $repo_base."/backports/4.1",
		   "Branch4" => $repo_base."/4.0/branch/files",
		   "UP4" => $repo_base."/updates/4.0",
		   "BP4" => $repo_base."/backports/4.0",
		   "Branch3" => $repo_base."/3.0/files",
		   "UP3" => $repo_base."/updates/3.0",
		   "BP3" => $repo_base."/backports/3.0",
		   "obsolete" => $repo_base."/Sisyphus/obsolete",
		   "orphaned" => $repo_base."/Sisyphus/orphaned"
		  );

our @rpm_root = ("/i386/RPMS", "/i586/RPMS", "/noarch/RPMS", "/i586/RPMS.daedalus", "/i586/RPMS.updates", 
		 "/i586/RPMS.backports", "/x86_64/RPMS", "/x86_64/RPMS.updates" );
our @srpm_root = ("/SRPMS","/SRPMS.daedalus", "/SRPMS.updates", "/SRPMS.backports");
				    
# Delete duplicate rpms
sub deleteDup {
	my $list = shift;
	my ($name,@newlist);
	my $oldRpm = "";

	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;
