#!/usr/bin/perl -- # Location of config file ###### CHANGE THIS ###### $::configfile="album.cfg"; ###### CHANGE THIS ###### # Make sure the config file is readable to the web server # Program Version $::ver="6.1"; ######################## START OF SETUP ######################## # Show all script errors to the browser, for easier debugging use CGI::Carp qw(fatalsToBrowser); #use strict; use CGI; use POSIX qw(ceil floor); use Cwd; # Set debug level: # 0 = None # 1 = Special - Nothing has this code, so you can add a ,1 to any debug statement to make it stand out on it's own # 2 = Standard - No recursive info or detailed file info. Usually just startup info. # 3 = Detailed - Some recursive and detailed info. # 4 = Overwhelming - Everything that ever had a debug turned on. $::debug=0; # Write output immediately $|=1; my $query=new CGI; my $form=new CGI; $::html_header=< HTML # Display Images direcly (for shrouding) if ($form->param('image')) { readConfig($::configfile); print shroudPic($form->param('image')); exit(0); } # Get browser cookie info getCookie(); # Check to see if a configfile override was passed in #if ($form->param('configfile')) #{ # $::configfile=$form->param('configfile'); # $::configfilepassed=1; #} # Load this down into a variable, so we can modify it $::function=$form->param('function'); debug("\$::function=$::function",2,__LINE__); # Read configuration file settings readConfig($::configfile); # Was a debug value passed in from the web? #if (!$::debug) #{ # $::debug=$form->param($::debug_code); #} # Print HTML Page Header when debugging #if ($::debug) #{ # print $::html_header; #} ### Some items that were removed from the config file are defined here now. ### zorz, hack for authentication @albumuser = split(/\//, $::cgi_dir); # Set to 1 to strip out comments from the final HTML. Saves bandwidth, but makes debugging a pain. $::strip_comments=0; # Name for the root album in the descriptions file. This allows the "root" album to be given a title and description. $::rootalbumname="Root"; # Descriptions file delimiter. Used to separate description entries in $::descname. $::desc_delim="~"; # Code used to initiate an update check $::checkupdate=""; # Code used to display the user login screen. No need to change this. $::login_code="login"; # Display the photo upload page, or the "uploads not allowed" page, as per your settings. No need to change this one, as it's not a threat - you *want* people to get to your upload page, right? $::upload="upload"; # Code to display the rating form. No need to change this. $::rating_form="rating_form"; # Set the size of the "enter description" box $::enterdesc_rows=5; $::enterdesc_cols=50; # *** Temporary measure to fix usebuttons problem/bug $::usebuttons=1; # File path to photo icon $::file_photo_icon="$::cgi_dir/$::img_dir/$::photo_icon"; # File path to movie icon $::file_movie_icon="$::cgi_dir/$::img_dir/$::movie_icon"; # File path to album icon $::file_album_icon="$::cgi_dir/$::img_dir/$::album_icon"; # Web delimiter - should be ; for standardization, but might have to be & on some systems $::webdelim=";"; # Release "name" - not really used for anything, just wanted to add it $::release="Mufti [3]"; # Next up: Palindrome, Arquebus # Native Cookie field names $::albumcookieusername="albumusername"; $::albumcookiepassword="albumpassword"; # Hide ratings in album view, if also hiding titles if ($::descloc == 2) { $::rating_location=0; } debug("Starting execution, debugging is on ($::debug)...",2,__LINE__); # Pull off web vars for lcoal use $::localconfig=$form->param('album'); $::photo_width=$form->param('photo_width'); $::photo_height=$form->param('photo_height'); # Pull off more web vars $::searchstring=$form->param('searchstring'); $::searchfilenames=$form->param('searchfilenames'); $::searchdescriptions=$form->param('searchdescriptions'); $::searchcomments=$form->param('searchcomments'); $::searchowners=$form->param('searchowners'); if (!$::localconfig) { $::localconfig=$form->param('photo'); # Change all \'s to /'s $::localconfig=~s/\\/\//g; # Drop the filename $::localconfig=~s/(.*\/).*/$1/; } # Read localized configuration file settings for this album readConfig("$::album_dir/$::localconfig/album.cfg",1); # Use default_size (esp when told to), unless a size has been specified if ($::photo_width || $::photo_height || $::photo_width eq -1 || $::photo_height eq -1) { $::default_size=0; } # Set default photo size (small) if ($::default_size == 1) { $::photo_width=$::small_width; $::photo_height=$::small_height; } # Set default photo size (medium) if ($::default_size == 2) { $::photo_width=$::medium_width; $::photo_height=$::medium_height; } # Set default photo size (large) if ($::default_size == 3) { $::photo_width=$::large_width; $::photo_height=$::large_height; } # Dump contents of cookie showCookie(); $::cwd=cwd; debug("Home directory is $::cwd",3,__LINE__); # Add full path to the stringtable, depending on if this is the first startup or not... #if ($::newconfig eq "true") #{ # $::cgi_dir=$::cwd; #} $::stringtable="$::cgi_dir/$::stringtable"; debug("\$::stringtable is now $::stringtable",3,__LINE__); # Check some basic stuff to make sure the environment is safe sanityTest(); # Check for command-line parameter to set static mode #if ($ARGV[0] eq "static") #{ # $::create_html_flag=10; #} # Check for command-line parameter to set debug mode #if ($ARGV[0] eq "debug") #{ # $::debug=$ARGV[1]; # If none passed as 2nd paramater, set debug level 4 # if (!$::debug) # { # $::debug=4; # } #} # Was static mode passed from the web? #if ($form->param('static')) #{ # $::create_html_flag=1; #} # $::create_html_flag has the following values: # 0 - No static HTML # 1 - Build static HTML for current album/photo only (called from the web) # 2 - Build static HTML, don't display results using HTML (called from the command line) # Explicitly turn off buttons, jump station and multi-paging if creating static HTML if ($::create_html_flag) { # *** Temporary action to remove icons, jump menu, buttons and legend for static html... (notify is OK) $::usebuttons=$::jump_to=$::icons=$::legend=$::notify=$::photos_per_page=0; } # Set up default admins with comma seperators at either end $::default_admins=",$::default_admins,"; # Ditto for guests $::default_guests=",$::default_guests,"; if (!$::authentication_type) { $::protect_album=0; } # Show at least one upload field if (!$::concurrent_uploads) { $::concurrent_uploads=1; } # Don't constrain thumbnails if we're using Image Magick - create them! if ($::imagemagick) { $::constrain_thumbs=0; } # Load these down into a variable, so we can modify them $::username=$form->param('username'); $::password=$form->param('password'); $::fullscreen=$form->param('fullscreen'); $::randompic=$form->param('random'); $::ssi=$form->param('ssi'); $::popular_flag=$form->param('popular'); #$::upute_flag=$form->param('upute'); debug("\$::popular_flag is set to: [$::popular_flag], to show $::most_popular max",4,__LINE__); # If we're entering descriptions, turn off the slideshow! if ($::function eq $::enter_desc) { $::slide_timer=0; $::slide_timer_passed=1; } # Was a slideshow timer value passed in from the web? if ($form->param('slideshow')) { # Were we asked to turn off the slide show? if ($form->param('slideshow') eq -1 && $::fullscreen ne $::S{263}) { $::slide_timer=$::fullscreen=0; } else { $::slide_timer=$form->param('slideshow'); # Are we just turning the slideshow on? if ($form->param('oldslideshow')) { # Set timer when converting to fullscreen mode $::slide_timer=$form->param('oldslideshow'); # Go fullscreen! $::temp="$::albumprog?full=1".passVars(0).$::webdelim."photo=".$form->param('photo').$::webdelim."photo_width="; printHTMLHeader(); print < HTML # Change back $::slide_timer=$::fullscreen=0; } } # Set flag to keep the slide timer in the URL... $::slide_timer_passed=1; } # Load this down into a variable, so we can modify it $::page=$form->param('page'); # Set default page if (!$::page) { $::page=1; } # Are we displaying the config screen? #if ($::function eq $::config) #{ # printHTMLHeader(); # $authenticated = Authenticate(); # if ($authenticated == 1) # { # showConfig(); # } else { # print ""; # } #} # Are we actually updating the configuration? #if ($::function eq $::updateconfig) #{ # printHTMLHeader(); # updateConfig(); #} # Add full path to template files $::album_template="$::template_dir/$::album_template"; $::photo_template="$::template_dir/$::photo_template"; $::object_template="$::template_dir/$::object_template"; $::upload_template="$::template_dir/$::upload_template"; $::login_template="$::template_dir/$::login_template"; $::upute_template="$::template_dir/$::upute_template"; debug("\$::album_template is now $::album_template",4,__LINE__); debug("\$::photo_template is now $::photo_template",4,__LINE__); debug("\$::object_template is now $::object_template",4,__LINE__); debug("\$::upload_template is now $::upload_template",4,__LINE__); debug("\$::login_template is now $::login_template",4,__LINE__); # Add full path to icon/button files $::photo_icon="$::img_dir/$::photo_icon"; $::movie_icon="$::img_dir/$::movie_icon"; $::album_icon="images/$::album_icon"; $::album_folder_icon="$::img_dir/$::album_folder_icon"; $::login_button="$::img_dir/$::login_button"; $::home_button="$::img_dir/$::home_button"; $::search_button="$::img_dir/$::search_button"; $::random_button="$::img_dir/$::random_button"; $::upload_button="$::img_dir/$::upload_button"; $::recent_button="$::img_dir/$::recent_button"; $::rate_button="$::img_dir/$::rate_button"; $::email_button="$::img_dir/$::email_button"; $::small_button="$::img_dir/$::small_button"; $::medium_button="$::img_dir/$::medium_button"; $::large_button="$::img_dir/$::large_button"; $::fullsize_button="$::img_dir/$::fullsize_button"; $::fullscreen_button="$::img_dir/$::fullscreen_button"; $::edit_button="$::img_dir_new/$::edit_button"; $::delete_button="$::img_dir_new/$::delete_button"; $::move_button="$::img_dir_new/$::move_button"; $::config_button="$::img_dir/$::config_button"; $::create_button="$::img_dir/$::create_button"; $::titles_button="$::img_dir/$::titles_button"; $::updates_button="$::img_dir/$::updates_button"; $::adminupload_button="$::img_dir/$::adminupload_button"; $::thumb_button="$::img_dir/$::thumb_button"; $::popular_button="$::img_dir/$::popular_button"; # If album_web is not set, then we are performing image shrouding if (!$::album_web) { $::album_web=$::albumprog."?image="; } # Set recent upload tag to be used as the album $::recent_upload_album=":recent"; # Are we creating an album? if ($form->param('admincreate') && $form->param('album')!~/$::recent_upload_album$/) { printHTMLHeader(); # Actually create the album if ($form->param('albumname')) { if (createAlbum($form->param('album'),$form->param('albumname'),$form->param('title'),$form->param('description'),$::owner,1)) { error(__LINE__,"upload_dir",$form->param('albumname')) } else { $::album=$::album_dir."/".$form->param('album')."/".$form->param('albumname'); $::function=""; } } else # Just display the form { $::shortdesc=$::S{49}; display(buildTemplate()); exit(0); } } # Check to see we're creating static HTML files if ($::create_html_flag gt 1) { $::static_time=time(); # *** Copy CSS into root photo album and reference it from there # copy(x,"$::album_dir$::style_sheet"); if ($::create_html_flag le 1) { print ""; } print "album.pl - "; print $::S{1}; if ($::create_html_flag le 1) { print ""; } if ($::create_html_flag le 1) { $::object=printHeader(); print < HTML } print $::S{2}; print "\n\n"; if ($::create_html_flag le 1) { print "

"; } print $::S{3}; print "\n\n"; if ($::create_html_flag le 1) { print "

"; } print $::S{4}; print "\n\n"; if ($::create_html_flag le 1) { print "

"; } print $::S{5}; print "\n\n"; if ($::create_html_flag le 1) { print "

"; } print "$::album_dir...\n"; if ($::create_html_flag le 1) { print "
"; } debug("Calling photoAlbum($::album_dir)",4,__LINE__); photoAlbum($::album_dir); debug("Back from photoAlbum($::album_dir) call",4,__LINE__); debug("Calling recursiveScan($::album_dir)",4,__LINE__); recursiveScan($::album_dir); debug("Back from recursiveScan($::album_dir) call",4,__LINE__); $::static_time_taken=time()-$::static_time; if ($::create_html_flag le 1) { print "

"; } print $::S{6}; print " $::static_photos_done "; print $::S{7}; # Any movies? if ($::static_movies_done) { print " "; print $::S{8}; print " $::static_movies_done "; print $::S{9}; } # Add 1 to account for the root album $::static_albums_done++; print " "; print $::S{10}; print " $::static_albums_done "; print $::S{11}; print "\n"; # Count thumbnails if ($::static_photos_thumb) { if ($::create_html_flag le 1) { print "

"; } print "$::static_photos_thumb "; print $::S{12}; print " "; print $::S{15}; print "\n"; } if ($::static_movies_thumb) { if ($::create_html_flag le 1) { print "

"; } print "$::static_movies_thumb "; print $::S{13}; print " "; print $::S{15}; print "\n"; } if ($::static_albums_thumb) { if ($::create_html_flag le 1) { print "

"; } print "$::static_albums_thumb "; print $::S{14}; print " "; print $::S{15}; print "\n"; } # Count descriptions if ($::totalphotodesc) { if ($::create_html_flag le 1) { print "

"; } print "$::totalphotodesc "; print $::S{12}; print " "; print $::S{205}; print "\n"; } if ($::totalmoviedesc) { if ($::create_html_flag le 1) { print "

"; } print "$::totalmoviedesc "; print $::S{13}; print " "; print $::S{205}; print "\n"; } if ($::totalalbumdesc) { if ($::create_html_flag le 1) { print "

"; } print "$::totalalbumdesc "; print $::S{14}; print " "; print $::S{205}; # Average print "\n$::S{269} ".int($::static_photos_done/$::static_albums_done)." $::S{270}"; print "\n\n"; } if ($::create_html_flag le 1) { print "

"; } print $::S{265}; $::static_minutes=int($::static_time_taken/60); $::static_hours=int($::static_minutes/60); $::static_seconds=$::static_time_taken-($::static_minutes*60); $::static_minutes=$::static_minutes-($::static_hours*60); if ($::static_hours) { print " $::static_hours $::S{268}"; } if ($::static_minutes) { print " $::static_minutes $::S{267}"; } print " $::static_seconds $::S{266}\n"; } else { # Authenticate user $::authenticated=Authenticate(); if (!$::debug) { printHTMLHeader(); } # Clear manual override $::manual_override=""; # Are we doing random pics? if ($::randompic) { # $::randompic=0; $::manual_override=randomizer(); # SSI Random Pic if ($::ssi) { $::album=$::manual_override; $::album=~s/(.*)\/.*/$1/; display(showObject($::manual_override)); exit(0); } } # Bypass login form for function=about if ($::function eq "about") { $::authenticated=1; } # Show Login Screen if not already logged in if ((($::album_password && !$::authenticated) && ($::password ne $::album_password)) || ($::protect_album && !$::authenticated)) { debug("\$::function=$::login_code for one of the following reasons:",2,__LINE__); debug("\ 1. \$::album_password required ($::album_password). (\$::password = $::password)",2,__LINE__); debug("\ 2. \$::protect_album required ($::protect_album). (\$::authenticated = $::authenticated)",2,__LINE__); debug("\ 3. Not logged in (\$::loggedin = $::loggedin)",2,__LINE__); $::function=$::login_code; # Manually reset the album to the root album, to avoid users passing in sub albums or photos $::manual_override=$::album_dir; } photoAlbum($::manual_override); } ######################## END OF MAIN ######################## ################### START OF SUBROUTINES #################### ############################################################## =head3 photoAlbum() photoAlbum($manual_override); $manual_override - Start in this album or with this photo (optional) Does the majority of the processing for the photo album =cut sub photoAlbum { my $manual_override=shift; debug("Entering subroutine: photoAlbum($manual_override)

",4,__LINE__); if ($manual_override) { debug("\$manual_override=$manual_override",2,__LINE__); } # Localize some vars { my $key; my @keys; # Read web environment variables @keys=keys %ENV; debug("---- BEGIN Web environment variables ----",3,__LINE__); foreach $key (@keys) { debug("$key: $ENV{$key}",3,__LINE__); } debug("---- END Web environment variables ----",3,__LINE__); } # Check to see if we're being called with function=$::upload if ($::function eq "$::upload") { $authenticated = Authenticate(); if ($authenticated == 1) { uploadPhoto(); exit(0); } else { print ""; } } # Check to see if the user is updating a description if ($::function eq "$::update_desc") { updateDesc($form->param('object'),$form->param('desc_file_loc'),$form->param('title'),$form->param('description'),$form->param('owner')); if (!$form->param('advance.x')) { $manual_override=$form->param('photo2'); } } # Check to see if the user is adding a rating if ($::function eq $::rating_form) { my $temp=$form->param('rating_file_loc'); openDescfile("$::album_dir/$temp/"); getDescription($form->param('object')); $::shortdesc="$::S{229} ".$::shortdesc; display(buildTemplate()); exit(0); } # Check to see if the user is adding a rating if ($::function eq "$::update_rating") { if ($form->param('comments')) { $::object="$::S{203} "; if ($form->param('name')) { $::object.=$form->param('name'); } else { $::object.="$::S{204}"; } $::object.=": ".$form->param('comments'); } updateRating($form->param('object'),$form->param('rating_file_loc'),$form->param('rating'),$::object); } # Have we been told to stop adding descriptions? if ($form->param('stop_add_desc') eq "stop") { $::function=""; } # Translate into shorter variable names if ($form->param('album') && !$::album) { $::album=$::album_dir."/".$form->param('album'); debug("\$::album has been set to $::album (from the web form var)",2,__LINE__); } if ($form->param('photo')) { $::photo=$form->param('photo'); # Change all \'s to /'s $::photo=~s/\\/\//g; debug("\$::photo has been set to $::photo (from the web form var)",2,__LINE__); } if ($::album) { # Change all \'s to /'s $::album=~s/\\/\//g; } # Are we checking for updates? # if ($::function eq $::checkupdate) # { # checkUpdate(); # } # Override album (for creating static HTML) if ($manual_override || $::create_html_flag) { debug("Manual Override is [$manual_override]",2,__LINE__); if (isAPhoto($manual_override)) { $::photo=$manual_override; debug("Setting photo to [$::photo]",2,__LINE__); $::static_filename_to_use="$::full_directory.html"; $::album=""; } else { if (isAMovie($manual_override)) { $::album=$manual_override; # Change all \'s to /'s $::album=~s/\\/\//g; $::album=~s/(.*)\/(.*)/$1/; $::album="$::album_dir/$::album"; } else { $::album=$manual_override; } debug("Setting album to [$::album]",2,__LINE__); if ($::full_directory) { # For photo albums to be scanned $::static_filename_to_use="$::full_directory/$::static_html_filename"; } else { # For root photo album $::static_filename_to_use="$::album_dir/$::static_html_filename"; } $::photo=""; } } # Is this the top level? if (!($::photo || $::album)) { $::album="$::album_dir"; } if ($::album) { $::middle=$::album; } if ($::photo) { $::middle=$::photo; } if ($::middle=~/^$::album_dir$/i) { $::middle=""; } else { # Change all \'s to /'s $::middle=~s/\\/\//g; $::middle=~s/$::album_dir\/(.*)/$1/; } # Open static HTML file... if ($::create_html_flag) { # Open the static HTML file open(STATIC,">$::static_filename_to_use") || error(__LINE__,"not_writable","$::static_filename_to_use"); debug("Creating static HTML file at [$::static_filename_to_use]",2,__LINE__); } debug("The album is: $::album",2,__LINE__); debug("The middle bit is: $::middle

",2,__LINE__); $::goback=$::middle; # Change all \'s to /'s $::goback=~s/\\/\//g; # Drop the filename $::goback=~s/(.*)\/.*/$1/; if ($::goback eq $::middle) { $::goback=""; } # Keep a copy, so you don't have all the funny web stuff when you do a compare $::realgoback=$::goback; debug("GoBack: $::goback",2,__LINE__); if ($::photo) { $::descfile=$::album_dir."/"; if ($::goback) { $::descfile.=$::goback."/"; } } if ($::album) { #$::shortalbum=$::album_dir."/".$::album; $::shortalbum=$::album; if ($::realgoback) { $::shortalbum=~s/(.*\/).*/$1/; } else { $::shortalbum=$::album_dir; } $::shortalbum=$::shortalbum."/"; debug("ShortAlbum: $::shortalbum

",2,__LINE__); # If you're updating descriptions, this is the file you want. $::desc_to_update="$::shortalbum"; openDescfile($::shortalbum); if ($::album=~/^$::album_dir$/i) { $::shortalbum="$::rootalbumname"; } else { if ($::realgoback) { $::shortalbum=$::middle; $::shortalbum=~s/(.*)$::realgoback\//$1/; } else { $::shortalbum=$::middle; } } debug("ShortAlbum: $::shortalbum

",2,__LINE__); $::shortobject=$::shortalbum; getDescription($::shortalbum); # Set album thumbnail if ($form->param('setthumb')) { use File::Copy; my $ext; my $temp2; my $temp; $::shortalbum=$form->param('album'); $ext=$form->param('setthumb'); $temp="$::album_dir/$::shortalbum/$ext"; # Change all \'s to /'s $::shortalbum=~s/\\/\//g; # Pull out path $::shortalbum=~s/.*\/(.*)/$1/; $ext=~s/.*\.(.*)/$1/; $temp2="$::album_dir/".$form->param('album')."/../$::thumbprefix$::shortalbum.$ext"; debug("Copying album thimbnail: $temp --> $temp2",2,__LINE__); # Make sure source thumb is readable, and that we are authorized to do this if (-r $temp && ($::function eq $::admin || (($::owner eq $::loggedin || $::default_admins=~/(.*,)*$::loggedin(,.*)*/) && $::loggedin))) { unlink($temp2); copy($temp,$temp2); } } # Keep count for static if ($::founddesc) { $::totalalbumdesc++; } close(DESC); # Set the description to pass as a default for editing $::existing_shortdesc=$::shortdesc; if (!$::shortdesc) { if ($::shortalbum eq $::rootalbumname) { $::shortdesc="$::S{87}"; } else { $::shortdesc=$::shortalbum; } } $::descfile="$::album_dir/$::middle/"; } # Select directory to read all entries from if ($::album) { $::dir_to_read="$::album_dir/$::goback"; } # This is the spot that causes the bug. if (!$::usebuttons) { my $temp=passVars(0); if ($temp) { $::goback.="?".$temp; } } if ($::photo) { $::dir_to_read="$::descfile"; $::shortphoto=$::photo; $::shortphoto=~s/^$::realgoback\/(.*)/$1/; } # Are we deleting an object? If so, confirm. if ($form->param('deleteobject')) { $::shortdesc=$::S{183}; $::longdesc=""; display(buildTemplate()); exit(0); } # Have we confirmed the delete? if ($form->param('confirmdeleteobject') && $form->param('yes')) { debug("Calling deleteObject(confirmdeleteobject)",3,__LINE__); deleteObject($form->param('confirmdeleteobject')); } # Are we moving an object? If so, confirm. if ($form->param('moveobject')) { display(buildTemplate()); exit(0); } # Have we confirmed the move? if ($form->param('confirmmoveobject') && $form->param('yes')) { debug("Calling moveObject(confirmmoveobject)",3,__LINE__); moveObject($form->param('confirmmoveobject'),0,$form->param('category')); } # Show Recent Uploads if ($form->param('album')=~/$::recent_upload_album$/) { $::album=$::recent_upload_album; display(buildTemplate()); exit(0); } # Show search screen, or the search results if ($form->param('searchstart') || $::searchstring) { $::shortdesc=$::S{280}; $::longdesc=""; display(buildTemplate()); exit(0); } # Show Most Popular screen if ($::popular_flag && $::most_popular) { $::shortdesc="$::most_popular $::S{271}"; $::longdesc=""; display(buildTemplate()); exit(0); } # Find next and previous pictures/albums as appropriate debug("Looking for next and previous objects in [$::dir_to_read]...",2,__LINE__); @::file_list=readDirectory($::dir_to_read); debug("Done Directory Scan, comparing for $::shortphoto or $::shortalbum...",3,__LINE__); # clear re-used vars $::prev_obj_desc=""; $::next_obj_desc=""; $::next_obj=""; # Prep the "jump station" for the footer if ($::jump_to && $::middle && $::album && $::contains_dir) { $::jump_station.="

\n"; $::jump_station.=passVars(1); $::jump_station.=$::S{16}; $::jump_station.=" \n"; } # $data.="\n"; # Failed to log in, show failure message if ($::password && !$::authenticated) { $data.="$::S{181}\n"; # Make it a popup too $data.=javaAlert($::S{181}); } else { # Or show "please log in" message # $data.="$::S{182}\n"; } $data.="
$::S{55} 
"; if (!$::album_password) { $data.="\n"; } $data.="
$::S{57} 
"; $data.="\n"; $data.="
 
\n"; # $data.="
\n"; # $data.="\n"; $data.=passVars(1); $data.="
\n"; debug("Leaving subroutine: showLogin",4,__LINE__); return($data); } ########################################################################## =head3 showAdminMenu() $admin_menu=showAdminMenu($style); $style - 0 = Long menu (titles, all options - used at the top of photo/album pages); 1 = Short menu (no title, some options - used under thumbnails) $admin_menu - Variable to return completed Administration menu into. Returns the Administration menu, so it can be substituted into the template. =cut sub showAdminMenu { my $admin_menu; my $isadmin; my $stuff=""; my $style=shift; debug("Entering subroutine: showAdminMenu($style)",4,__LINE__); $admin_menu=""; debug("\$::owner = $::owner",2,__LINE__); debug("\$::loggedin = $::loggedin",2,__LINE__); debug("\$::default_admins = $::default_admins",2,__LINE__); $isadmin=isAdmin(); $stuff=$::relpath; # This shouldn't be required. passVars should load an album tag in, but it doesn't... $stuff.=$::webdelim; if (isAPhoto($::relpath) || isAMovie($::relpath)) { $stuff.="photo"; } else { $stuff.="album"; } $stuff.="=$::relpath"; $stuff.=passVars(0); $stuff.="\" class=\"adminlink\">"; # Only proceed if allowed... That means: If we're printing an "abridged" menu, and the guy logged in owns the current object, or is a default admin and is logged in, or the admin function is being used. if ($isadmin && $::function ne "upute") { debug("We're authorized to display the admin menu...",2,__LINE__); # Print the short menu. The one that goes under the thumbnails. if ($style) { $admin_menu.="
"; # Edit if ($::allow_edit || $isadmin) { $admin_menu.=""; } $admin_menu.=""; } if ($::textmenu && ($isadmin || $::allow_delete && $::allow_edit)) { # $admin_menu.=" $::S{98} "; } $admin_menu.="
"; # Delete if ($::allow_delete || $isadmin) { $admin_menu.=""; } $admin_menu.=""; } if ($::textmenu && $isadmin) { $admin_menu.=" $::S{98} "; } $admin_menu.="
"; # Move, reserved for actual admins if ($isadmin eq 1) { $admin_menu.=""; } $admin_menu.=""; } $admin_menu.="
"; } else # Print the extended menu. The one that goes at the top of a page. { if ($::photo) { $admin_menu.="
"; } if ($::album) { $admin_menu.="
  
 
"; } # Album Admin Menu if ($::album) { # Create album $admin_menu.=""; } # For regular admins only if ($isadmin eq 1) { if ($::textmenu) { $admin_menu.=" $::S{98} "; } # Configuration management # $admin_menu.=" "; # if ($::textmenu) # { # $admin_menu.=$::S{249}; # } # else # { # $admin_menu.="\"\""; # } # $admin_menu.=""; if ($::textmenu) { $admin_menu.=" $::S{98} "; } # Check for updates # $admin_menu.=" "; # if ($::textmenu) # { # $admin_menu.=$::S{250}; # } # else # { # $admin_menu.="\"\""; # } # $admin_menu.=""; } # Set Album Thumbnail if ($::album ne $::album_dir) { $admin_menu.=""; } $admin_menu.="
"; $admin_menu.=""; if ($::textmenu) { $admin_menu.=$::S{246}; } else { $admin_menu.="Novi album"; } $admin_menu.=""; $admin_menu.="
"; # For regular admins only if ($isadmin eq 1) { if ($::textmenu) { $admin_menu.=" $::S{98} "; } # Update titles and descriptions $admin_menu.=""; if ($::textmenu) { $admin_menu.=$::S{247}; } else { $admin_menu.="Izmjena opisa"; } $admin_menu.=""; $admin_menu.="
 
"; } if ($::textmenu) { $admin_menu.=" $::S{98} "; } # Upload if ($::allow_uploads) { $admin_menu.=" "; if ($::textmenu) { $admin_menu.=$::S{248}; } else { $admin_menu.="Upload"; } $admin_menu.=""; $admin_menu.="
 
"; if ($::textmenu) { $admin_menu.=" $::S{98} "; } $admin_menu.=""; if ($::textmenu) { $admin_menu.=$::S{251}; } else { $admin_menu.="Izmijeni ikonu"; } $admin_menu.=""; $admin_menu.="
"; } # Photo Admin Menu if ($::photo) { # Edit $admin_menu.="
"; $admin_menu.=""; if ($::textmenu) { $admin_menu.=$::S{43}; } else { $admin_menu.="Izmijeni"; } $admin_menu.=""; if ($::textmenu) { $admin_menu.=" $::S{98} "; } # Delete $admin_menu.="
"; $admin_menu.=" "; if ($::textmenu) { $admin_menu.=$::S{44}; } else { $admin_menu.="Izbriši"; } $admin_menu.=""; if ($::textmenu) { $admin_menu.=" $::S{98} "; } # For regular admins only if ($isadmin eq 1) { # Move $admin_menu.="
 
"; $admin_menu.=" "; if ($::textmenu) { $admin_menu.=$::S{45}; } else { $admin_menu.="Pomakni"; } $admin_menu.=""; $admin_menu.="
"; $admin_menu.="
"; } } } } else { debug("NOT authorized to display admin menu.",2,__LINE__); } debug("Leaving subroutine: showAdminMenu($style)",4,__LINE__); return($admin_menu); } ########################################################################## =head3 openDescfile() openDescfile($descfilename); $descfilename - The full, filesystem path to the album you want to read descriptions from. Opens up $descfilename so that photo/album titles/descriptions can be loaded. =cut sub openDescfile { my $descfilename=shift; # Close any open filehandles here close(DESC); $descfilename.=$::descname; debug("Looking for DescFile: [$descfilename]

",3,__LINE__); if (-r $descfilename) { $::usedesc=1; open(DESC,"$descfilename"); debug("Using DescFile: [$descfilename]

",3,__LINE__); } } ########################################################################## =head3 getDescription() getDescription($desctoget,$mode); $desctoget - Photo or album to get description of $mode - 0 = Normal; 1 = Searching Retrieves the title, description and owner of the provided object. Puts the title in $::shortdesc, the description in $::longdesc (if present) and the owner in $::owner (if present). =cut sub getDescription { my $desctoget=shift; my $mode=shift; my $descline; my $prevline; my $filename; my $tempowner; my $desctosearch; debug("Entering subroutine: getDescription($desctoget,$mode)",4,__LINE__); debug("Getting Description for [$desctoget] ==> \$::usedesc=[$::usedesc]",3,__LINE__); # Clear variables, in case they're being re-used $::shortdesc=$::longdesc=$::owner=""; # Haven't found a description yet. $::founddesc=0; # See if description exists if ($::usedesc && $desctoget) { # Clear $desctoget if it was just set as a placeholder if ($desctoget eq "./") { $desctoget=""; } $desctosearch=quotemeta($desctoget); # Rewind description file # seek(DESC,SEEK_SET,0); # Original (pre strict) seek(DESC,0,0); # Reset for search $prevline=$::desc_delim; while ($descline=) { chomp($descline); # Doing search if ($mode && ($::searchdescriptions || $::searchowners)) { if ($::searchdescriptions) { if ($descline=~/$::searchstring/i && $prevline ne $::desc_delim) { debug("Found a MATCH (description) of $::searchstring in $descline for object $desctoget$filename",4,__LINE__); push @::searchresults,"$desctoget$filename"; } } # Store off filenames and check owners if ($prevline eq $::desc_delim) { ($filename,$tempowner)=split(":",$descline); if ($tempowner=~/$::searchstring/ && $::searchowners) { debug("Found a MATCH (owner) of $::searchstring in $descline for object $desctoget$filename",4,__LINE__); push @::searchresults,"$desctoget$filename"; } } $prevline=$descline; } # Found the description we're looking for (not via the search screen) if ($descline=~/^$desctosearch$/i || $descline=~/^$desctosearch:.*$/i) { $::owner=$descline; $::owner=~s/.*:(.*)/$1/; debug("$descline:$::owner",2,__LINE__); if ($::owner eq $descline) { $::owner=""; } $descline=~s/(.*):.*/$1/; debug("$::owner owns $descline",2,__LINE__); $::shortdesc=; chomp($::shortdesc); $::longdesc=""; my $longdescline=""; while (($::longdescline=) && ($::longdescline!~/^$::desc_delim$/)) { $::longdesc.=$::longdescline."
"; } $::founddesc=1; } } if (!$::founddesc) { $::shortdesc=$::longdesc=""; debug("No description found.",3,__LINE__); } debug("ShortDesc: [$::shortdesc]",3,__LINE__); debug("LongDesc: [$::longdesc]",3,__LINE__); } debug("Leaving subroutine: getDescription($desctoget,$mode)",4,__LINE__); } ########################################################################## =head3 buildDescFooter() $add_desc_footer=buildDescFooter($status); $add_desc_footer - The HTML code for adding a description, which is returned. $status - 0 if building the whole form, 1 if building it as part of another form (like the create album form, for example). Creates $directory in $basedir, and updates the description with $::shortdesc and $::longdesc. =cut sub buildDescFooter { my $add_desc_footer; my $status=shift; # Form for entering a new description if (!$status) { $add_desc_footer=< HTML $add_desc_footer.="\n"; #$upload_form.="\n"; #$upload_form.="\n"; $upload_form.=< HTML if ($::debug) { $upload_form.=< HTML } #$upload_form.="
"; } #$add_desc_footer.="
"; if (!$status) { if (!$form->param('editobject')) { $add_desc_footer.=""; $add_desc_footer.=""; } else { $add_desc_footer.=""; } $add_desc_footer.="
"; $add_desc_footer.="$::S{190} \n"; if (!$status) { # Where do we go when we click submit? $add_desc_footer.="\n"; # Where do we go when we click submit? if (isAPhoto($::next_obj)) { $add_desc_footer.="\n"; } $add_desc_footer.="\n"; $add_desc_footer.="\n"; } if (!$status) { # Set the correct function $::function=$::update_desc; $add_desc_footer.=passVars(1); # Now set it back $::function=$::enter_desc; } $add_desc_footer.="
"; $add_desc_footer.="\n"; # Add userlist # $add_desc_footer.=$::S{299}." "; # $add_desc_footer.=getUserList()."
\n"; $add_desc_footer.="
"; $add_desc_footer.="$::S{191}\n"; $add_desc_footer.=" 
"; $add_desc_footer.="\n"; $add_desc_footer.="
"; $add_desc_footer.=""; $add_desc_footer.="
$::S{192} 
"; # $add_desc_footer.="param('editobject')) #{ # $add_desc_footer.="hidden"; #} #else #{ # $add_desc_footer.="checkbox"; #} #$add_desc_footer.="\" name=\"stop_add_desc\" value=\"stop\" class=\"checkbox\"/>"; #$add_desc_footer.=""; $add_desc_footer.=""; # If the next object is a photo, display the option to go to it. if (isAPhoto($::next_obj)) { $add_desc_footer.="\n"; $add_desc_footer.="
\n"; } else { $add_desc_footer.="
\n"; } $add_desc_footer.=< HTML } return($add_desc_footer); } ########################################################################## =head3 updateDesc() updateDesc($myobject,$desc_file_loc,$title,$description,$myowner); $myobject - The object whose description is being updated $desc_file_loc - The location of the descfile to update $title - The new title to apply to the object $description - The new long description to apply to the object $myowner - The new owner of the object Updates the $::descfile located in $desc_file_loc for the item $myobject, with the information passed in through the web form. =cut sub updateDesc { my $added_desc; my $data; my $skip; my $oldowner; my $olddata; my $virtualfile; my $myobject=shift; my $desc_file_loc=shift; my $title=shift; my $description=shift; my $myowner=shift; debug("Entering subroutine: updateDesc($myobject,$desc_file_loc,$title,$description,$myowner)",4,__LINE__); # Yep, so update the description file, and then display everything normally debug("Updating description for $myobject in $desc_file_loc. Title is [$title], description is [$description].",2,__LINE__); if (!$myobject || !$desc_file_loc) { error(__LINE__,"sanity","Not enough info to update description."); } # Open the description file specified openDescfile($desc_file_loc); # have not added desc $added_desc=0; # am not skipping $skip=0; # Clear "virtual file" $virtualfile=""; while ($data=) { chomp($data); debug("Data: [$data]; \$skip=$skip",4,__LINE__); $olddata=$data; # Pull out owner ($data,$oldowner)=split(":",$data); debug("$oldowner owns $data",2,__LINE__); # Check to see if this is the one we want if ($data eq $myobject && !$skip) { debug("Found match: $data",3,__LINE__); # Make sure we can do this... if ($::function eq $::update_desc || $::function eq $::admin || (($myowner eq $::loggedin || $::default_admins=~/(.*,)*$::loggedin(,.*)*/) && $::loggedin) && $::username eq $albumuser[3]) { debug("Updating Description...",3,__LINE__); # If nobody is taking control of this, and someone already owned it, then don't clear the owner if (!$myowner && $oldowner) { $myowner=$oldowner; } $virtualfile.=$myobject; if ($myowner) { debug("Writing Owner: $myowner",3,__LINE__); $virtualfile.=":$myowner"; } else { debug("No owner provided",3,__LINE__); } $virtualfile.="\n"; $virtualfile.=$title; $virtualfile.="\n"; if ($description) { $virtualfile.=$description; $virtualfile.="\n"; } # skip reading until the next $::desc_delim $skip=1; } # don't re-add the desc at the end $added_desc=1; } # we found the next entry, stop skipping if ($skip && ($data eq $::desc_delim)) { debug("Stopped skipping.",4,__LINE__); $skip=0; } # Only write if we're not skipping if (!$skip) { debug("Wrote: $olddata",4,__LINE__); $virtualfile.="$olddata\n"; } } # If the description wasn't added, do it now. if (!$added_desc) { debug("No description found, adding one.",4,__LINE__); $virtualfile.="$::desc_delim\n"; $virtualfile.=$myobject; if ($myowner) { debug("Writing Owner: $myowner",3,__LINE__); $virtualfile.=":$myowner"; } else { debug("No owner provided",3,__LINE__); } $virtualfile.="\n"; $virtualfile.=$title; $virtualfile.="\n"; if ($description) { $virtualfile.=$description; $virtualfile.="\n"; } } close(DESC); # Re-open descfile and write out new contents open(DESC,">$desc_file_loc/$::descname") || error(__LINE__,"not_writable","$desc_file_loc/$::descname"); print DESC $virtualfile; close(DESC); # Keep on updating $::function=$::enter_desc; debug("Leaving subroutine: updateDesc($myobject,$desc_file_loc,$title,$description,$myowner)",4,__LINE__); } ########################################################################## =head3 deleteDesc() deleteDesc($myobject,$desc_file_loc); $myobject - The object whose description is being deleted $desc_file_loc - The location of the descfile to modify Deletes the entry for $myobject from the $::descfile located in $desc_file_loc. =cut sub deleteDesc { my $data; my $skip; my $oldowner; my $olddata; my $virtualfile=""; my $myobject=shift; my $desc_file_loc=shift; # Yep, so update the description file, and then display everything normally debug("Deleting description for $myobject in $desc_file_loc.",2,__LINE__); if (!$myobject || !$desc_file_loc) { error(__LINE__,"sanity","Not enough info to delete description."); } # Open the description file specified openDescfile($desc_file_loc); # am not skipping $skip=0; while ($data=) { chomp($data); debug("Data: [$data]; \$skip=$skip",4,__LINE__); $olddata=$data; # Pull out owner ($data,$oldowner)=split(":",$data); debug("$oldowner owns $data",2,__LINE__); # Check to see if this is the one we want if ($data eq $myobject && !$skip) { debug("Found match: $data",3,__LINE__); # Make sure we can do this... if ($::function eq $::update_desc || $::function eq $::admin || (($::owner eq $::loggedin || $::default_admins=~/(.*,)*$::loggedin(,.*)*/) && $::loggedin) && $::username eq $albumuser[3]) { debug("Deleting Description...",3,__LINE__); # skip reading until the next $::desc_delim $skip=1; } } # Only write if we're not skipping if (!$skip) { debug("Wrote: $olddata",4,__LINE__); $virtualfile.="$olddata\n"; } # we found the next entry, stop skipping if ($skip && ($data eq $::desc_delim)) { debug("Stopped skipping.",4,__LINE__); $skip=0; } } close(DESC); # Re-open descfile and write out new contents open(DESC,">$desc_file_loc/$::descname") || error(__LINE__,"not_writable","$desc_file_loc/$::descname"); print DESC $virtualfile; close(DESC); } ########################################################################## =head3 uploadPhoto() uploadPhoto(); Called when a user wants to upload a photo. Shows the form and handles the file transfer. =cut sub uploadPhoto { my $myobject; my $temp; debug("Entering subroutine: uploadPhoto()",4,__LINE__); openDescfile("$::album_dir/"); getDescription($::rootalbumname); close(DESC); if (!$::shortdesc) { $::shortdesc=$::S{36}; } if (!$::allow_uploads) { # print the HTML HEADER print < HTML if ($::style_sheet) { print < HTML } print <$::S{37}

$::S{38} $::shortdesc. HTML exit(0); } # same as debug=3 if ($::debug gt 2) { print "Displaying all form values:

"; my @all=$query->param; my $name; foreach $name (@all) { print "

Form Data: $name ->", $query->param($name),"

\n"; } } # Log the user in if ($query->param('userid')) { $::username=$query->param('userid'); } if ($query->param('upload_password')) { $::password=$query->param('upload_password'); } $myobject=buildTemplate(); if ($query->param('upload_file1')) { debug("A photo is being uploaded.",2,__LINE__); my $em=''; # import the paramets into a series of variables in 'q' namespace $query->import_names('q'); # check if the necessary fields are empty or not $em .= "
$::S{39}
" if !$q::userid; if (!$q::upload_password && $::authentication_type) { $em .= "$::S{40}
" } $em .= "$::S{41}
" if !$q::upload_file1; print $myobject; if ($em) { error(__LINE__,"upload_error",$em); } if (!Authenticate($::block_ubb_junior_members_from_uploading)) { error(__LINE__,"upload_error","$::S{42} $q::userid"); } # Check to see if the user is a guest if (isGuest()) { error(__LINE__,"upload_error","$::S{298}"); } # now upload files for($temp=1;$temp<=$::concurrent_uploads;$temp++) { if ($query->param("upload_file$temp")) { fileUpload($temp); } } } else { debug("No photo is being uploaded.",2,__LINE__); print $myobject; } debug("Leaving subroutine: uploadPhoto()",4,__LINE__); } ########################################################################## =head3 showUploadForm() $upload_form=showUploadForm(); $upload_form - Variable to return completed upload form into. Returns the upload form, so it can be substituted into the template. =cut sub showUploadForm() { my $upload_form; my $temp; my $spacer; debug("Entering subroutine: showUploadForm()",4,__LINE__); $upload_form="
\n"; $upload_form.="\n"; # userid field $upload_form.="\n"; # Set indent spacer if ($::concurrent_uploads gt 1) { $spacer="   "; } # Get Category List, by recursively searching all dirs (stored in $::object) if (!$::per_member_upload || isAdmin()) { debug("About to call the recuriveScan($::album_dir)",2,__LINE__); $::doing_upload=1; recursiveScan($::album_dir); $::doing_upload=0; } debug("Returned from the recuriveScan($::album_dir)",2,__LINE__); for($temp=1;$temp<=$::concurrent_uploads;$temp++) { debug("Iterating in upload file loop #$temp.",3,__LINE__); # file field $upload_form.=" HTML } $upload_form.="
    \n"; # Display name/userid depending on if we're using anonymous uploads or not if ($::authentication_type) { $upload_form.="$::S{55}\n"; } else { $upload_form.="$::S{56}\n"; } $upload_form.="\n"; # Get cookie info, if present # $::username=$::password=""; debug("Username/Pass before cookieLogin: $::username/$::password",4,__LINE__); cookieLogin(); debug("Username/Pass after cookieLogin: $::username/$::password",4,__LINE__); $upload_form.="\n"; $upload_form.="\n"; $upload_form.=passVars(1); $upload_form.="
\n"; # Don't display password field if we're using anonymous uploads if ($::authentication_type) { # password field $upload_form.="$::S{57}\n"; $upload_form.="  
\n"; } $upload_form.="		\n"; if ($::authentication_type) { $upload_form.="\n"; $upload_form.="\n"; } $upload_form.="
    \n"; $upload_form.="$::S{58}$temp$::S{221}\n"; $upload_form.="
\n"; $upload_form.=""; $upload_form.="
 
$::S{59}\n"; # Use "per member" upload directories # if ($::per_member_upload && ($::authentication_type eq 2)) if (!$::per_member_upload || isAdmin()) { $upload_form.=< HTML $upload_form.=< HTML } else { $upload_form.="" } $upload_form.="
 
$::S{60}"; $upload_form.=<
$::S{61}
\n"; #$upload_form.="
\n"; $upload_form.="
"; $upload_form.="
"; #$upload_form.=""; #$upload_form.="
\n"; $upload_form.="\n"; debug("Leaving subroutine: showUploadForm()",4,__LINE__); return($upload_form); } ########################################################################## =head3 fileUpload() fileUpload($count); $count - The file number to process (must be between 1 and $::concurrent_uploads). Handles the nitty gritty file upload stuff. Called once for each file to upload. =cut sub fileUpload { my $count=shift; my $bytes_read=0; my $size=''; my $buff=''; my $start_time; my $time_taken; my $filename=''; my $write_file=''; my $user_quota; my $system_call; my $height; my $width; my $height2; my $width2; my $filepath; my $photo_title; my $photo_desc; my $category; my $temp; my $logname; my $output; my $dirtomk; $temp=$query->param("upload_file$count"); eval("\$filepath=\$temp"); $temp=$query->param("title$count"); eval("\$photo_title=\$temp"); $temp=$query->param("description$count"); eval("\$photo_desc=\$temp"); $temp=$query->param("category$count"); eval("\$category=\$temp"); my $errflag=0; debug("Entering subroutine: fileUpload($count);",4,__LINE__); debug("\$filepath: $filepath",3,__LINE__); debug("\$category: $category",3,__LINE__); debug("\$photo_title: $photo_title",3,__LINE__); debug("\$photo_desc: $photo_desc",3,__LINE__); if ($filepath =~ /([^\/\\]+)$/) { $filename="$1"; } else { $filename="$filepath"; } # Convert spaces to _'s and strip out any prohibited charactes in the filename $filename=~s/\s+/_/g; $filename=~tr/a-zA-Z0-9_./ /c; $filename=~s/\s+//g; # Is $::per_member_upload on? If so, change the category, and create the directory if it's not already there. if ($category eq "per_member_upload") { # UBB categories are user numbers, all others are user names if ($::authentication_type eq 2) { $category=$::usernumber; } else { $category=$::username; } chomp($category); # Fix provided by PattayaPete (junk@freelancerbar.com) $category=~s/^\s*(\S+)\s*$/$1/g; my $tempdir=$::album_dir; if ($::member_subdir) { $tempdir="$::album_dir/$::member_subdir"; chomp($tempdir); debug("Using \$::member_subdir, so target directory is now $tempdir",2,__LINE__); } $dirtomk="$tempdir/$category"; chomp($dirtomk); # Create directory for user, if not already present if (!(-d $dirtomk)) { if (createAlbum($::member_subdir,$category,$::displayname,"$::S{201} $::displayname$::S{226}",$::loggedin,1)) { print javaAlert("$::S{28} $dirtomk"); return; } } else { # Get quota by doing a scan recursiveScan($dirtomk); } # Fix up the category now so things work correctly from here on in... $category=$::member_subdir."/".$category; } # Check for any fooling around if (!(-d "$::album_dir/$category")) { error(__LINE__,"sanity","$::S{63} ($::album_dir/$category)"); } $write_file="$::album_dir/$category"."/"."$filename"; debug("Filename=$filename",2,__LINE__); debug("Writefile=$write_file [$::member_subdir]",2,__LINE__); debug("Checking to see if $write_file is a photo.",2,__LINE__); $::object=0; # Check file type if (!(isAPhoto($write_file) || (isAMovie($write_file) && $::movie_upload))) { print javaAlert("$::S{25} $::S{64} $filename $::S{65}"); $errflag=1; return; } # Don't overwrite, if not allowed if (!$::upload_overwrite) { if (-e $write_file) { print javaAlert("$::S{25} $::S{46} $filename $::S{66}"); $errflag=1; return; } } # Open file for writing if (!open(WFD,">$write_file")) { print javaAlert("$::S{25} $::S{67} $write_file $::S{68}"); return; } $start_time=time(); debug("Starting upload of [$filepath] into [$write_file] at time $start_time...",2,__LINE__); while ($bytes_read=read($filepath,$buff,2096)) { $size+=$bytes_read; debug("Uploading $size bytes so far...",3,__LINE__); debug("Buffer contains [$buff]",4,__LINE__); binmode WFD; print WFD $buff; } debug("size=$size",2,__LINE__); close(WFD); # Check to see if file exceeds set limit if ($size>($::upload_size_limit*1024)) { unlink($write_file); print javaAlert("$::S{25} $::S{69} $::upload_size_limit $::S{70}."); $errflag=1; return; } # Check to see if the user has exceeded their quota $user_quota=$::temp_quota_total+$size; debug("User's current used quota is $user_quota. They are allowed $::quota Kb.",2,__LINE__); if ($::per_member_upload && $::quota && ($user_quota > ($::quota*1024))) { unlink($write_file); print javaAlert("$::S{71} $::quota $::S{70} $::S{72}"); $errflag=1; return; } $time_taken=(stat $write_file)[7]; # Check to see if file is greater than size zero if ($time_taken <= 0) { unlink($write_file); print javaAlert("$::S{73} $filename $::S{75}$::S{74} $time_taken$::S{76}"); $errflag=1; return; } else { print javaAlert("$::S{46} $filename $::S{77} $size $::S{78}"); $time_taken=time()-$start_time; chomp($::displayname); # Update the description for this new photo updateDesc($filename,"$::album_dir/$category/",$photo_title,"$photo_desc

$::S{79} $::displayname$::S{226}",$::loggedin); debug("updateDesc($filename,\"$::album_dir/$category/\",$photo_title,\"$photo_desc

$::S{79} $::displayname$::S{226}\",$::loggedin);",3,__LINE__); $time_taken=0; # Set full filename $filepath="$::album_dir/$category/$filename"; # If desired, resize the photo if ($::pic_resize) { # Only resize "large" pics if (!$::always_pic_resize) { # Check the size of the pic $system_call="\"$::imagemagick/identify\" -verbose \"$filepath\""; debug("IMAGEMAGICK: $system_call",2,__LINE__); open(IMAGEMAGICK,"$system_call|") || error(__LINE__,"cant_fork","$system_call: $!"); $time_taken=1; while (($buff=) && $time_taken) { debug("$filename: $buff",4,__LINE__); if ($buff=~/\s*Geometry:\s+(.*)/) { $time_taken=0; $height=$width=$1; $width=~s/([^x]+)x([^x]+)/$1/; $height=~s/([^x]+)x([^x]+)/$2/; } } close(IMAGEMAGICK); # Pick out pic_resize height/width $height2=$width2=$::pic_resize; $width2=~s/([^x]*)x([^x]*)/$1/; $height2=~s/([^x]*)x([^x]*)/$2/; debug("Preferred image size is as follows: $width2 wide by $height2 high.",2,__LINE__); debug("$filename size is as follows: $width wide by $height high.",2,__LINE__); $time_taken=0; # Compare size to requested size if ((($height > $height2) && $height2) || (($width > $width2) && $width2)) { # The uploaded pic is bigger on at least one dimension, so resize is required $time_taken=1; debug("Picture is big, and needs to be scaled down.",2,__LINE__); } } else { $time_taken=1; } # Pic is being resized if ($time_taken) { $::thumb_quality=""; $::thumb_width=""; $start_time=genThumb($filepath,$filepath,1); } } # Some extra processing, if the file was uploaded properly if (!$errflag) { my $sysdate; # Log upload if ($::upload_logfile) { if ($::displayname) { $logname=$::displayname; } else { $logname=$::username; } $sysdate=setDate(time,1); open(UPLOADLOG,">>$::upload_logfile") || error(__LINE__,"cant_append","$::upload_logfile: $!"); print UPLOADLOG "$sysdate $ENV{'REMOTE_ADDR'} $logname $category/$filename\n"; close(UPLOADLOG); } # If there's an extra upload command, run it now if ($::postupload) { my $tempobject=""; my $tempcommand=$::postupload; # Convert ####OBJECT#### into the photo's full path $tempcommand=~s/####OBJECT####/"$filepath"/g; $tempobject="$filepath.$$"; if (!-e $tempobject) { $tempcommand.=" \"$tempobject\""; } debug("Running postupload task: $tempcommand",2,__LINE__); $output=`$tempcommand 2>&1`; debug("POSTUPLOAD RETURNED: $output",2,__LINE__); if ($output) { print "$::S{18} $output

"; } # If an object was created, replace the original with the new if (-e $tempobject) { unlink($filepath); if (!rename($tempobject,$filepath)) { print "$::S{150} $tempobject $::S{219}"; } } } } } debug("Leaving subroutine: fileUpload($count);",4,__LINE__); } ########################################################################## =head3 showFooter() $footer=showFooter($show); $show - If set to 0, the footer simply returned, if set to 1, it is displayed and returned. Rerturns or displays the HTML footer for all pages. =cut sub showFooter { my @allinfo; my $revdate; my $show=shift; if ($::create_html_flag) { $revdate=setDate(); $revdate="$::S{80} $revdate"; } else { @allinfo=stat($0); $revdate=localtime($allinfo[9]); } my $footer="

\n$::S{95} V$::ver

HTML # Check to see if the version is correct if (($::cfgver ne $::ver) && (($form->param('function') ne "$::config") && ($form->param('function') ne "$::updateconfig"))) { $::warning.="$::S{81} $::cfgver $::S{82} $::ver $::S{83}
"; } if ($::warning) { $footer.="
$::warning
"; } if ($show) { display($footer); } return($footer); } ########################################################################## =head3 buildTemplate() $template=buildTemplate(); $template = variable to pass the template back into Builds the object template, and returns it. =cut sub buildTemplate { my $template; my $shortdesctitle; my $template_loaded; $template_loaded=0; # Photo template if ($::photo) { open(TEMPLATE,"$::photo_template") || error(__LINE__,"not_readable","$::photo_template: $!"); debug("Using Template File: [$::photo_template]",2,__LINE__); $template_loaded=1; } # Upload Template if ($::function eq $::upload) { open(TEMPLATE,"$::upload_template") || error(__LINE__,"not_readable","$::upload_template: $!"); debug("Using Template File: [$::upload_template]",2,__LINE__); $template_loaded=1; } if ($::function eq "upute") { open(TEMPLATE,"$::upute_template") || error(__LINE__,"not_readable","$::upute_template: $!"); debug("Using Template File: [$::upute_template]",2,__LINE__); $template_loaded=1; } # Login Template if (($::function eq $::login_code) && !$::authenticated) { open(TEMPLATE,"$::login_template") || error(__LINE__,"not_readable","$::login_template: $!"); debug("Using Template File: [$::login_template]",2,__LINE__); $template_loaded=1; } # Album template if (!$template_loaded) { open(TEMPLATE,"$::album_template") || error(__LINE__,"not_readable","$::album_template: $!"); debug("Using Template File: [$::album_template]",2,__LINE__); } $template=join("",