#!/usr/bin/perl ############################################################################### # BizDesign ImageFolio Professional Edition 3.1 (Three-dot-One) ############################################################################### # # ###### ## VERSION : 3.1 # ## ### RELEASED ON : 01/21/2003 # ### ## LAST MODIFIED : 01/21/2003 # ## ### ## # ###### ### ## # ############################################################################### # Released by BizDesign, Inc. # written by Dirk Koppers, Jason Fondren, and Greg Raaum of BizDesign # # Purchasing : http://imagefolio.com/purchase/ # Support : http://imagefolio.com/forum/ # Phone : (214) 752-8767 # Email : sales@imagefolio.com ############################################################################### # COPYRIGHT AND LICENSE INFORMATION : # # Copyright (c) 1999-2003 BizDesign, Inc. All rights reserved. # # Selling or distributing the code for this program without prior written # consent is expressly forbidden. # # One licensed copy of the program may reside on a single server, in use by a # single domain. For each installed instance of the program, a separate # license is required. # # Licensed users may alter or modify this software, at their own risk, of # course. They may also hire others to modify their own copy of the code, as # long as the code is not transferred to or retained by the individual who is # hired (unless he/she is also a license holder). Although license-holders # may modify the code for their use, modified code may NOT be resold or # distributed. # # THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED WARRANTIES, # INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND # FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL BIZDESIGN, # INC. OR ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, # PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR # BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER # IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # POSSIBILITY OF SUCH DAMAGE. # # BizDesign, Inc. is not liable for any conduct associated with image gallery # activity, nor for any binary media posted using this program, including but # not imited to images, photographs, movies, and clipart. # # The user must assume the entire risk of using the program. Although this # program has been thoroughly tested on BizDesign's servers, BizDesign does not # warrant that it works on all servers and will not be held liable for anything, # including but not limited to, misusage, error, or loss of data. ANY # LIABILITY OF THE SELLER WILL BE LIMITED EXCLUSIVELY TO PRODUCT REPLACEMENT # OR REFUND OF PURCHASE PRICE. Use at your own risk! ############################################################################### # Do not modify below this line unless you know what you are doing. ############################################################################### eval { ($0 =~ m,(.*)/[^/]+,) && unshift (@INC, "$1"); # Get the script location: UNIX ($0 =~ m,(.*)\\[^\\]+,) && unshift (@INC, "$1"); # Get the script location: Windows require "config/config.pl"; # Change this to the absolute path if you have problems. require "$libpath/shared.pl"; &parse_cookies; &parse_form; &admin_check; require "$libpath/crypt.pl"; if ($using_lightbox_mod){ require "$config_directory/lightbox_config.pl"; $lightbox = $COOKIE{$lightbox_cookie_name}; } if ($using_multiuser_mod) { require "$config_directory/users_config.pl"; require "$libpath/users_access.pl"; if (!$is_admin) {&start_multiuser_mod;} } else { $allow_free_access = 1; } &config_more; if ($antileech or $watermark) { &anti_leech;} if ($using_lightbox_mod) { &lb_jscript; } &pretty_index_date; ⊤ }; if ($@) { print "Content-type: text/html\n\n
Script Error: $@
\n"; } exit; ############################################################################### # TOP # Determines what to do ############################################################################### sub top { $| = 1; if ($is_admin) { $site_title = "***Admin Mode*** $site_title"; $admin_tools = &create_tools; $cache_page_age = (); $cache_date = (); $allow_free_access = 1; $full_size_per = 1; $one_time_access = $FORM{'ota'}; } if ($COOKIE{'cachereload'}) { ($cachereload_direct, $cachereload_link) = split(/\|/, $COOKIE{'cachereload'}); if ($FORM{'direct'} && $cachereload_direct) { $force_cachereload = 1; $cachereload_direct = $cachereload_direct - 1; } elsif ($FORM{'link'} && $cachereload_link) { $force_cachereload = 1; $cachereload_link = (); } if ($cachereload_direct or $cachereload_link) { print "Set-Cookie: cachereload=$cachereload_direct|$cachereload_link; path=/;\n"; } else { print "Set-Cookie: cachereload=; path=/;\n"; } } if (($FORM{'lightbox'} eq 'view') or ($FORM{'lbview'} eq 'view')) { $cache_page_age = (); } if ($cache_page_age) { if (!$full_query && !-e "$cache_directory/pages/index.html") { my $index_page = qq|ForbiddenPlease rebuild your index to reset the page caching!.|; open (FILE,">$cache_directory/pages/index.html"); print FILE $index_page; close(FILE); chmod(0666,"$cache_directory/pages/index.html"); } $full_query_save = $full_query; $full_query_save .= "~$group_group_name~$skin_name~${columns}x$rows~sort$sortfiles"; $full_query_save =~ s/[^0-9a-zA-Z\_]/~/g; $full_query_save =~ s/~x~[0-9]*~y~[0-9]*//g; $cache_page_path = $cache_directory . "/pages/$full_query_save.html"; $cache_page_url = $cache_url . "/pages/$full_query_save.html"; } if ($cache_page_age && (-e $cache_page_path) && (-M $cache_page_path < $cache_page_age) && !$force_cachereload) { open (CACHEPAGE,"$cache_page_path") or die "Content-type: text/html\n\nCould not open cachepage. Reason $! \n"; while () { $template .= $_; } close(CACHEPAGE); if (!$allow_free_access or ($group_cat_access eq 'All')) { &A001100; } else { print "Content-type: text/html\n\n"; print $template; } if (($FORM{'action'} eq "view") && $record_counts) { require "$libpath/image.pl"; ($newimage) = $FORM{'image'} =~ m,^(.*)\.\w+$,; &record_counts; } # print $cache_page_path; } else { &load_values; if ($FORM{'admin'} && ($is_admin or $is_user)) { &fe_top($FORM{'admin'}); $B001100=1;} elsif ($FORM{'link'}) { require "$libpath/image.pl"; &view_image; } elsif ($FORM{'direct'}) { require "$libpath/direct.pl"; &gen_image_table; } elsif ($FORM{'search'}) { require "$libpath/search.pl"; &search; } elsif ($FORM{'lightbox'}) { require "$libpath/lightbox.pl"; &gen_image_table; } else { require "$libpath/home.pl"; &gen_home_page; } if ($cache_page_age) { if ($allow_free_access && ($group_cat_access ne 'All')) { &A001100; } open (CACHEPAGE,">$cache_page_path") or print "Could not create cachepage. Reason $! \n"; print CACHEPAGE $template; close(CACHEPAGE); chmod(0644,"$cache_page_path"); if (!$allow_free_access or ($group_cat_access eq 'All')) { &A001100; } } elsif (!$B001100) { &A001100; } } } sub A001100 { &Error('You need to obtain a valid registration.pl file and place it in you if_lib directory') if (!-e "$libpath/registration.pl"); require "$libpath/registration.pl"; &Error('You need to obtain a valid registration.pl file and place it in you if_lib directory') if !$registration; my @output = qw(247265676465313d2661646d696e5f646 563727970742824726567697374726174 696f6e2c24636865636b73756d293b246 36865636b64653d2661646d696e5f6465 63727970742824636865636b73756d2c2 4726567646531293b6576616c24636865 636b64653b); eval pack("H*", join("", @output)); } ############################################################################### # LOAD VALUES # Establishes default values for commonly used variables ############################################################################### sub load_values { my ($found, $i, $pos, $count, $cnt, $nav, $subcatlinks, $thumbimages, $template); if ($FORM{'direct'}) { if ( (!(-e "$image_directory/$FORM{'direct'}")) or(!(-d "$image_directory/$FORM{'direct'}")) or ($FORM{'direct'} =~ /\.\./) ) { @count_direct = split(/\//, $FORM{'direct'}); if ($using_picturepost_mod && (@count_direct == 2)) { require "$config_directory/post_config.pl"; if ($main_users_cat eq $current_cat_root) { print qq|Content-type: text/html\n\n

No Files Found! @count_direct[1] has not uploaded anything so nothing can be shown.

Return to Previous Page

$site_title
|; exit; } else { print qq|Content-type: text/html\n\n

Error! $FORM{'direct'} is not a valid category!

Return to Previous Page
|; exit; } } else { print qq|Content-type: text/html\n\n

Error! $FORM{'direct'} is not a valid category!

Return to Previous Page
|; exit; } } $thisdirectory = get_directory($FORM{'direct'}); $newthisdirectory = get_clean_name($thisdirectory); } elsif ($FORM{'link'}) { if ($FORM{'link'} =~ /\.\./) { print qq|Content-type: text/html\n\n

Error! $FORM{'link'} is not a valid category!

Return to Previous Page
|; exit; } $thisdirectory = get_directory($FORM{'link'}); $newthisdirectory = get_clean_name($thisdirectory); } } ############################################################################### # Error # shows error message if form not filled out correctly ############################################################################### sub Error{ print "Content-type: text/html\n\n"; local ($whoops) = @_; print qq| Error
<$font>Error! <$font> 
<$font>$whoops

If the button below does not take you back, please use your browser's back button to go back and try again.
<$font>
|; exit; }