#!/usr/bin/perl $frag = "/www/cgi-bin/formmail.txt"; $domain = $ENV{'SERVER_NAME'}; $root_dir = $ENV{'SERVER_NAME'}; $root_dir =~ s/\.com|\.net|\.org//i; $root_dir =~ s/www.//i; $docroot = $root_dir; $root_dir = "/www/htdocs/".$root_dir; $uid = (stat($root_dir))[4]; $owner = (getpwuid($uid))[0]; $header = "Planetmind Gallery Maker Script

"; # Parse Form Contents read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); 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; } # branch... if (!$FORM{'submit'}) { &return_form; exit; } $install_dir = $FORM{'location'}; $ex = mkdir("$root_dir/$install_dir",0775); if (!$ex) { $result = "Error: $!. Make sure your folder name is valid.

\n"; &return_form; exit; } $ex = `mkdir -m777 $root_dir/$install_dir/thumb`; $ex = `cp /www/tools/gallery/index.php $root_dir/$install_dir`; $ex = `cp -R /www/tools/gallery/buttons/ $root_dir/$install_dir`; $ex = `cp /www/tools/gallery/slideshow.php /www/tools/gallery/open.php /www/tools/gallery/clicker.php $root_dir/$install_dir`; $ex = `cp /www/tools/gallery/upload.cgi $root_dir/cgi-bin`; $ex = `chmod 755 $root_dir/cgi-bin/upload.cgi`; $ex = `cp /www/tools/gallery/gallery_manager.cgi $root_dir/cgi-bin`; $ex = `chmod 755 $root_dir/cgi-bin/gallery_manager.cgi`; $ex = `cp -R /www/tools/gallery/buttons $root_dir/$install_dir`; open(FILE, ">$root_dir/$install_dir/header.inc") || print "no header\n"; print FILE $FORM{'header'}; close(FILE); open(FILE, ">$root_dir/$install_dir/footer.inc") || print "no footer\n"; print FILE $FORM{'footer'}; close(FILE); # return response print "Content-type: text/html\n\n"; print $header; print "You new gallery has been installed. The URL of your gallery is:

\n"; print "http://".$ENV{'SERVER_NAME'}."/".$docroot."/$install_dir/

\n"; print qq! Any JPEG (.jpg) image placed in that directory will be indexed and thumbnailed automatically.

A few rules:

To add captions, upload and delete images, use the Gallery Manager tool. (It's also available from your Admin Page.)

!; print ""; exit; sub return_form { print "Content-type: text/html\n\n"; print qq! Planetmind Form Processing Script

$result

Planetmind Gallery Maker Script Installer

Use this form to create your own image gallery.

Install Directory: http://www.$domain/

Paste in your site header (optional - you can use what's there):

Paste in your site footer (optional):





!; }