UBB.Developers Forums Community Development Programming PHP and Server-side Scripting Random Images Script Problem

#!/usr/bin/perl

$photo_path = "D:webgta3_images";
$photo_url = "http://chris.iphq.co.uk/gta3_images";

my(@dirs, $file, $number);
opendir(DIR,"$photo_path");
foreach $file (sort readdir(DIR)) {
	if ($file =~ /.jpg/) {
		push (@dirs, "$file");
	}
}
closedir(DIR);
srand(time ^ $$);
$number = rand(@dirs);
$image = qq!<img src="$photo_url/$dirs[$number]" alt="Random GTA3 Screenshot" border="0" />!;
print "Content-type: text/htmlnn";
print "$image";
exit;

#!/usr/bin/perl -w
use strict;

my $photo_path = "D:/web/gta3_images"; # use forward slash or escape directory seperator => "D:\dir"
my $photo_url  = "http://chris.iphq.co.uk/gta3_images";

my @dirs;

opendir(DIR,"$photo_path");

foreach(sort readdir(DIR)) {
   if (m/.jpg$/i) {
      push @dirs, $_;
   }
}

closedir(DIR);

my $image = $dirs[rand(@dirs)];
   $image = qq!<img src="$photo_url/$image" alt="Random GTA3 Screenshot" border="0" />!;

print "Content-type: text/htmlnn";
print "$image";

__END__;

#
# ScriptAlias: This controls which directories contain server scripts.
# ScriptAliases are essentially the same as Aliases, except that
# documents in the realname directory are treated as applications and
# run by the server when requested rather than as documents sent to the client.
# The same rules about trailing "/" apply to ScriptAlias directives as to
# Alias.
#
ScriptAlias /cgi-bin/ "D:/web/cgi-bin/"
ScriptAlias /webspace/ "D:/web/webspace/"
ScriptAlias /irc/news/ "D:/web/irc/news/"

closedir(DIR);

my $image = $dirs[rand(@dirs)];
#$image = qq!<img src="$photo_url/$image" alt="Random GTA3 Screenshot" border="0" />!;
$image = "$photo_url/$image";

print "Content-type: image/gifnn";
open IMG, "< $image";
binmode IMG;
print while <IMG>;

__END__;

my $header = "Content-Type:image/jpegnCache-Control:no-cachenn";

print $header;

open(IMG,"$dir/your.jpg");

print while <IMG>;

binmode STDOUT;
print $buf while read(IMG, $buf, 16384);