#!/usr/bin/perl
$|=1;
($name)=split (/\&/,$ENV{'QUERY_STRING'});
$name=~ s/\%20/ /g;
$thename=$name;
if ($name=~ /\.([a-zA-Z]{3})]$/ ) { $type=$1 }


$thename=~ s/^[\s\S]+\/([^\/]+)$/$1/gi;
$thename=substr ($thename,0,40);

if ($name =~ /\.gif$/i) { system ("cp \"$name\" /tmp/gif-$$" ) }
elsif ($name =~ /\.thm$/i) { system ("djpeg  -colors 128 -gif  \"$name\" > /tmp/gif-$$")  }
else
{ 
system ("djpeg  -colors 128 -gif -scale 1/8 \"$name\" > /tmp/gif-$$") 
}
if ($name =~ /\.mov$/i || $name =~ /\.avi$/i || $name =~ /\.thm/i ) { &MOVIE }
if ($name !~ /\.[a-z]{3}$/i ) 
{ 

	 chop($found=`ls -lt $name/*.* | head -10 | grep -i \.jpg | head -1 | awk '{print \$9}'`);
	 if ($found =~ /\.gif$/i) { system ("cp \"$found\" /tmp/gif-$$" ) }
	 else 
	 { 
	 system ("djpeg  -colors 128 -gif -scale 1/8 \"$found\" > /tmp/gif-$$") 
	 }
	 
	 
	 	 &FOLDER ;
	 	 
}
if ($getgif eq "" ) { &IMAGE }
print "Content-type: image/gif\n\n";
system ("echo \"$getgif\" | /usr/bin/fly -q" );



unlink ("/tmp/gif-$$");


sub IMAGE {
$getgif=
"new
size 160,140
fill 0,0,0,0,0
#copy 0,0,-1,-1,-1,-1,/www/ImageProcessor/image_new.gif
copyresized -1,-1,-1,-1,0,0,155,123,/tmp/gif-$$
frect 0,123,160,140,255,255,255
rect 0,0,159,139,0,0,0
rect 1,1,158,138,255,255,255
rect 2,2,157,137,255,255,255
rect 3,3,156,136,255,255,255
rect 4,4,155,135,255,255,255
copy 135,120,-1,-1,-1,-1,/www/ImageProcessor/info.gif
string 0,0,0,6,125,small,$thename
transparent 255,0,0

end
";
}

sub FOLDER {
$getgif=
"new
size 160,140
fill 255,255,255,0,0
copy 0,0,-1,-1,-1,-1,/www/ImageProcessor/folder_new.gif
copyresized -1,-1,-1,-1,37,42,136,116,/tmp/gif-$$
#frect 0,0,160,12,0,0,0
string 255,255,255,2,2,tiny,$thename
transparent 255,0,0

end
";
}

sub MOVIE {
$getgif=
"new
size 160,140
fill 255,255,255,0,0
copy 0,0,-1,-1,-1,-1,/www/ImageProcessor/movie_new.gif
copyresized -1,-1,-1,-1,23,23,138,112,/tmp/gif-$$
copyresized -1,-1,-1,-1,26,116,120,220,/tmp/gif-$$
#frect 0,0,160,12,0,0,0
string 0,0,0,2,2,tiny,$thename
transparent 255,0,0

end
";
}