Pour voir les statistiques de votre compte personnel ",
" Veuillez entrer votre nom de compte et votre mot de passe :\n",
"
\n";
if ($AllowUserEdit) {
print "
Pour créer un compte d'echange de bannieres,\n",
" entrez le nom du compte desiré et le mot de passe que vous voulez utiliser:\n",
"
\n";
}
if ($mailprog) {
print "
Si vous avez oublié votre mot de passe,\n",
" entrez le nom de votre compte et votre mot de passe vous sera envoyé\n",
" dans votre boite au lettres E-mail\n",
"
\n";
}
&Footer;
}
sub adminintro {
open (PASSWORD, "<$adverts_dir/adpassword.txt");
$password = ;
close (PASSWORD);
chop ($password) if ($password =~ /\n$/);
if (!$password) { &InitializePassword; }
&Header("Campagne de Publicité","Acces administrateurs ");
print "
Pour voir les statistiques de tous les comptes ",
"et avoir acces au fonctions d'administrations,\n",
" entrez le mot de passe administrateur :\n",
"
\n";
&Footer;
}
sub InitializePassword {
&Header("Campagne de Publicité","Entrez un mot de passe administrateur!");
print "
Avant toutes choses, ",
"vous avez besoin pour utiliser ce systeme de gestion de bannieres, ",
"de choisir un mot de passe pour avoir acces aux fonctions d'administrations.",
"Cette espace va vous permettre de consulter les statistiques détaillés",
"de chaque annonceurs et de chaque comptes établis",
"Merci de bien vouloir inscrire ce mot de passe maintenant",
"(Entrez le ci-dessous)\n",
"
\n";
&Footer;
}
sub ConfirmAdminPassword {
local($which_admin) = @_;
if ($INPUT{'password'}) {
$newpassword = crypt($INPUT{'password'}, "aa");
}
else {
&Header("Une Erreur est survenue","Il n'y a pas de mot de passe !");
print "
You must ";
print "Veuillez entrer un mot de passe !\n";
&Footer;
}
open (PASSWORD, "<$adverts_dir/adpassword.txt");
$password = ;
close (PASSWORD);
chop ($password) if ($password =~ /\n$/);
unless ($password && ($newpassword eq $password)) {
if ($AllowUserEdit && $INPUT{'newuser'} && ($which_admin == 2)) {
&Header("Une erreur est survenue","Ce nom est deja en utilisation !");
print "
";
print "Le nom du compte que vous avez saisi ";
print "est deja en utilisation !\n";
&Footer;
}
else {
&Header("Une erreur est survenue","Mot de passe invalide!");
print "
";
print "Le mot de passe que vous avez saisi est incorrecte!\n";
&Footer;
}
}
$cryptword = 1;
}
sub ConfirmUserPassword {
unless ($INPUT{'password'}) {
&Header("Une erreur est survenue","Vous n'avez pas saisi de mot de passe !");
print "
Vous devez saisir un mot de passe !\n";
&Footer;
}
$INPUT{'advert'} =~ s/[^\w_-]//g;
$INPUT{'advert'} =~ tr/A-Z/a-z/;
if ($INPUT{'admincheck'}) {
&ConfirmAdminPassword(2);
}
open (DISPLAY, "<$adverts_dir/$INPUT{'advert'}.txt");
@lines = ;
close (DISPLAY);
foreach $line (@lines) { chop ($line) if ($line =~ /\n$/); }
$pass = $lines[8];
unless ($INPUT{'password'} eq $pass) {
if ($INPUT{'groupstatus'}) {
open (DISPLAY, "<$adverts_dir/$INPUT{'groupstatus'}.grp");
@grpck = ;
close (DISPLAY);
foreach $grpln (@grpck) { chop ($grpln) if ($grpln =~ /\n$/); }
}
unless ($grpck[0] && ($INPUT{'password'} eq $grpck[0])) {
&ConfirmAdminPassword(2);
}
}
}
sub GetPassword {
open (DISPLAY, "<$adverts_dir/$INPUT{'getpass'}.txt");
@lines = ;
close (DISPLAY);
foreach $line (@lines) {
chop ($line) if ($line =~ /\n$/);
}
($pass,$email) = @lines[8,18];
unless ($email) {
&Header("Une erreur est survenue","Il n'y a pas d'adresse E-Mail!");
print "
Ce n'est pas l'adresse e-mail associée ";
print "avec le compte suivant :$INPUT{'getpass'}\n";
&Footer;
}
&SendMail($email,"getpass");
&Header("Campagne de Publicité","Mot de passe envoyé");
print "
Le mot de passe pour le compte $INPUT{'getpass'} ";
print "à ete envoyer a $email!\n";
&Footer;
}
sub defineview {
&ConfirmAdminPassword(1);
&Header("Campagne de Publicité","WebAdverts Administrative Display");
unless (-e "$adverts_dir/register.txt") {
print "
Gestion de Bannieres ";
print "Cliquer ici ";
print "pour les infos d'enregistrement
\n";
}
print "
Selectionnez le compte ",
"que vous voulez voir:\n",
"
\n";
&Footer;
}
sub reviewall {
&ConfirmAdminPassword(1);
&Header("Gestion de bannieres","Systeme de statistique");
unless (-e "$adverts_dir/register.txt") {
print "
";
($sec,$min,$hour,$mday,$mon,$year,
$wday,$yday,$isdst) = localtime($time);
if ($hour < 10) { $hour = "0".$hour; }
if ($min < 10) { $min = "0".$min; }
$year += 1900;
print "(Ces statistiques ont ete mi a jour le ";
print "$mday $months[$mon] $year à $hour:$min.";
($sec,$min,$hour,$mday,$mon,$year,
$wday,$yday,$isdst) = localtime($starttime);
if ($hour < 10) { $hour = "0".$hour; }
if ($min < 10) { $min = "0".$min; }
$year += 1900;
print " Depuis le $mday $months[$mon] $year à $hour:$min, ";
print "Il y a eu au Total ",&commas($exposures);
print " bannieres d'affichés";
$time = $time - $starttime + 1;
if ($time > 86400) {
$average = int(($exposures/($time/86400))+.5);
print ", Pour une moyenne de ",&commas($average);
print " affichages par jour";
}
print ".)\n
";
}
if ((-s "$adverts_dir/adnew.txt") && ($INPUT{'whichtype'} =~ /pending/)) {
undef @newlines;
open (COUNT, "<$adverts_dir/adnew.txt");
@newlines = ;
close (COUNT);
}
if (@newlines > 0) {
print "
";
print "Le compte suivant est en attente ";
print "de validaton du dossier :";
print "
\n";
@sortednewlines = sort (@newlines);
foreach $newad (@sortednewlines) {
chop ($newad) if ($newad =~ /\n$/);
next if (length($newad) < 1);
open (DISPLAY, "<$adverts_dir/$newad.txt");
@lines = ;
close (DISPLAY);
foreach $line (@lines) {
chop ($line) if ($line =~ /\n$/);
}
($max,$shown,$visits,$url,$image,$height,$width,
$alt,$pass,$text,$start,$weight,$zone,
$border,$target,$raw,$displayratio,$username,$email,
$displayzone,$clicksfrom) = @lines;
print "\n";
}
print "
\n";
}
if ((-s "$adverts_dir/groups.txt") && ($INPUT{'whichtype'} =~ /groups/)) {
undef @grouplines;
open (COUNT, "<$adverts_dir/groups.txt");
@grouplines = ;
close (COUNT);
}
if (@grouplines > 0) {
print "
";
print "Le Groupe suivant a bien ete defini:";
print "\n";
print "
\n";
@sortedgroups = sort (@grouplines);
foreach $group (@sortedgroups) {
chop ($group) if ($group =~ /\n$/);
next if (length($group) < 1);
open (DISPLAY, "<$adverts_dir/$group.grp");
@members = ;
close (DISPLAY);
$grppassword = $members[0];
print "
\n";
&Footer("Groupe: $INPUT{'reviewone'}");
}
sub reviewone {
unless ($INPUT{'password'}) {
&Header("Une erreur est survenue !","Il n'y a pas de mot de passe !");
print "
If you want banners to appear on more than one page ",
"(or more than once on a single page), ",
"simply use a unique "page=" 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 "page=" designations in the ",
"call, and that they must match!)\n";
}
}
print "
Adresses IP Chargés pour le compte : ",
"$INPUT{'advert'}\n",
"
La liste d'adresses suivantes sont ",
"les adresses individuelles des personnes qui ",
"ont regardé ou cliqué sur la banniere de ce compte ",
"depuis hier matin. Chaque ",
"ligne montre l'heure, et la lettre (E) correspond a une banniere vue",
"et la lettre (C) un clique sur la banniere, et ensuite l'adresse IP ",
"de la personne concerné.\n",
"
";
($mday,$mon) = (localtime($time-86400))[3,4];
if ($mday < 10) { $mday = "0".$mday; }
$mon++;
if ($mon < 10) { $mon = "0".$mon; }
open (DISPLAY, "$adverts_dir/$INPUT{'advert'}.$mon$mday.log");
&ShowIPs;
close (DISPLAY);
($mday,$mon) = (localtime($time))[3,4];
if ($mday < 10) { $mday = "0".$mday; }
$mon++;
if ($mon < 10) { $mon = "0".$mon; }
open (DISPLAY, "$adverts_dir/$INPUT{'advert'}.$mon$mday.log");
&ShowIPs;
close (DISPLAY);
print "
\n";
print "
Total des affichages enregistrés: ",&commas($ExposureCount),"\n";
print " Total des cliques enregistrés: ",&commas($ClickCount),"\n";
print " Total des adresses IP enregistrées: ",&commas($IPCount),"\n";
if ($IPCount<1) { $AverageEntries = 0; }
else { $AverageEntries = (($ExposureCount+$ClickCount)/$IPCount)+.05; }
if ($AverageEntries < 10) {
$AverageEntries =~ s/(...).*/$1/;
}
else {
$AverageEntries =~ s/(....).*/$1/;
}
print "
Moyenne des entrées par adresses IP: ${AverageEntries}\n";
print "
\n";
print "\n";
print "\n";
print "\n";
print "
\n";
&Footer;
}
sub ShowIPs {
while () {
next if (length($_) < 5);
unless ($NoPrintIPs) { print "$mon/$mday $_"; }
if (/E ([^\s]*)\n/) {
$ExposureCount ++;
$ThisIP = $1;
}
elsif (/C ([^\s]*)\n/) {
$ClickCount ++;
$ThisIP = $1;
}
$IPCount{$ThisIP} ++;
if ($IPCount{$ThisIP} == 1) {
$IPCount ++;
}
}
}
sub masteriplog {
&ConfirmAdminPassword(1);
&Header("WebAdverts","WebAdverts Administrative Display");
print "
",
"Master IP Address Report\n",
"
The following report details the IP addresses ",
"which have seen or clicked on banners in the rotation ",
"since yesterday morning.\n";
$NoPrintIPs = 1;
($mday1,$mon1) = (localtime($time-86400))[3,4];
if ($mday1 < 10) { $mday1 = "0".$mday1; }
$mon1++;
($mday2,$mon2) = (localtime($time))[3,4];
if ($mday2 < 10) { $mday2 = "0".$mday2; }
$mon2++;
opendir (FILES,$adverts_dir);
@files = readdir(FILES);
closedir (FILES);
foreach $file (@files) {
next unless (($file=~/$mon1$mday1.log/) || ($file=~/$mon2$mday2.log/));
open (DISPLAY, "$adverts_dir/$file");
&ShowIPs;
close (DISPLAY);
}
print "
Total des affichages enregistrés: ",&commas($ExposureCount),"\n";
print " Total des cliques enregistrés: ",&commas($ClickCount),"\n";
print " Total des addresses IP enregistrés: ",&commas($IPCount),"\n";
if ($IPCount<1) { $AverageEntries = 0; }
else { $AverageEntries = (($ExposureCount+$ClickCount)/$IPCount)+.05; }
if ($AverageEntries < 10) {
$AverageEntries =~ s/(...).*/$1/;
}
else {
$AverageEntries =~ s/(....).*/$1/;
}
print "
Moyenne des adresses IP Enregistrés: ${AverageEntries}\n";
print "
Le Top des 25 Adresses IP enregistrés:\n";
print "
The following report lists the IP addresses ",
"which have accessed administrative functions.\n";
print "
\n";
open (ADMINLOG,"$adverts_dir/adminlog.txt");
while () { print "$_"; }
close (ADMINLOG);
print "
\n";
&LinkBack;
&Footer;
}
sub edit {
&ConfirmAdminPassword(1);
if ($INPUT{'reviewone'} && !($INPUT{'editad'})) {
$INPUT{'editad'} = $INPUT{'reviewone'};
}
$INPUT{'editad'} =~ s/[^\w_-]//g;
$INPUT{'editad'} =~ tr/A-Z/a-z/;
&CheckName($INPUT{'editad'});
if (-s "$adverts_dir/$INPUT{'editad'}.txt") {
open (DISPLAY, "<$adverts_dir/$INPUT{'editad'}.txt");
@lines = ;
close (DISPLAY);
foreach $line (@lines) {
chop ($line) if ($line =~ /\n$/);
$line =~ s/&/&/g;
$line =~ s/>/>/g;
$line =~ s/\n";
print "
Information de ",
"$INPUT{'editad'} Compte:",
"\n",
"
\n",
"
\n",
"
",
"I. General Information: ",
"The following information is needed for each account, ",
"no matter how you're setting things up. Note ",
"that while either an expiration or a display ",
"ratio must be set, it is not necessary to set both. ",
"If you're running a "banner exchange," ",
"the display ratio will define how many banner displays ",
"earn one exposure. If you're running straight adverts, ",
"leave it set to 0, and simply set the appropriate ",
"expiration criteria instead. (If you're running ",
"an exchange, but want a member to get extra ",
""bonus" exposures, set that bonus number ",
"in the "expiration" slot.)
";
print " Pas d'expiration Affichages Clicks Jours\n";
print " (Entrer le nombre maximal d'affichages, ",
" de cliques ou de jours pendant lesquels le compte sera actif.)",
"
";
foreach $setzone (sort (keys %nonssi_cgis)) {
print "$setzone\n ";
}
print "(Selectioner une catégorie de pages ";
print "ou cette banniere doit apparaitre.)";
print "
\n";
print "
";
print " (Si ce compte est un echange de bannieres, ";
print "selectionner une catégorie ou la banniere apparaitra sur ";
print "sa ou ses pages.)";
print "
\n";
}
else {
print "
Zone(s):
\n";
}
print "
Mot de passe:
\n",
"
\n",
"
",
"II. SSI Account Information: ",
"The following information is used to define or modify ",
"the "appearance" of an account banner when ",
"called via an SSI tag. None of it is necessary ",
"(or even useful) if the banner is called only via IMG ",
"tags.
\n",
"
Attributions du lien:
\n",
"
Longeur de la banniere:
pixels
\n",
"
Auteur de la banniere:
pixels
\n",
"
Bordure:
\n",
"
Texte au survol de la souris:
\n",
"
Texte du lien:
",
" Au dessus de la banniere En dessous de la banniere
\n",
"
\n",
"
",
"III. "Raw Mode" Informations: ",
"Si vous le pouvez vous pouvez spécifier exactement dans la balise ",
"ce qui doit apparaitre sur vos pages. (Mais ",
"bien sure, ce n'est possible qu'en mode SSI; ",
""raw mode" et un affichage non-SSI sont ",
"incompatibles.) N'utilitisez cette option que Seulement si",
"vous etes sure de pouvoir le faire; anything input here will ",
"override just about everything above!
\n",
"
"Raw" HTML:
",
"
\n",
"
\n",
"
\n",
"
\n",
"\n",
"\n",
"Cocher cette case si vous voulez remettre a Zero vos Affichages & Cliques: ",
"";
if (-s "$adverts_dir/welcome.txt") {
print " Cliquer ici pour envoyer une lettre de bienvenue: ",
"";
}
if ($cryptword) {
print "\n";
}
print "
\n";
if (-s "$adverts_dir/$INPUT{'editad'}.txt") {
if ((-s "$adverts_dir/reject.txt") && $email) {
print "
Cliquer ici pour envoyer une lettre de non-acceptation du dossier: ",
"";
}
print "
";
print "\n";
}
print "
\n";
&Footer;
}
sub UserEdit {
$INPUT{'reviewone'} =~ s/[^\w_-]//g;
$INPUT{'reviewone'} =~ tr/A-Z/a-z/;
&CheckName($INPUT{'reviewone'});
if (-s "$adverts_dir/$INPUT{'reviewone'}.txt") {
open (DISPLAY, "<$adverts_dir/$INPUT{'reviewone'}.txt");
@lines = ;
close (DISPLAY);
foreach $line (@lines) {
chop ($line) if ($line =~ /\n$/);
$line =~ s/&/&/g;
$line =~ s/>/>/g;
$line =~ s/\n",
"
Informations pour ",
"$INPUT{'reviewone'} Compte:",
"\n",
"
\n",
"
\n",
"
Nom:
\n",
"
E-Mail:
\n",
"
URL du site:
\n",
"
URL(s) de la/les bannieres:
",
"";
if ($UserUploadDir && !(-s "$adverts_dir/$INPUT{'reviewone'}.txt")) {
print " (You may leave this blank; once your account has been created, ";
print "you'll have the option of uploading a banner from your computer. ";
print "Just return to the edit screen to do so.)";
}
print "
\n";
if (%nonssi_cgis) {
print "
Zone(s):
";
foreach $setzone (sort (keys %nonssi_cgis)) {
print "$setzone\n ";
}
print "(Selectionner une catégorie de pages ";
print " ou cette banniere doit apparaitre.)";
print "
\n";
print "
";
print " (Selectionner une catégorie de Bannieres ";
print "qui doivent etre affichés sur votre propre page.)";
print "
\n";
}
print "
\n",
"
\n",
"
\n",
"\n",
"\n";
if ($AllowUserEdit && $INPUT{'newuser'}) {
print "\n";
}
if ($cryptword) {
print "\n";
}
print "
\n";
if (-s "$adverts_dir/$INPUT{'reviewone'}.txt") {
print "
";
print "\n";
}
print "
\n";
print "
Si vous voulez changer votre mot de passe, ";
print "entrer le ici.\n";
print "
\n";
if ($UserUploadDir && (-s "$adverts_dir/$INPUT{'reviewone'}.txt")) {
print "
If you'd like to upload a new banner for your account, ";
print "you may do so from here. (Note that you must be using either ";
print "Netscape Navigator version 2 or higher, or Microsoft Internet Explorer ";
print "version 4 or higher.)\n";
print "
\n";
}
&Footer;
}
sub NewUserPassword {
$INPUT{'reviewone'} =~ s/[^\w_-]//g;
$INPUT{'reviewone'} =~ tr/A-Z/a-z/;
if (-s "$adverts_dir/$INPUT{'reviewone'}.txt") {
open (DISPLAY, "<$adverts_dir/$INPUT{'reviewone'}.txt");
@lines = ;
close (DISPLAY);
foreach $line (@lines) { chop ($line) if ($line =~ /\n$/); }
($pass) = @lines[8];
unless ($INPUT{'password'} eq $pass) {
&ConfirmAdminPassword(2);
}
}
else {
&Header("Une erreur est survenue!","Nom de Compte Invalide!");
print "
Il n'y a pas de compte avec ce nom la ";
print ""$INPUT{'reviewone'}" ";
print "sur cette liste!\n";
print "
(Les noms de comptes doivent ";
print "respecterles lettres Minuscules/Majuscules !)\n";
&Footer;
}
@lines[8] = $INPUT{'pass'};
$INPUT{'password'} = $INPUT{'pass'};
&LockOpen (DISPLAY, "$INPUT{'reviewone'}.txt");
seek (DISPLAY,0,0);
foreach $key (0..20) {
print DISPLAY "$lines[$key]\n";
}
truncate (DISPLAY,tell(DISPLAY));
&LockClose (DISPLAY, "$INPUT{'reviewone'}.txt");
&reviewone;
}
sub UploadBanner {
$INPUT{'reviewone'} =~ s/[^\w_-]//g;
$INPUT{'reviewone'} =~ tr/A-Z/a-z/;
if (-s "$adverts_dir/$INPUT{'reviewone'}.txt") {
open (DISPLAY, "<$adverts_dir/$INPUT{'reviewone'}.txt");
@lines = ;
close (DISPLAY);
foreach $line (@lines) { chop ($line) if ($line =~ /\n$/); }
($image,$pass) = @lines[4,8];
unless ($INPUT{'password'} eq $pass) {
&ConfirmAdminPassword(2);
}
}
else {
&Header("Une erreur est survenue!","Nom de Compte Invalide!");
print "
Il n'y a pas de compte avec ce nom la ";
print ""$INPUT{'reviewone'}" ";
print "sur cette liste!\n";
print "
Votre banniere doit etre enGIF (.gif) ";
print "ou JPEG (.jpg or .jpeg) format!\n";
&Footer;
}
if (length($INPUT{'BannerFile'}) > ($MaxBannerSize*1024)) {
&Header("Une erreur est survenue!","Banniere trop grosse!");
print "
Votre Banniere est trop grosse! Elle doit etre ";
print "Obligatoirement inferieur a $MaxBannerSize ";
print "kilobytes. (Le fichier que vous essayez d'enregistrer est de ";
print int((length($INPUT{'BannerFile'})/1024)+.5)," kilobytes.)\n";
&Footer;
}
unless (open (BANNER,">$UserUploadDir/$bannername")) {
&Header("Une erreur est survenue!","Impossible d'ouvrir le fichier!");
print "
Le nom de compte que vous avez selectionné n'est pas possible. ";
print "Merci d'en selectionner un autre !\n";
&Footer;
}
}
sub groupedit {
&ConfirmAdminPassword(1);
$INPUT{'editgroup'} =~ s/[^\w_-]//g;
$INPUT{'editgroup'} =~ tr/A-Z/a-z/;
&CheckName($INPUT{'editgroup'});
if (-s "$adverts_dir/$INPUT{'editgroup'}.grp") {
open (DISPLAY, "<$adverts_dir/$INPUT{'editgroup'}.grp");
@lines = ;
close (DISPLAY);
$grouppassword = $lines[0];
$adverts = join(' ',@lines);
}
&Header("WebAdverts","Ajouter/Editer/Supprimer un Groupe");
print "\n";
&Footer;
}
sub del {
$INPUT{'delad'} =~ s/[^\w_-]//g;
$INPUT{'delad'} =~ tr/A-Z/a-z/;
&CheckName($INPUT{'delad'});
unless (-s "$adverts_dir/$INPUT{'delad'}.txt") {
&Header("Une erreur est survenue!","Nom de Compte Invalide!");
print "
Il n'y a pas de Compte avec ce nom ";
print ""$INPUT{'delad'}" ";
print "sur la liste!\n";
print "
(les noms de Comptes doivent";
print "respecter les lettres Majuscules/Minuscules!)\n";
&Footer;
}
$INPUT{'advert'} = $INPUT{'delad'};
&ConfirmUserPassword;
&Header("WebAdverts",""Delete" Formulaire de Confirmation");
print "
There is no group ";
print "on the list defined with the name ";
print ""$INPUT{'delgroupname'}"!\n";
print "
(Note that group names ";
print "are case sensitive!)\n";
&Footer;
}
&ConfirmAdminPassword(1);
&Header("WebAdverts",""Delete" Request Confirmation");
print "
\n";
print "
(Please note that deleting the group will ";
print "not delete or otherwise affect the adverts ";
print "themselves. Only the ability to view all their stats ";
print "on a single page will be gone!)\n";
&Footer;
}
sub newpass {
unless ($INPUT{'passad'} && ($INPUT{'passad'} eq $INPUT{'passad2'})) {
&Header("WebAdverts Error!","Password Mismatch!");
print "
Your administrative password was ";
print "not set, as the two entries were different!\n";
&Footer;
}
open (PASSWORD, "<$adverts_dir/adpassword.txt");
$password = ;
close (PASSWORD);
chop ($password) if ($password =~ /\n$/);
if ($password) {
if ($INPUT{'password'}) {
$newpassword = crypt($INPUT{'password'}, "aa");
}
else {
&Header("WebAdverts Error!","No Password!");
print "
You must ";
print "enter a password!\n";
&Footer;
}
unless ($newpassword eq $password) {
&Header("WebAdverts Error!","Invalid Password!");
print "
You didn't provide all of the necessary ";
print "information! You must at least ";
print "include a password!\n";
&Footer;
}
if ((($maxtype eq "C") || ($maxtype eq "D")) && ($displayratio)) {
&Header("WebAdverts Error!","Invalid Entry!");
print "
You've indicated that this account is to earn exposures by ";
print "showing other banners, but have also indicated that it is to ";
print "expire based on date or click-thrus. These two designations are ";
print "mutually incompatible! Display ratios may only be set for ";
print "accounts which are defined as non-expiring, or for which a set ";
print "number of "bonus" exposures have been defined.\n";
&Footer;
}
$PresenceCheck = 0;
if (-s "$adverts_dir/adnew.txt") {
&LockOpen (COUNT, "adnew.txt");
@lines = ;
foreach $line (@lines) { chop ($line) if ($line =~ /\n$/); }
seek(COUNT, 0, 0);
foreach $line (@lines) {
if ($line eq $editad) { $PresenceCheck = 1; }
unless (($line eq $editad) || (length($line) < 1)) {
print COUNT "$line\n";
}
}
truncate (COUNT, tell(COUNT));
&LockClose (COUNT, "adnew.txt");
}
if (-s "$adverts_dir/adlist.txt") {
&LockOpen (COUNT, "adlist.txt");
@lines = ;
foreach $line (@lines) { chop ($line) if ($line =~ /\n$/); }
seek(COUNT, 0, 0);
foreach $line (@lines) {
if ($line eq $editad) { $PresenceCheck = 1; }
unless (($line eq $editad) || (length($line) < 1)) {
print COUNT "$line\n";
}
}
truncate (COUNT, tell(COUNT));
&LockClose (COUNT, "adlist.txt");
}
if ($INPUT{'resetadvert'}
|| (!$PresenceCheck && !$shown)) {
$shown = 0;
$visits = 0;
unless ($start > $time) { $start = $time; }
$displaycount = 0;
$clicksfrom = 0;
$_ = $editad;
/^(.+)$/;
$editad = $1;
unlink ("$adverts_dir/$editad.log");
unlink ("$adverts_dir/$editad.log.bak");
unlink ("$adverts_dir/$editad.ips");
}
if ($maxtype eq "N") { $max = 0; }
&LockOpen (DISPLAY, "$editad.txt");
seek (DISPLAY,0,0);
print DISPLAY "$max|$maxtype\n";
print DISPLAY "$shown\n";
print DISPLAY "$visits\n";
print DISPLAY "$url\n";
print DISPLAY "$image\n";
print DISPLAY "$height\n";
print DISPLAY "$width\n";
print DISPLAY "$alt\n";
print DISPLAY "$pass\n";
print DISPLAY "$text|$texttype\n";
print DISPLAY "$start\n";
print DISPLAY "$weight\n";
print DISPLAY " $zone \n";
print DISPLAY "$border\n";
print DISPLAY "$target\n";
print DISPLAY "$raw\n";
print DISPLAY "$displayratio|$displaycount\n";
print DISPLAY "$INPUT{'username'}\n";
print DISPLAY "$email\n";
print DISPLAY "$displayzone\n";
print DISPLAY "$clicksfrom\n";
truncate (DISPLAY,tell(DISPLAY));
&LockClose (DISPLAY, "editad.txt");
if ($cryptword || !($RequireAdminApproval)) {
&LockOpen (COUNT, "adlist.txt");
@adlist = ;
seek (COUNT,0,0);
foreach $adlist (@adlist) {
print COUNT "$adlist";
}
print COUNT "$editad\n";
truncate (COUNT,tell(COUNT));
&LockClose (COUNT, "adlist.txt");
}
else {
&LockOpen (COUNT, "adnew.txt");
@adnew = ;
seek (COUNT,0,0);
foreach $adnew (@adnew) {
print COUNT "$adnew";
}
print COUNT "$editad\n";
truncate (COUNT,tell(COUNT));
&LockClose (COUNT, "adnew.txt");
&SendMail($email_address,"admin");
}
$INPUT{'reviewone'} = $editad;
&reviewone;
}
sub editgroupfinal {
&ConfirmAdminPassword(1);
$INPUT{'editgroup'} =~ s/[^\w_-]//g;
$INPUT{'editgroup'} =~ tr/A-Z/a-z/;
&CheckName($INPUT{'editgroup'});
$editgroup = $INPUT{'editgroup'};
$pass = $INPUT{'pass'};
@groupadverts = split(' ',$INPUT{'groupadverts'});
unless ($pass && (@groupadverts > 0)) {
&Header("WebAdverts Error!","Incomplete Form!");
print "
You didn't provide all of the necessary ";
print "information to allow creation ";
print "of the $editgroup ";
print "group!\n";
&Footer;
}
&LockOpen (GROUP, "$editgroup.grp");
seek (GROUP,0,0);
print GROUP "$pass\n";
foreach $advert (@groupadverts) {
print GROUP "$advert\n";
}
truncate (GROUP,tell(GROUP));
&LockClose (GROUP,"$editgroup.grp");
$PresenceCheck = 0;
if (-s "$adverts_dir/groups.txt") {
open (COUNT, "<$adverts_dir/groups.txt");
@lines = ;
close (COUNT);
}
foreach $line (@lines) {
chop ($line) if ($line =~ /\n$/);
if ($line eq $editgroup) { $PresenceCheck = 1; }
}
unless ($PresenceCheck) {
&LockOpen (COUNT, "groups.txt");
@groups = ;
seek (COUNT,0,0);
foreach $group (@groups) {
print COUNT "$group";
}
print COUNT "$editgroup\n";
truncate (COUNT,tell(COUNT));
&LockClose (COUNT,"groups.txt");
}
&Header("WebAdverts","Group Updated!");
print "
";
print "The $editgroup group now includes ";
print "the following adverts:\n";
print "
Sorry, but the registration code ";
print "you entered is incorrect!\n";
&Footer;
}
open (REGISTER, ">$adverts_dir/register.txt");
print REGISTER "frtytw";
close (REGISTER);
&Header("WebAdverts","Thanks For Registering!");
print "
Your support is appreciated!\n";
&Footer;
}
sub reginfo {
&Header("WebAdverts","Registration Information");
print "
WebAdverts is distributed as shareware. While you ",
"are free to modify and use it as you see fit, any usage ",
"should be registered. The registration fee is just \$50 ",
"(US). Payment should be sent via check or money order ",
"to Darryl C. Burgdorf, Affordable Web Space ",
"Design, 3524 Pacific Street, Omaha NE 68105.\n",
"
(If you happen to live in a country other than the ",
"United States, you can write a check in your local ",
"currency for the equivalent of \$57.50. That will cover ",
"the \$50 registration fee and the \$7.50 ",
"service fee which my bank charges. Please do ",
"not write me a check ",
"in US funds drawn on a non-US bank; the service charge ",
"for those can be anywhere from \$10 to \$25!)\n",
"
The server encountered an error while trying ";
print "to send out e-mail. This most likely means that ";
print "the e-mail program has been incorrectly defined ";
print "in the program's configuration.\n";
&Footer;
}
sub Error_File {
&Header("WebAdverts Error!","File Permission Error!");
print "
The server encountered an error while trying ";
print "to access $_[0]!\n";
print "
The most likely cause of the problem is a permissions ";
print "error in your adverts directory ($adverts_dir). Make ";
print "sure that the directory exists and that it is set ";
print "world-writable.\n";
&Footer;
}
sub Error_NoStats {
&Header("WebAdverts Error!","No Daily Stats!");
print "
";
print "Sorry, but it seems ";
print "there is no daily log file available ";
print "for the $INPUT{'advert'} account!\n";
&Footer;
}
sub UpdateAdList {
&LockOpen (COUNT, "adcount.txt");
@lines = ;
foreach $line (@lines) { chop ($line) if ($line =~ /\n$/); }
seek (COUNT,0,0);
print COUNT "$lines[0]\n";
print COUNT "$lines[1]\n";
print COUNT "$lines[2]\n";
$max = @lines - 1;
@advertisements = @lines[3..$max];
open (LIST, ">$adverts_dir/adlist.txt");
foreach $advertiser (@advertisements) {
next if (length($advertiser) < 1);
print LIST "$advertiser\n";
}
truncate (COUNT, tell(COUNT));
&LockClose (COUNT,"adcount.txt");
truncate (LIST, tell(LIST));
close (LIST);
}