#!/usr/bin/perl $domain = $ENV{'SERVER_NAME'}; $root_dir = $ENV{'SERVER_NAME'}; $root_dir =~ s/\.com|\.net|\.org//i; $root_dir =~ s/www.//i; $docroot = $root_dir; $path="/PHOTOS/family/gallery"; $root_dir = "/home/chuck/".$root_dir."$path"; $header = "Planetmind Gallery Manager

"; # Parse Form Contents if ($ENV{'REQUEST_METHOD'} eq 'GET') { # Split the name-value pairs @pairs = split(/&/, $ENV{'QUERY_STRING'}); } elsif ($ENV{'REQUEST_METHOD'} eq 'POST') { # Get the input read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); # Split the name-value pairs @pairs = split(/&/, $buffer); } else { &error('request_method'); } foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); # Un-Webify plus signs and %-encoding $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s///g; $FORM{$name} = $value; } if ($FORM{'currdir'}) { $currdir = "$FORM{'currdir'}"; } else { $currdir = ""; } # branch... if ($FORM{'submit'}) { $captionfile = $root_dir."/$currdir/".$FORM{'imagename'}.".txt"; open(FILE, ">$captionfile") || print "no $captionfile\n"; print FILE $FORM{'caption'}; close(FILE); $result = "Caption added to $FORM{'imagename'}"; } if ($FORM{'delete'}) { $imagefile = $root_dir."/$currdir/".$FORM{'imagename'}; $captionfile = $root_dir."/$currdir/".$FORM{'imagename'}.".txt"; $thumbfile = $root_dir."/gallery/thumb/tn_".$FORM{'imagename'}; $ex = `rm -f $imagefile`; if (-e $captionfile) { $ex = `rm -f $captionfile`; } if (-e $thumbfile) { $ex = `rm -f $thumbfile`; } $result = "$FORM{'imagename'}, associated captions, and thumbnails have been deleted."; } print "Content-type: text/html\n\n"; print $header; print "

Gallery Image Manager

\n"; if ($result) { print "


$result

\n"; } print "

[View Gallery] [Add Image]
\n"; print "Current Folder: $currdir
\n"; $dirname="$root_dir/$currdir"; opendir(DIR, $dirname) or die "can't open $dirname: $!"; while (defined($file = readdir(DIR))) { next if($file =~ m/^\./); next if($file eq ""); if(-d "$dirname/$file") { push (@filenames, $file); } } closedir(DIR); print "[TOP] "; foreach $dir(@filenames) { print "[$currdir/$dir] "; } print "\n !; } print "
Image\nCaption\n"; @dirlist = `ls -1 $root_dir/$currdir|grep -i jpg`; foreach $pic(@dirlist) { $cap = ''; chop $pic; $pic =~ s/$root_dir//g; $pic =~ s/gallery//g; $pic =~ s/\///g; $capfile = "$root_dir/$currdir/$pic.txt"; if (-e $capfile) { $cap = `cat '$capfile'`; } print qq!

$pic
\n"; print "

[View Gallery]

\n"; # form for adding print qq!

Add an Image

NOTE: After uploading, you will be shown your gallery. Use your BACK button to return here, then hit "Reload" to see the new image(s).
File 1:
File 2:
File 3:
File 4:
 

!; print ""; exit;