Компьютерный клуб "Виртуальный мир"

#!/usr/bin/perl ################################################################################ ################################################################################ ## _____ _____ _____ _____ _____ _____ _____ ## ## |_ _| / _ \ / _ \ / ___| / _ \ / _ \ | _ \ ## ## | | | | | | | | | | | | | | | | | | | | | | | | ## ## | | | | | | | | | | | | _ | | | | | | | | | | | | ## ## | | | |_| | | |_| | | |_| | | |_| | | |_| | | |_| | ## ## |_| \_____/ \_____/ \_____/ \_____/ \_____/ |_____/ ## ## _____ _____ _____ _____ _ _ ___ _____ _____ ## ## / ___/ / _ \ | ___| |_ _| | | | | / | | _ \ | ____| ## ## | |___ | | | | | |__ | | | | __ | | / /| | | |_| | | |__ ## ## \___ \ | | | | | __| | | | | / \ | | / /_| | | _ / | __| ## ## ___| | | |_| | | | | | | |/ __ \| | / ___ | | | \ \ | |___ ## ## /_____/ \_____/ |_| |_| |___/ \___|/_/ |_| |_| \_\ |_____| ## ## ## ################################################################################ ## Software That's So Good... It's Too Good! ## ################################################################################ ## ## ## Program Name: Image Gallery ## ## Purpose: Displays all images in a folder ## ## Author: Jeffrey Wong ## ## Date: February 12, 2003 ## ## Version: Version 1.2 ## ## () If there are any bugs, you can fill in the report a bug form ## ## avalable at http://www.toogoodsoftware.com ## ## () If you have any suggestions or comments, you can send them to ## ## me at http://www.toogoodsoftware.com ## ## () Hope you enjoy the program! ## ## ## ## ## ################################################################################ ################################################################################ ################################################################################ #Begin configurations # ################################################################################ # Square size (number of rows and columns) $square = 5; # Default is 5 X 5 # Width and Height of each picture on index page $viewPageWidth=100; $viewPageHeight=100; # Width and Height of each picture when viewed magnified $viewPictureWidth=400; $viewPictureHeight=400; # directory of images $directoryOfImages = "/usr/home/www/virtual/gallery/"; #absolute path to images (include trailing slash) NOT URL!!! # url to image directory $imageURL = "http://www.v-world.dn.ua/gallery/"; #include trailing slash # Admin Details $password = "passwordqqq"; #admin password #script url, include ? after gallery.pl $url = "http://www.v-world.dn.ua/cgi-bin/gallery.pl?"; # Header # What Is Displayed Before Pictures sub header { print "Content-type: text/html\n\n"; print < Компьютерный клуб "Виртуальный мир"

	HEADER } # Footer # What Is Displayed After Pictures sub footer { print <

FOOTER } ################################################################################ #Done configurations!!! # #DO NOT EDIT BELOW!!!!! # ################################################################################ $noOfImagesPerPage = $square * $square; # calculate the number of images per page @allPictures = glob $directoryOfImages."*.*"; # get all pictures from directory # get commands of URL if ($ENV{"REQUEST_METHOD"} eq 'GET') { $buffer = $ENV{'QUERY_STRING'}; } else { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } @values = split /&/, $buffer; foreach $pair (@values) { ($command, $value) = split /=/, $pair; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; chomp ($value); $info{$command}=$value; } # end of getting commands from URL # check where to go to # view page if ($command eq "viewpage") { $currentPicture = $noOfImagesPerPage * ($value-1); # determine what page $_ = @allPictures; if ($value > 0 && $currentPicture < ($noOfImagesPerPage * $value) && $currentPicture < $_) { &viewpage; } else {&error;}; } # view a single picture elsif ($command eq "viewpicture") { $_ = @allPictures; if ($value < $_ && $value > -1) { &viewpicture; } else {&error;}; } # login screen elsif ($command eq "action" && $value eq "admin") { &admin; } # admin screen elsif ($command eq "password" && $value eq $password) { &admin2; } # delete picture(s) elsif ($command eq "action" && $value eq "delete") { &delete; } # error page else {&error;}; # display table of pictures sub viewpage { $_ = @allPictures; &header; # generate table dimensions print "\n"; while ($currentPicture < ($noOfImagesPerPage * $value) && $currentPicture < $_) { if ($currentPicture % $noOfImagesPerPage !=0 &&$currentPicture % $square == 0) { print "\n"; } elsif ($currentPicture % $noOfImagesPerPage == 0 || $currentPicture == 0) { print ""; } &getCurrentPictureName; print ""; $currentPicture++; } print "

\n"; open Fd, "${directoryOfImages}desc/$currentPictureName.txt"; my @desc=; close Fd; my $alts=join '
',@desc; $alts=~s/&/&/gs; $alts=~s/"/"/gs; $alts=~s//>/gs; print " $\"$alts\"$ \n"; print "

"; print "
\n"; # generated navigational links print "\n"; print "\n"; # previous page if ($value > 1) { $previous = $value-1; print "\n"; } else { print "\n"; } $_ = @allPictures; $tempNoOfPictures=$_; $totalPages=1; # show total pages while ($tempNoOfPictures > $noOfImagesPerPage) { $tempNoOfPictures-=$noOfImagesPerPage; $totalPages++; } $tempUrl = $url; chop ($tempUrl); # form to jump pages print "\n"; # next page if ($currentPicture < $_) { $nextPage = $previous+2; printf "

Page $value of $totalPages\n
"; print "

\n"; } else { print "Next Page\n"; } &linkback; &footer; } sub viewpicture { &header; # generate table to hold picture print "\n"; $lastSlashInCurrentPicture = rindex($allPictures[$value],"/"); # get last slash in absolute path $currentPictureName= substr($allPictures[$value], $lastSlashInCurrentPicture+1); # remove absolute path print "\n"; open Fd, "${directoryOfImages}desc/$currentPictureName.txt"; my @desc=; close Fd; my $alts=join '
',@desc; $alts=~s/&/&/gs; $alts=~s/"/"/gs; $alts=~s//>/gs; print "\n"; print "

$alts

\n"; # generate navigation links print ""; print "\n"; } else {print "Previous Pic\n";} $temp = $_ -1; # show total number of pictures print "\n"; # next picture if ($nextPic < $_) { print "\n"; print "

\n"; # previous picture $previousPic = $value -1; $_ = @allPictures; # calculate total number of pictures $currentPage = 1; while ($value - ($noOfImagesPerPage * $currentPage) > -1) { $currentPage++; } $nextPic = $value + 1; if ($previousPic >= 0) { print "Previous Pic

Picture $value of $temp
\n"; print "1st picture is 0
\n"; $tempUrl = $url; chop ($tempUrl); print "
\n"; print "Go Back To Page ${currentPage}
\n"; print "

Next Pic\n"; } else {print "

Next Pic\n";} print "

\n"; &linkback; &footer; } # checks the password sub admin { my $tempURL = $url; chop ($tempURL); print "Content-type: text/html\n\n"; print "Image Gallery Admin\n"; print "\n"; print "Image Gallery Admin
\n"; print "\n"; &linkback; } # allows admin to delete and view pictures sub admin2 { my $tempURL = $url; chop ($tempURL); &header; # delete pictures from gallery (permanent deletion) $_ = @allPictures; print "\n"; print "\n"; print "\n"; print "\n"; print "

Delete Images

You have $_ pictures in the gallery

\n"; print "\n"; print "

\n"; &linkback; &footer; } # link back sub linkback{ # PLEASE KEEP THIS LINK TO TOO GOOD SOFTWARE SO THAT OTHER PEOPLE MAY ALSO GET A COPY OF THIS PROGRAM, THANK YOU! #print "Script created by Too Good Software, Image Gallery Version 1.0"; } # deletes a picture sub delete { my $deleteCount = 0; &header; while (($currentPicture, $value)= each %info){ if ($value == -1){ unlink $directoryOfImages.$currentPicture; $deleteCount++; } } print "Deleted: $deleteCount\n
"; print "Go Back To Admin"; &linkback; &footer; } #isolate picture name sub getCurrentPictureName { $lastSlashInCurrentPicture = rindex($allPictures[$currentPicture],"/"); # get last slash in absolute path $currentPictureName= substr($allPictures[$currentPicture], $lastSlashInCurrentPicture+1); # remove absolute path } # shows error sub error { &header; print "$command and $value \n"; print "Error: cannot execute $command with a value of $value\n"; &linkback; &footer; }