#!/usr/bin/perl $| = 1; print "Content-type: text/html

"; &require_supporting_libraries (__FILE__, __LINE__, "./Library/cgi-lib.pl", "./Library/cookies.lib", "./SetupFiles/domain.reg", "./SetupFiles/channels.reg"); &ReadParse(*form_data); print "

"; #if($form_data{'setup_file'} !~ /ssnews/){$form_data{'test'} = "x";} # show most recent instead of search on frontpage #if($form_data{'setup_file'} !~ /ssgnews/){$form_data{'test'} = "x";} # show most recent instead of search on frontpage #if (($form_data{'show_article'} eq "")&&($form_data{'setup_file'} =~ /news2/)&&($form_data{'setup_file'} !~ /ssnews/)&&($form_data{'test'} ne "x")) #{ # print qq~The server is too busy right now for this request. Please try again in a few minutes.~; # exit; #} $uptime_str = `/usr/bin/uptime`; $valUT1 = (split(/\,/,$uptime_str))[3]; $valUT1 =~ s/load averages: //; if($valUT1 > 6) { print qq~The server is too busy to safely handle this request. ($valUT1) Please try again in a few moments.~; exit; } %current_guides = ( "fig","Figures.com","ss","SirStevesGuide.com", "wr","WrestlingGuide.com","mf","McFarlaneGuide.com","cjt","CoolJapaneseToys.com"); $form_data{'keywords'} =~ s/\^/ /g; $ad_pages_cgi = "./banners/ad-pages.cgi"; $sys_admin_cgi = "system_admin.cgi"; srand(time|$$); $page_NUM = int(rand 500) + 1; ############ SECURITY SCREEN ############ # &require_supporting_libraries (__FILE__, __LINE__, # "./Library/security-lib.pl"); # &security_check_1; ############ END SECURITY SCREEN ######## if ($form_data{'ad_pages_menu'} eq "show_list_of_advertisers") { $referrer2 = $ENV{'HTTP_REFERER'}; if($referrer2 =~ /figures|27/) { $domain = "fig"; $form_data{'category'} = "actionfigures"; } if($referrer2 =~ /steve|51/) { $domain = "ss"; $form_data{'category'} = "starwars"; } if($referrer2 =~ /farlane|75/) { $domain = "mf"; $form_data{'category'} = "mcfarlane"; } if($referrer2 =~ /wrest|119/) { $domain = "wr"; $form_data{'category'} = "wrestling"; } unless ($form_data{'setup_file'}) {$form_data{'setup_file'} = "news2.setup";} } if($form_data{'domain'} eq "") { SWITCH: { if ($form_data{'setup_file'} =~ /^fig/) {$domain = "fig"; last SWITCH;} if ($form_data{'setup_file'} =~ /^ss/) {$domain = "ss"; last SWITCH;} if ($form_data{'setup_file'} =~ /^tom/) {$domain = "tom"; last SWITCH;} if ($form_data{'setup_file'} =~ /^tt/) {$domain = "tt"; last SWITCH;} if ($form_data{'setup_file'} =~ /^wr/) {$domain = "wr"; last SWITCH;} if ($form_data{'setup_file'} =~ /^mf/) {$domain = "mf"; last SWITCH;} if ($form_data{'setup_file'} =~ /^pk/) {$domain = "pk"; last SWITCH;} if ($form_data{'setup_file'} =~ /^lotr/) {$domain = "lotr"; last SWITCH;} if ($form_data{'setup_file'} =~ /^mm/) {$domain = "mm"; last SWITCH;} if ($form_data{'setup_file'} =~ /^osw/) {$domain = "osw"; last SWITCH;} if ($form_data{'setup_file'} =~ /^sh/) {$domain = "sh"; last SWITCH;} if ($form_data{'setup_file'} =~ /^c/) {$domain = "cjt"; last SWITCH;} if ($form_data{'setup_file'} =~ /^nn/) {$domain = "nn"; last SWITCH;} } } SWITCH: { if ($form_data{'setup_file'} =~ /eds2/) {$setup_file = "classifieds2.setup"; last SWITCH;} if ($form_data{'setup_file'} =~ /eds/) {$setup_file = "classifieds.setup"; last SWITCH;} if ($form_data{'setup_file'} =~ /rum2/) {$setup_file = "forum2.setup"; last SWITCH;} if ($form_data{'setup_file'} =~ /rum/) {$setup_file = "forum.setup"; last SWITCH;} if ($form_data{'setup_file'} =~ /ews2/) {$setup_file = "news2.setup"; last SWITCH;} if ($form_data{'setup_file'} =~ /ews/) {$setup_file = "news.setup"; last SWITCH;} if ($form_data{'setup_file'} =~ /ctions2/) {$setup_file = "collections2.setup"; last SWITCH;} if ($form_data{'setup_file'} =~ /ctions/) {$setup_file = "collections.setup"; last SWITCH;} if ($form_data{'setup_file'} =~ /zations2/) {$setup_file = "customizations2.setup"; last SWITCH;} if ($form_data{'setup_file'} =~ /zations/) {$setup_file = "customizations.setup"; last SWITCH;} if ($form_data{'setup_file'} =~ /cations2/) {$setup_file = "publications2.setup"; last SWITCH;} if ($form_data{'setup_file'} =~ /cations/) {$setup_file = "publications.setup"; last SWITCH;} if ($form_data{'setup_file'} =~ /ures2/) {$setup_file = "features2.setup"; last SWITCH;} if ($form_data{'setup_file'} =~ /ures/) {$setup_file = "features.setup"; last SWITCH;} if ($form_data{'setup_file'} =~ /nies2/) {$setup_file = "beanies2.setup"; last SWITCH;} if ($form_data{'setup_file'} =~ /nies/) {$setup_file = "beanies.setup"; last SWITCH;} } if ($form_data{'setup_file'} eq "") { $domain = "fig"; $setup_file = "news2.setup"; $form_data{'category'} = "actionfigures"; } if ($domain eq "") {$domain = "fig"; } if ($form_data{'category'} eq "") {$form_data{'category'} = "actionfigures";} $category = $form_data{'category'}; $domain_NAME = $domain_names{"$domain"}; $cat_NAME = $cat_names{"$category"}; if ($setup_file =~ /pub/) {$cat_NAME = "";} $keywords = $form_data{'keywords'}; if(($form_data{'topic'} eq "") && ($form_data{'default_topic'} ne "")) {$form_data{'topic'} = $form_data{'default_topic'};} if (($form_data{'setup_file'} =~ /classi|forum/) && ($domain ne "tom") && ($form_data{'ad_pages_menu'} eq "")) { if ($domain eq "ss") { } elsif ($domain eq "mf") { } elsif ($domain eq "hw") { } elsif ($domain eq "wr") { } elsif ($domain eq "pk") { } else { } print qq~

We've Updated our Forums and Classifieds

and ADDED a LINKS system! Please click on the links below.

Your current logon will work on these new systems.

(with a few exceptions such as any duplicate usernames we found -

just re-register if that's the case and you want to post.) Some of the categories have been combined.

Most of the recent posts from the old system

HAVE been transferred over FORUMS

CLASSIFIEDS

LINKS

Please report any bugs to: ACTION ON-LINE

