Here is my assignment: 1. Develop a CGI Image Gallery. Script or scripts should provide the ability to create directories to store images in. It should then provide the ability to upload images in png or jpg format only into those directories. Once images are upload.. it should provide a table view of all images in thumbnail scale, and all them to be clicked for full scale view.
Now, I'm on quite the time constraint, have no previous programming knowledge, and pretty much lost in this class. I'm a very good student when it comes to History/Latin/Int'l Business; however, I'm not smart enough to pick up programming. Regardless, I just want to get it over with.
Here's what I have so far (I sent it to the professor...I give up. Hopefully he'll give me some credit).
#!/perl/bin/perl -wT
#upload.pl
use strict;
use CGI ':standard';
print "Content-type: text/html\n\n";
#scripts combined.
form();
my @b = directoryList();
print "Directories";
foreach( @b ){
print "$_ <p>";
}
print @b;
listImages(@b);
if(param('but') eq 'Upload'){
uploadfile();
}
if(param('but') eq 'pictures'){
listImages(@b, param('directory'));
}
sub listImages{
my(@files, $directory) = $_;
my $size = @files;
for(my $i = 0; $i <= $size; $i++){
print qq(
<A HREF="../upload/$directory">
<IMG HEIGHT=150 WIDTH=150 SRC="../upload/$directory/$files[$i]"></A>
);
}
}
sub directoryList{
opendir (UPLOAD, "../upload/");
my @direc = readdir (UPLOAD) ;
closedir(UPLOAD);
return @direc
}
sub uploadfile{
opendir (UPLOAD, "../upload/");
my @array = readdir (UPLOAD) ;
print " Here is a list of my files<br><br> @array";
closedir(UPLOAD);
my $file = param ('upload');
my $info = uploadInfo ($file);
my $type = $info -> {'Content-Type'};
print $type; #images/jpg
if ($file) {
open (UPLOADFILE, "../upload/");
my ($data, $length, $chunk);
while ($chunk = read ($file, $data, 1024)) {
print UPLOADFILE $data;
$length += $chunk;
if ($length > 51200) {
print "That file is way too big; don't you know the limit is only 50k!?";
exit;
}
}
close (UPLOADFILE);
print "<p>You uploaded <b>$file</b> which had a MIME of <b>$type</b>.</p>";
} else {
print "No file was chosen.";
}
}
sub Error {
print "Couldn't open temporary file: $!";
exit;
}
sub form{
print qq(
<html>
<head>
<title>Blah</title>
</head>
<body>
<h1> Please Upload a form...that won't hack into my system.</h1>
<form action="../cgi-bin/upload_attempt.pl"
method="post" enctype="multipart/form-data">
What file are you going to hack into my system with?
<input type="file" name="uploadfile" size="40">
<input type="text" name="directory">
<input type="submit" VALUE="Upload" Name="but">
<input type="submit" VALUE="pictures" Name="but">
</form>
</body>
</html>
);
}
Can anybody help me....I know I have some configuration to do....but don't know how or where.