saint/discourse-legacysite-perl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

First pass at adding key files

Browse Source
This commit is contained in:
dsainty
2024-06-17 21:49:12 +10:00
commit aa25e9347f
1274 changed files with 392549 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
site/slowtwitch.com/cgi-bin/webadverts/ads.pl Executable file
View File

@ -0,0 +1,56 @@
#!/usr/bin/perl
############################################
## ##
## WebAdverts (Configuration) ##
## by Darryl Burgdorf ##
## (e-mail burgdorf@awsd.com) ##
## ##
## version: 3.20 ##
## last modified: 09/08/02 ##
## copyright (c) 2002 ##
## ##
## latest version is available from ##
## http://awsd.com/scripts/ ##
## ##
############################################
# Define the location of your "ads_settings" file.
$ADVsettings_path = "/home/slowtwitch/slowtwitch.com/cgi-bin/webadverts/ads_settings.pl";
# Define the URL of this configuration file:
$ADVdisplay_cgi = "http://www.slowtwitch.com/cgi-bin/webadverts/ads.pl";
# Define the zone, if any, unique to this configuration file:
$ADVadvertzone = "";
# NOTHING BELOW THIS LINE NEEDS TO BE ALTERED!
require $ADVsettings_path;
unless ($ADVNoPrint) {
if ($ARGV[0]) { $ADVQuery = $ARGV[0]; }
else { $ADVQuery = $ENV{'QUERY_STRING'}; }
}
if ($ADVUseCookies && $ADVCheckForCookie && ($ADVQuery =~ /page=/)
&& ($ADVQuery !~ /advert=/) && ($ADVQuery !~ /banner=/)
&& ($ENV{'HTTP_COOKIE'} !~ /TestCookie=TestValue/)
&& ($ADVQuery !~ /checkforcookie/)) {
if ($ENV{'PERLXS'} eq "PerlIS") { print "HTTP/1.0 301 Found\n"; }
else { print "Status: 301 Found\n"; }
print "Set-Cookie: TestCookie=TestValue\n";
print "location: $ADVdisplay_cgi?$ADVQuery;checkforcookie\n\n";
exit;
}
elsif ($ADVCheckForCookie
&& ($ENV{'HTTP_COOKIE'} !~ /TestCookie=TestValue/)) {
$ADVUseCookies = 0;
}
require $ADVdisplay_path;
&ADVsetup;
unless ($ADVNoPrint) { reset 'A-Za-z'; exit; }
1;

4541
site/slowtwitch.com/cgi-bin/webadverts/ads_admin.pl Executable file
View File

File diff suppressed because it is too large Load Diff

1128
site/slowtwitch.com/cgi-bin/webadverts/ads_display.pl Executable file
View File

File diff suppressed because it is too large Load Diff

312
site/slowtwitch.com/cgi-bin/webadverts/ads_rebuild.pl Executable file
View File

@ -0,0 +1,312 @@
############################################
## ##
## WebAdverts (Rebuild) ##
## by Darryl Burgdorf ##
## (e-mail burgdorf@awsd.com) ##
## ##
## version: 3.20 ##
## last modified: 09/08/02 ##
## copyright (c) 2002 ##
## ##
## latest version is available from ##
## http://awsd.com/scripts/ ##
## ##
############################################
# NOTHING BELOW THIS LINE NEEDS TO BE ALTERED!
sub RebuildDatabase {
&ConfirmAdminPassword(1);
unlink ("$ADVadverts_dir/adcount.txt");
foreach $key (a..z,0..9) {
unless (-d "$ADVadverts_dir/$key") {
mkdir ("$ADVadverts_dir/$key",0777);
chmod 0777,"$ADVadverts_dir/$key";
}
}
opendir (FILES,$ADVadverts_dir);
@files = readdir(FILES);
closedir (FILES);
&ADVLockOpen (GRPLIST, "groups.txt");
seek (GRPLIST,0,0);
foreach $file (@files) {
if ($file =~ /(.*)\.grp$/) {
$AccountName = $1;
&CheckName;
rename ("$ADVadverts_dir/$1\.grp","$ADVadverts_dir/$AccountName\.grp");
print GRPLIST "$AccountName\n"; }
}
truncate (GRPLIST, tell(GRPLIST));
&ADVLockClose (GRPLIST, "groups.txt");
&ADVLockOpen (ADVLIST, "adlist.txt");
@adverts = <ADVLIST>;
chomp (@adverts);
seek (ADVLIST,0,0);
foreach $advert (@adverts) {
next unless ($advert);
$AccountName = $advert;
&CheckName;
next if ($OnList{$AccountName});
next unless ((-e "$ADVadverts_dir/$advert.txt")
|| (-e "$ADVadverts_dir/$subdir/$AccountName.txt"));
unless (-d "$ADVadverts_dir/$subdir") {
mkdir ("$ADVadverts_dir/$subdir",0777);
chmod 0777,"$ADVadverts_dir/$subdir";
}
foreach $file (@files) {
if (($file =~ /^$advert\.(txt)/)
|| ($file =~ /^$advert\.(log)/)
|| ($file =~ /^$advert\.(\d\d\d\d\.log)/)) {
rename ("$ADVadverts_dir/$file",
"$ADVadverts_dir/$subdir/$AccountName.$1");
}
}
print ADVLIST "$AccountName\n";
$OnList{$AccountName} = 1;
}
truncate (ADVLIST, tell(ADVLIST));
&ADVLockClose (ADVLIST, "adlist.txt");
&ADVLockOpen (ADVLIST, "adnew.txt");
@adverts = <ADVLIST>;
chomp (@adverts);
seek (ADVLIST,0,0);
foreach $advert (@adverts) {
next unless ($advert);
$AccountName = $advert;
&CheckName;
next if ($OnList{$AccountName});
next unless ((-e "$ADVadverts_dir/$advert.txt")
|| (-e "$ADVadverts_dir/$subdir/$AccountName.txt"));
unless (-d "$ADVadverts_dir/$subdir") {
mkdir ("$ADVadverts_dir/$subdir",0777);
chmod 0777,"$ADVadverts_dir/$subdir";
}
foreach $file (@files) {
if (($file =~ /^$advert\.(txt)/)
|| ($file =~ /^$advert\.(log)/)
|| ($file =~ /^$advert\.(\d\d\d\d\.log)/)) {
rename ("$ADVadverts_dir/$file",
"$ADVadverts_dir/$subdir/$AccountName.$1");
}
}
print ADVLIST "$AccountName\n";
$OnList{$AccountName} = 1;
}
foreach $advertcheck (@files) {
if ($advertcheck =~ /^dbmlist/) { unlink ("$ADVadverts_dir/$advertcheck"); }
next unless ($advertcheck =~ /(.*)\.txt$/);
$advert = $1;
next if (($advert eq "adcount") || ($advert eq "adlist") || ($advert eq "adminlog")
|| ($advert eq "adnew") || ($advert eq "adpassword") || ($advert eq "dupclicks")
|| ($advert eq "dupviews") || ($advert eq "groups") || ($advert eq "register")
|| ($advert eq "reject") || ($advert eq "welcome") || ($advert eq "update"));
$AccountName = $advert;
&CheckName;
next if ($OnList{$AccountName});
open (DISPLAY, "$ADVadverts_dir/$advert.txt");
@lines = <DISPLAY>;
close (DISPLAY);
chomp (@lines);
($max,$shown,$visits,$url,$image,$height,$width,
$alt,$pass,$text,$start,$weight,$zone,
$border,$target,$raw,$displayratio,$username,$email,
$displayzone,$clicksfrom) = @lines;
next unless ($max || $displayratio || $clicksfrom);
($max,$maxtype) = split(/\|/, $max);
($displayratio,$displaycount) = split(/\|/, $displayratio);
($clicksfrom,$clicksratio) = split(/\|/, $clicksfrom);
next if (($max =~ /[^\d-]/)
|| ($shown =~ /[^\d-]/) || ($visits =~ /[^\d-]/)
|| ($start =~ /[^\d-]/) || ($weight =~ /[^\d-]/)
|| ($displayratio =~ /[^\d-]/) || ($displaycount =~ /[^\d-]/)
|| ($clicksfrom =~ /[^\d-]/) || ($clicksratio =~ /[^\d-]/));
unless (-d "$ADVadverts_dir/$subdir") {
mkdir ("$ADVadverts_dir/$subdir",0777);
chmod 0777,"$ADVadverts_dir/$subdir";
}
foreach $file (@files) {
if (($file =~ /^$advert\.(txt)/)
|| ($file =~ /^$advert\.(log)/)
|| ($file =~ /^$advert\.(\d\d\d\d\.log)/)) {
rename ("$ADVadverts_dir/$file",
"$ADVadverts_dir/$subdir/$AccountName.$1");
}
}
print ADVLIST "$AccountName\n";
$OnList{$AccountName} = 1;
}
foreach $key (a..z,0..9) {
opendir (FILES,"$ADVadverts_dir/$key");
@files = readdir(FILES);
closedir (FILES);
foreach $file (@files) {
unless (($file =~ /^\./) || $OnList{$file}) {
print ADVLIST "$file\n";
$OnList{$AccountName} = 1;
}
}
}
truncate (ADVLIST, tell(ADVLIST));
&ADVLockClose (ADVLIST, "adnew.txt");
&ADVLockOpen (DBMLIST, "dbmlist.txt");
if ($ADVlockerror) { &Error_DBM; }
else {
&ADVDBMOpen;
if ($ADVdbmerror) { &Error_DBM; }
else {
%DBMList = ();
$DBMList{'adcount.txt'} = "1\n0\n$time";
foreach $account (keys %OnList) {
$subdir = substr($account,0,1);
$subdir .= "/$account";
open (DISPLAY, "$ADVadverts_dir/$subdir/$account.txt");
@lines = <DISPLAY>;
close (DISPLAY);
chomp (@lines);
($max,$shown,$visits,$url,$image,$height,$width,
$alt,$pass,$text,$start,$weight,$zone,
$border,$target,$raw,$displayratio,$username,$email,
$displayzone,$clicksfrom) = @lines;
if ($image) { $image = "X"; }
if ($raw =~ /<SCRIPT/) { $raw = "J"; }
elsif ($raw) { $raw = "X"; }
$DBMList{$account} = "$max\t$shown\t$visits\t$image\t$start\t$weight\t";
$DBMList{$account} .= "$zone\t$raw\t$displayratio\t$clicksfrom";
}
&ADVDBMClose;
}
}
&ADVLockClose (DBMLIST, "dbmlist.txt");
if ($AdminDisplaySetup) { &defineview; }
else {
$INPUT{'whichtype'} = "pending established groups";
$INPUT{'whichtime'} = "active expired disabled";
$INPUT{'whichzone'} = "";
&reviewall;
}
}
sub CheckDatabase {
&ConfirmAdminPassword(1);
&Header("WebAdverts","WebAdverts Database Integrity Check");
print "<P ALIGN=CENTER><BIG><BIG><STRONG>";
print "WebAdverts Database Integrity Check";
print "</STRONG></BIG></BIG>\n";
open (ADVLIST, "$ADVadverts_dir/adnew.txt");
while (defined($ADVlist = <ADVLIST>)) {
chomp $ADVlist;
$Adverts_List{$ADVlist} = 1;
$MasterList{$ADVlist} = 1;
}
close (ADVLIST);
open (ADVLIST, "$ADVadverts_dir/adlist.txt");
while (defined($ADVlist = <ADVLIST>)) {
chomp $ADVlist;
$Adverts_List{$ADVlist} = 1;
$MasterList{$ADVlist} = 1;
}
close (ADVLIST);
opendir (FILES,$ADVadverts_dir);
@files = readdir(FILES);
closedir (FILES);
foreach $advertcheck (@files) {
next unless ($advertcheck =~ /(.*)\.txt$/);
$advert = $1;
next if (($advert eq "adcount") || ($advert eq "adlist") || ($advert eq "adminlog")
|| ($advert eq "adnew") || ($advert eq "adpassword") || ($advert eq "dbmlist")
|| ($advert eq "dupclicks") || ($advert eq "dupviews") || ($advert eq "groups")
|| ($advert eq "register") || ($advert eq "reject") || ($advert eq "welcome")
|| ($advert eq "update"));
open (DISPLAY, "$ADVadverts_dir/$advert.txt");
@lines = <DISPLAY>;
close (DISPLAY);
chomp (@lines);
($max,$shown,$visits,$url,$image,$height,$width,
$alt,$pass,$text,$start,$weight,$zone,
$border,$target,$raw,$displayratio,$username,$email,
$displayzone,$clicksfrom) = @lines;
next unless ($max || $displayratio || $clicksfrom);
($max,$maxtype) = split(/\|/, $max);
($displayratio,$displaycount) = split(/\|/, $displayratio);
($clicksfrom,$clicksratio) = split(/\|/, $clicksfrom);
next if (($max =~ /[^\d-]/)
|| ($shown =~ /[^\d-]/) || ($visits =~ /[^\d-]/)
|| ($start =~ /[^\d-]/) || ($weight =~ /[^\d-]/)
|| ($displayratio =~ /[^\d-]/) || ($displaycount =~ /[^\d-]/)
|| ($clicksfrom =~ /[^\d-]/) || ($clicksratio =~ /[^\d-]/));
$Adverts_Physical{$advert} = 1;
$MasterList{$advert} = 1;
}
foreach $key (a..z,0..9) {
opendir (FILES,"$ADVadverts_dir/$key");
@files = readdir(FILES);
closedir (FILES);
foreach $file (@files) {
unless ($file =~ /^\./) {
$Adverts_Physical{$file} = 1;
$MasterList{$file} = 1;
}
}
}
&ADVLockOpen (DBMLIST, "dbmlist.txt");
if ($ADVlockerror) { &Error_DBM; }
else {
&ADVDBMOpen;
if ($ADVdbmerror) { &Error_DBM; }
else {
foreach $account (keys %DBMList) {
next if ($account eq "adcount.txt");
$Adverts_DBM{$account} = 1;
$MasterList{$account} = 1;
($dbmmax,$dbmshown,$dbmvisits,$dbmimage,$dbmstart,$dbmweight,
$dbmzone,$dbmraw,$dbmdisplayratio,$dbmclicksfrom) = split(/\t/,$DBMList{$account});
$subdir = substr($account,0,1);
$subdir .= "/$account";
next unless (-s "$ADVadverts_dir/$subdir/$account.txt");
open (DISPLAY, "<$ADVadverts_dir/$subdir/$account.txt");
@lines = <DISPLAY>;
close (DISPLAY);
chomp (@lines);
($max,$shown,$visits,$url,$image,$height,$width,
$alt,$pass,$text,$start,$weight,$zone,
$border,$target,$raw,$displayratio,$username,$email,
$displayzone,$clicksfrom) = @lines;
if (($max eq $dbmmax) && ($shown eq $dbmshown) && ($visits eq $dbmvisits)
&& ($start eq $dbmstart) && ($weight eq $dbmweight) && ($zone eq $dbmzone)
&& ($displayratio eq $dbmdisplayratio) && ($clicksfrom eq $dbmclicksfrom)) {
$Adverts_Match{$account} = 1;
}
}
&ADVDBMClose;
}
}
&ADVLockClose (DBMLIST, "dbmlist.txt");
print "<P><CENTER><TABLE BORDER CELLPADDING=3>\n";
print "<TR><TH>Account</TH><TH>List?</TH><TH>Physical?</TH><TH>DBM?</TH><TH>Match?</TH></TR>\n";
foreach $key (sort (keys %MasterList)) {
print "<TR><TD>$key</TD>";
if ($Adverts_List{$key}) { print "<TD ALIGN=CENTER>X</TD>"; }
else { print "<TD>&nbsp;</TD>"; $NotOK = 1; }
if ($Adverts_Physical{$key}) { print "<TD ALIGN=CENTER>X</TD>"; }
else { print "<TD>&nbsp;</TD>"; $NotOK = 1; }
if ($Adverts_DBM{$key}) { print "<TD ALIGN=CENTER>X</TD>"; }
else { print "<TD>&nbsp;</TD>"; $NotOK = 1; }
if ($Adverts_Match{$key}) { print "<TD ALIGN=CENTER>X</TD>"; }
else { print "<TD>&nbsp;</TD>"; $NotOK = 1; }
print "</TR>\n";
}
print "</TABLE>\n<P><STRONG>";
if ($NotOK) {
print "There seem to be problems. Try rebuilding the database.\n";
print "<P><FORM METHOD=POST ACTION=$admin_cgi>",
"<INPUT TYPE=HIDDEN NAME=password VALUE=$INPUT{'password'}>",
"<INPUT TYPE=SUBMIT NAME=rebuild VALUE=\"Rebuild Database\">",
"</FORM>\n";
}
else { print "Everything seems to be fine; all data is consistent.\n"; }
print "</CENTER>\n";
&LinkBack;
&Footer;
}
1;

156
site/slowtwitch.com/cgi-bin/webadverts/ads_settings.pl Executable file
View File

@ -0,0 +1,156 @@
############################################
## ##
## WebAdverts (Master Settings) ##
## by Darryl Burgdorf ##
## (e-mail burgdorf@awsd.com) ##
## ##
## version: 3.20 ##
## last modified: 09/08/02 ##
## copyright (c) 2002 ##
## ##
## latest version is available from ##
## http://awsd.com/scripts/ ##
## ##
############################################
# COPYRIGHT NOTICE:
#
# Copyright 2002 Darryl C. Burgdorf. All Rights Reserved.
#
# This program is being distributed as shareware. It may be used and
# modified by anyone, so long as this copyright notice and the header
# above remain intact, but any usage should be registered. (See the
# program documentation for registration information.) Selling the
# code for this program without prior written consent is expressly
# forbidden. Obtain permission before redistributing this program
# over the Internet or in any other medium. In all cases copyright
# and header must remain intact.
#
# Certain subroutines and code segments utilized in this program are
# adapted from code written by Kevin Dearing of webjourneymen.net
# and dacpro.com, and are used with permission.
#
# This program is distributed "as is" and without warranty of any
# kind, either express or implied. (Some states do not allow the
# limitation or exclusion of liability for incidental or consequential
# damages, so this notice may not apply to you.) In no event shall
# the liability of Darryl C. Burgdorf and/or Affordable Web Space
# Design for any damages, losses and/or causes of action exceed the
# total amount paid by the user for this software.
# DEFINE THESE CONFIGURATION VARIABLES!
# The following variables affect display of banners. They should be
# defined in accordance with the detailed information provided in the
# documentation file.
$ADVdisplay_path = "/home/slowtwitch/slowtwitch.com/cgi-bin/webadverts/ads_display.pl";
$ADVadverts_dir = "/home/slowtwitch/slowtwitch.com/www/webadverts";
$ADVUseLocking = 1;
$ADVUseCookies = 1;
$ADVCheckForCookie = 1;
$GraphicTimestamp = 0;
$ADVLogIP = 1;
$ADVResolveIPs = 0;
$DupViewTime = 0;
$DupClickTime = 0;
$ClickViewTime = 0;
$LogByZone = 0;
$ADVRandomizeList = 1;
$DefaultBanner = "";
$ADVIgnoredIPs = "";
$ADVRequireMember = 0;
$ADVIFRAMEbodyspec = "BGCOLOR=\"#ffffff\" TEXT=\"#000000\"";
$ADVIFRAMErefreshrate = 0;
$ADVIFRAMEJSConflict = 0;
$ADVJSConflict = 1;
$ADVDBMType = 0;
$ADVHourOffset = 0;
# The following variables affect the functioning of your administrative
# script. They should be defined in accordance with the detailed
# information provided in the documentation file.
if ($AdminRun) {
$admin_cgi = "http://www.slowtwitch.com/cgi-bin/webadverts/ads_admin.pl";
$nonssi_cgi = "http://www.slowtwitch.com/cgi-bin/webadverts/ads.pl";
@zones = ();
$AdminDisplaySetup = 0;
$AllowUserEdit = 0;
$RequireAdminApproval = 1;
$LogAdminAccesses = 1;
$BannedIPs = "";
$MasterIPLogDays = 7;
$IPLog = "";
$UserUploadDir = "";
$UserUploadURL = "";
$MaxBannerSize = 20;
$RequireUpload = 0;
$DefaultDisplayRatio = 2;
$DefaultClicksRatio = 0;
$ShowClicksFrom = 0;
$DefaultWeight = 1;
$DefaultBorder = 0;
$NoBanners = 0;
$IFRAMEexchange = 1;
$JavaScriptExchange = 1;
$ExchangeName = "WebAdverts Advertisers";
$ExchangeURL = "";
$ExchangeLogo = "";
$ExchangeLogoWidth = 0;
$ExchangeLogoHeight = 0;
$ExchangeLogoPosition = "";
$ExchangeBannerWidth = 0;
$ExchangeBannerHeight = 0;
$ExchangeBorder = 0;
$DefaultLinkAttribute = "TARGET=&quot;_blank&quot;";
$bodyspec = "BGCOLOR=\"#ffffff\" TEXT=\"#000000\"";
$fontspec = "FACE=\"Arial\"";
$MetaFile = "";
$header_file = "";
$footer_file = "";
$admin_name = "Slowman";
$email_address = "slowman\@slowtwitch.com";
$mailprog = '/usr/sbin/sendmail';
$WEB_SERVER = "";
$SMTP_SERVER = "";
}
# use Socket;
# use Net::SMTP;
# DO NOT REMOVE THE FOLLOWING ("1;") LINE!
1;

234
site/slowtwitch.com/cgi-bin/webadverts/ads_text.pl Executable file
View File

@ -0,0 +1,234 @@
############################################
## ##
## WebAdverts (Text Strings) ##
## by Darryl Burgdorf ##
## (e-mail burgdorf@awsd.com) ##
## ##
## version: 3.20 ##
## last modified: 09/08/02 ##
## copyright (c) 2002 ##
## ##
## latest version is available from ##
## http://awsd.com/scripts/ ##
## ##
############################################
##################
# INITIAL ACCESS #
##################
$text{'1000'} = "WebAdverts";
$text{'1001'} = "Account Administration";
$text{'1010'} = "To view the status of any single account or defined group,<BR>enter its name and password:";
$text{'1011'} = "Account or Group Name:";
$text{'1012'} = "Password:";
$text{'1013'} = "Review Single Account or Group";
$text{'1020'} = "To add your site to the exchange,<BR>enter the name and password you wish to use:";
$text{'1021'} = "Account Name:";
$text{'1022'} = "Password:";
$text{'1023'} = "Create New Account";
$text{'1030'} = "If you've forgotten your password,<BR>enter your account, and your password will be e-mailed to you:";
$text{'1031'} = "Account Name:";
$text{'1032'} = "Get Password";
$text{'1040'} = "To view the status of all accounts and access WebAdverts' main administrative functions,<BR>input the administrative password:";
$text{'1041'} = "Password:";
$text{'1042'} = "Review Accounts";
$text{'1050'} = "The password for the";
$text{'1051'} = "account has been sent to its associated e-mail address!";
################
# MAIN DISPLAY #
################
@months = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
$text{'2000'} = "(Accounts in the";
$text{'2001'} = "Group)";
$text{'2002'} = "Master Overview:";
$text{'2005'} = "Current Status of the";
$text{'2006'} = "Account:";
$text{'2007'} = "(This account is awaiting administrative approval.)";
$text{'2010'} = "Account";
$text{'2011'} = "Start";
$text{'2012'} = "End";
$text{'2013'} = "Zone(s)";
$text{'2014'} = "Wt.";
$text{'2015'} = "Exposures";
$text{'2016'} = "Exp./Day";
$text{'2017'} = "Clicks";
$text{'2018'} = "%";
$text{'2019'} = "Ratio";
$text{'2020'} = "N/A";
$text{'2030'} = "Your Banner's<BR>Exposures";
$text{'2031'} = "Clicks On<BR>Your Banner";
$text{'2040'} = "Banners Shown<BR>on Your Site";
$text{'2041'} = "Clicks From<BR>Your Site";
$text{'2050'} = "Log Out";
$text{'2100'} = "EXPIRED!";
$text{'2101'} = "(non-expiring!)";
$text{'2102'} = "(date unknown)";
$text{'2110'} = "clicks";
$text{'2111'} = "exposures";
$text{'2120'} = "Your account currently has no assigned banner.";
$text{'2121'} = "To date, you have displayed";
$text{'2122'} = "banners on your site";
$text{'2123'} = ", and generated";
$text{'2124'} = "clicks from your site";
$text{'2125'} = ".";
$text{'2126'} = "You have earned";
$text{'2127'} = "exposures for your own banner on other sites. (You earn";
$text{'2128'} = "1 exposure for each";
$text{'2129'} = "displays";
$text{'2130'} = ", and";
$text{'2131'} = "exposures for each click";
$text{'2132'} = ".)";
$text{'2133'} = "Your account has been assigned an additional";
$text{'2134'} = "&quot;bonus&quot; exposures, as well.";
$text{'2135'} = "The HTML code below should be placed on your site where you want banners to appear.";
$text{'2150'} = "If you want banners to appear on more than one page (or more than once on a single page), simply use a unique &quot;page=&quot; number for each banner call. This will ensure that new banners are loaded (and that new displays are credited to you) on each of your pages. (Note that there are two &quot;page=&quot; designations in the call, and that they must match!)";
######################
# SECONDARY DISPLAYS #
######################
$text{'2200'} = "Edit Account";
$text{'2201'} = "Delete Account";
$text{'2202'} = "View Zone Stats";
$text{'2203'} = "View Daily Stats";
$text{'2204'} = "View Monthly Stats";
$text{'2205'} = "View IP Address Log";
$text{'2206'} = "View Overall Stats";
$text{'2208'} = "Upload Banner";
$text{'2210'} = "Stats by Zone for the";
$text{'2211'} = "Account";
$text{'2212'} = "Zone";
$text{'2213'} = "Member";
$text{'2214'} = "Displays";
$text{'2215'} = "Clicks";
$text{'2220'} = "Daily Stats for the";
$text{'2221'} = "Account";
$text{'2222'} = "(Last Five Weeks Only)";
$text{'2223'} = "(Full List)";
$text{'2224'} = "Date";
$text{'2225'} = "View Daily Stats for Last Five Weeks Only";
$text{'2226'} = "View Full Daily Stats List";
$text{'2230'} = "Monthly Stats for the";
$text{'2231'} = "Account";
$text{'2232'} = "Month";
$text{'2240'} = "IP Address Log for the";
$text{'2241'} = "Account";
$text{'2242'} = "The following log file lists the IP addresses of those individuals who have seen or clicked on this account's banner since yesterday morning. Each line displays the time of the exposure (E) or click-thru (C), and the IP address of the responsible party.";
$text{'2243'} = "Total exposures logged";
$text{'2244'} = "Total clicks logged";
$text{'2245'} = "Total IP addresses logged";
$text{'2246'} = "Average log entries per IP address";
###############
# EDIT SCREEN #
###############
$text{'5000'} = "Info for the";
$text{'5001'} = "Account";
$text{'5100'} = "Name";
$text{'5101'} = "E-Mail";
$text{'5102'} = "Site URL";
$text{'5103'} = "Banner URL(s)";
$text{'5104'} = "Zone(s)";
$text{'5200'} = "(You may leave this blank; once your account has been created, you'll have the option of uploading a banner from your computer.)";
$text{'5201'} = "(Once your account has been created, you'll need to upload a banner from your computer.)";
$text{'5300'} = "(Select above, the zones -- or &quot;target categories&quot; -- in which this banner should be displayed.)";
$text{'5301'} = "(Select above, the category or categories of banners to be displayed on your own pages.)";
$text{'5400'} = "If you'd like to change your account password, simply enter it below.";
$text{'5401'} = "New Password";
$text{'5402'} = "Change Password";
$text{'5500'} = "If you'd like to upload a new banner for your account, you may do so from here. <EM>(Note that you must be using either Netscape Navigator version 2 or higher, or Microsoft Internet Explorer version 4 or higher.)";
$text{'5501'} = "File to Upload";
$text{'5502'} = "Upload Banner";
##################
# ERROR MESSAGES #
##################
$text{'9000'} = "WebAdverts Error!";
$text{'9010'} = "Access Denied!";
$text{'9011'} = "Sorry, but you're not allowed access to admin functions.";
$text{'9020'} = "No Password!";
$text{'9021'} = "You must enter a password!";
$text{'9022'} = "Invalid Password!";
$text{'9023'} = "The password you entered is incorrect!";
$text{'9024'} = "Password Mismatch!";
$text{'9025'} = "Your administrative password was not set, as the two entries were different!";
$text{'9030'} = "Name in Use!";
$text{'9031'} = "The account name you entered is already in use!";
$text{'9040'} = "No E-Mail Address!";
$text{'9041'} = "There is no e-mail address associated with the";
$text{'9042'} = "account!";
$text{'9050'} = "Invalid Account or Group Name!";
$text{'9051'} = "There is no account or group on the list with ";
$text{'9052'} = "as its name! (Note that all names <EM>are</EM> case sensitive!)";
$text{'9060'} = "Invalid Banner Format!";
$text{'9061'} = "Your banner must be in <STRONG>GIF</STRONG> (.gif) or <STRONG>JPEG</STRONG> (.jpg or .jpeg) format!";
$text{'9070'} = "Banner Too Large!";
$text{'9071'} = "Your banner is too large! Its file size must be no more than";
$text{'9072'} = "kilobytes. (The file you attempted to upload was";
$text{'9073'} = "kilobytes.)";
$text{'9080'} = "Unable to Open File!";
$text{'9081'} = "The script was unable to open a file to save your banner. (This most likely indicates a permissions error on the upload directory.)";
$text{'9100'} = "Incomplete Entry!";
$text{'9101'} = "You didn't provide all of the necessary information! You must at <EM>least</EM> include a password!";
$text{'9105'} = "Incomplete Form!";
$text{'9106'} = "You didn't provide all of the necessary information to allow creation of the";
$text{'9107'} = "group!";
$text{'9110'} = "Invalid Entry!";
$text{'9111'} = "You've indicated that this account is to earn exposures by showing other banners, but have also indicated that it is to expire based on date or click-thrus. These two designations are mutually incompatible! Display ratios may only be set for accounts which are defined as non-expiring, or for which a set number of &quot;bonus&quot; exposures has been defined.";
$text{'9120'} = "Mail System Error!";
$text{'9121'} = "The server encountered an error while trying to send out e-mail. This most likely means that the e-mail program has been incorrectly defined in the program's configuration.";
$text{'9130'} = "File Permission Error!";
$text{'9131'} = "The server encountered an error while trying to access the";
$text{'9132'} = "file! The most likely cause of the problem is a permissions error in your adverts directory (";
$text{'9133'} = "). Make sure that the directory exists and that it is set world-writable.";
$text{'9140'} = "No Daily Stats!";
$text{'9141'} = "Sorry, but it seems there is no daily log file available!";
$text{'9150'} = "The script encountered an error while trying to create or access the database file!";
1;