#!/usr/bin/perl


print "Content-type: text/plain\n\n";

print `pwd`;
$base = `pwd`;
chomp($base);

open(GBUNI, "gbsmall.txt") or print "oops";
while (chomp($line = <GBUNI>)) {
    ($gbfile, $unifile) = split(/\t/, $line);
    $unifile =~ s/\s*$//;
    $gbfile =~ s/\s*$//;

    $unifile = "$base/ugif/$unifile.gif";

    $gbtemp = sprintf("%2x%2x", (hex(substr($gbfile, 0, 2)) + 0x80), (hex(substr($gbfile, 2, 2)) + 0x80));
    $gbfile = uc($gbtemp);

    if (-e $unifile) {
	print "Found $unifile\n";
    } else {
	print "Can't find $unifile\n";
    }

    system("ln -s $unifile $base/gbgif/$gbfile.gif");
}