• Arts
• Business
• Computers
• Games
• Health
• Home
• Kids and Teens
• News
• Recreation
• Reference
• Regional
• Science
• Shopping
• Society
• Sports

Point RPG Maker

#################### # MAIN PROGRAM $| = 1; $Version = "1.06"; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); &parse_form; &get_general_configuration; &get_individual_configuration; $command = $ENV{QUERY_STRING}; $referer = $ENV{HTTP_REFERER}; if (($command eq "admin") && ($referer =~ "$NewsScriptUrl")){ &check_passwd("$FORM{'name'}","$FORM{'password'}"); if ($flag == 1){ &admin; } else { $month = ($mon + 1); open(LOG, ">>$datadir/accessLog.txt"); print LOG "ACCESS DENIED : $month\/$mday\/$year at $hour:$min:$sec - tried from $ENV{'REMOTE_ADDR'}\n"; close(LOG); &error("The name and password are wrong. You must login before entering a restricted area."); } } elsif (($command eq "login") && ($referer =~ "$NewsScriptUrl")){ &login; } elsif (($command eq "add") && ($referer =~ "$NewsScriptUrl")){ if ($FORM{'addstory'}) { &addNews; } elsif ($FORM{'previewstory'}){ &previewNews; } } elsif (($command eq "edit") && ($referer =~ "$NewsScriptUrl")){ &editNews; } elsif (($command eq "editNews") && ($referer =~ "$NewsScriptUrl")){ &updateNews; } elsif ((($command eq "delete") || ($command eq "DELETE")) && ($referer =~ "$NewsScriptUrl")){ &deleteNews; } elsif (($command eq "deleteNews") && ($referer =~ "$NewsScriptUrl")){ &delNews; } elsif (($command eq "addAuthor") && ($referer =~ "$NewsScriptUrl")){ &addAuthor; } elsif (($command eq "editAuthor") && ($referer =~ "$NewsScriptUrl")){ &editAuthor; } elsif (($command eq "updateAut

Contact Information