#!/usr/bin/perl

my %IniData = GetIniFileData("/gsw/rep/packages.ini");
my @args = split(/\s/,$ARGV[0]);
my %DebList;

foreach my $deb (@args) {
	foreach my $s (keys %IniData) {
		if ($IniData{$s}{"PackageName"} eq lc(basename($deb))) {
			$DebList{$s} = $deb;
			last;
		}
	}
}

foreach $i (sort {$a <=> $b} keys %DebList) {
	print $DebList{$i}, " ";
}

sub basename($) {
	my $file = shift;
	$file =~ s!^(?:.*/)?(.+?)(?:\.[^.]*)?$!$1!;
	return $file;
}

sub GetIniFileData() {
	my ( $filename ) = @_;
	my $INIFILE;
	my $sect_num;
	my %Data;
	if ( open( INIFILE, "<" . $filename ) != 0 ) {
		while (<INIFILE>) {
			chomp;
			$_ =~ s/:.*//g;
			if (/\[PACKAGE(\d{1,5})\]/) {
				$sect_num = $1;
			}
			if (/(\.*)\=(\.*)/) {
				my $s = "$`";
				$s =~ s/:.*//g;
				my $s1 = "$'";
				$Data{$sect_num}{$s} = $s1;
			}
		}
		close(INIFILE);
	}
	return %Data;
}
