__CODE__ use 5.005_03; use Mail::Mailer; use DBI; use CGI qw(:standard *table *Tr *td); use CGI::Carp qw(fatalsToBrowser); use sigtrap qw(die untrapped normal-signals); # Always try to run the END block. use integer; # Floating point numbers don't exist in this system. use strict; $CGI::POST_MAX = 4096 * 100; # Limits possible post size (slows DoS attacks). $CGI::DISABLE_UPLOADS = 1; # This script does not accept uploads (security). __CONST__ # GAME CONSTANTS GAME_NAME scalar "Hamline After Dark"; # name of game. HTML_TITLE scalar (GAME_NAME.": Automated Influence Processing"); # title for html. WEB_HOME scalar "http://corradiation.net/"; # Homepage of the game. DEF_TITLE scalar "Welcome to Automated Influence Processing."; # Default title. DESCRIPT scalar "WoD fun stuff in MN."; # Game description for search engines. WKSTART scalar 0; # Day of week index for opening the influence week. WKEND scalar 4; # Day of week ending influence week (exclusive). GROW_RATE scalar 3; # Rate at which influence grows. LANGUAGE scalar "en-US"; # Language description for META tag. KEYWORDS scalar GAME_NAME." ". # Keywords describing the game. HTML_TITLE." ". WEB_HOME." ". DESCRIPT." ". "White Wolf World of Darkness WoD Minneapolis Saint Paul St White Bear Lake ". "Township Roseville Falcon Heights Hamline Macalester University of Minnesota ". "UofM MSP Vampire the Masquerade LARP Live Action Role Play Rollenspiel "; # File locations CSS_LOC scalar "had.css"; # location of stylesheet. INTRO_LOC scalar "infrules.shtml"; # Intro Page HTML fragment. # Mailing configuration MAIL_ERRS scalar 0; # Should serious errors be mailed? MAIL_MTHD scalar "sendmail"; # First parameter from Mail::Mailer for description. MAILER_LOC scalar "/usr/sbin/sendmail"; # Where is it located? MAIL_TO scalar "chia\@europe.com"; # Address to mail errors to. MAIL_SPLT scalar "+".("-"x40).">"; # Beginning and end text for mailed error. # Database constants DB_TYPE scalar "mysql"; # database type for DBI. DB_HOST scalar "data.corradiation.net"; # hostname for SQL database. DB_NAME scalar "afterdark"; # the actual SQL datebase name. ACTLIMIT scalar 50; # The number of old acts to show. TRANSACTS scalar 0; # Are transactions supported? CHAR_BYTES scalar 1; # How many bytes each character takes in DB. CHARS_READ scalar (2**8); # Maximum number of characters to read. # Database IDS CITY_ID scalar 3; # ID of the city. SPYACT scalar 8; # The id for the "SPY" action in the database. HELPACT scalar 1; # The id of the "ASSIST" action in the database. # Formatting Constants TITLECLASS scalar "title"; # Used to title the page. MAINCLASS scalar "main"; # Primary class, used to define topmost table. SUBCLASS scalar "sub"; # Secondary classed, used in enclosed tables. ASKCLASS scalar "prompt"; # Class used for formatting prompt text and tables. DISPCLASS scalar "display"; # Class used to display report tables. GREATCLASS scalar "yay"; # Class used to display good messages/cells. DAMNCLASS scalar "shucks"; # Class used to display bad messages/cells. FOOTCLASS scalar "footer"; # Class used to display the footer. SIGCLASS scalar "signature"; # Class used for a signature. # Button Names -- Make sure there are no duplicates here or things break. GO_INTRO scalar "Return to Intro"; GO_READMSG scalar "Read Messages"; GO_RITEMSG scalar "Write Messages"; GO_NEWACT scalar "Posted Actions"; GO_LWKACT scalar "Last Week\'s Acts"; GO_PWKACT scalar "Prev Week\'s Acts"; GO_LWKSPY scalar "Last Week\'s Spies"; GO_PWKSPY scalar "Prev Week\'s Spies"; GO_ALLACT scalar "Last ".ACTLIMIT." Actions"; GO_ALLSPY scalar "Last ".ACTLIMIT." Spies"; GO_LOGIN scalar "Log In"; GO_LOGOUT scalar "Log Out"; GO_POSTMSG scalar "Post Message"; GO_ADDACT scalar "Add Action"; GO_POSTACT scalar "Post Action"; GO_DELACT scalar "Delete Action";