#!/usr/bin/perl
&acj; sub acj{ my $aehe; if (&ad1) { $aehe = $ENV{'QUERY_STRING'}; } elsif (&ad4) { read(STDIN,$aehe,$ENV{'CONTENT_LENGTH'}); } @c057 = split(/[&;]/,$aehe); foreach $i4m8 (0 .. $#c057) { $c057[$i4m8] =~ s/\+/ /g; (my $k85c,my $h1e2) = split(/=/,$c057[$i4m8],2); $k85c =~ s/%(..)/pack("c",hex($1))/ge; $h1e2 =~ s/%(..)/pack("c",hex($1))/ge; $c057{$k85c} .= "\0" if (defined($c057{$k85c})); $c057{$k85c} .= $h1e2; } } sub ad1{ return ($ENV{'REQUEST_METHOD'} eq "GET"); } sub ad4{ return ($ENV{'REQUEST_METHOD'} eq "POST"); } $h1e2 =~ s/<!--(.|\n)*-->//g; @d4jo   = ('Sunday','Monday','Tuesday','Wednesday', 'Thursday','Friday','Saturday'); @g4l6 = ('01','02','03','04','05','06','07', '08','09','10','11','12'); ($dg3p,$gm33,$k89p,$j9b5,$cj11,$kk6i,$d0b7) = (localtime(time))[0,1,2,3,4,5,6]; $ek46 = sprintf("%02d:%02d:%02d",$k89p,$gm33,$dg3p); $kk6i += 1900; $ghko = "$g4l6[$cj11]-$j9b5-$kk6i"; $c2l7 = "$g4l6[$cj11]/$j9b5/$kk6i"; $i4ae = time(); $dj6h = $ENV{'SCRIPT_NAME'}; $fnl8 = "2.036.01E"; $deb3 = $ENV{'SCRIPT_NAME'}; $deb3 =~ s/s\.cgi$/setup\.cgi/; $deb3 =~ s/s\.pl$/setup\.pl/; if ($c057{'subscribe'} eq "subscribe") { &ac4; } elsif ($c057{'subscribe'} eq "unsubscribe")  {&abc; } elsif ($c057{'r'}) {&abc;} elsif ($c057{'a'}) {&ac4;} elsif ($c057{'page'}) {&ad5;} elsif ($c057{'testmailing'}) {&aab; } elsif ($c057{'mailing'}) {&aab; } elsif ($c057{'create_list'}) {&abg; } elsif ($c057{'setpwd'}) {&ae0; } elsif ($c057{'edit_manually'}) {&acp; } elsif ($c057{'batch_remove'}) {&acf; } elsif ($c057{'bremove_process'}) {&aao; } elsif ($c057{'edit_manually2'}) {&ab6; } elsif ($c057{'manual_update'}) {&aah; } elsif ($c057{'manual_update2'}) {&abi; } elsif ($c057{'view_list'}) {&abn; } elsif ($c057{'view_removes'}) {&acm; } elsif ($c057{'ban_addresses'}) {&ace; } elsif ($c057{'Ban'}) {&ace; } elsif ($c057{'Unban'}) {&ace; } elsif ($c057{'viewtracking'}) {&ad2; } elsif ($c057{'list_backup'}) {&abh; } elsif ($c057{'track_results'}) {&aak; } elsif ($c057{'adminreturn'}) {&ab5; } elsif ($c057{'form2'}) {&abf; } elsif ($c057{'passcheck'}) {&aci; } elsif ($c057{'add_list'}) {&ac7; } elsif ($c057{'delete_list'}) {&acd; } elsif ($c057{'list_details'}) {&aai; } elsif ($c057{'delete2'}) {&ac8; } elsif ($c057{'edit_list'}) {&aba; } elsif ($c057{'update_list'}) {&ad6; } elsif ($c057{'graphic'}) {&abk; } elsif ($c057{'enterpass'}) {&aci; } elsif ($c057{'log_off'}) {&acl; } elsif (($admin_access) && ($admin_access ne 'click_help_menu_for_instructions') && ($c057{$admin_access})) {&ac3; } elsif (($admin_access) && ($admin_access ne 'click_help_menu_for_instructions') && (!($c057{$admin_access}))) {&abo; } else {&ac3; } exit; @d4jo   = ('Sunday','Monday','Tuesday','Wednesday', 'Thursday','Friday','Saturday'); @g4l6 = ('January','February','March','April','May','June','July', 'August','September','October','November','December'); ($dg3p,$gm33,$k89p,$j9b5,$cj11,$kk6i,$d0b7) = (localtime(time))[0,1,2,3,4,5,6]; $ek46 = sprintf("%02d:%02d:%02d",$k89p,$gm33,$dg3p); $kk6i += 1900; $cegi = "$d4jo[$d0b7], $g4l6[$cj11] $j9b5, $kk6i at $ek46"; sub ac4{ $hlj1 = 0; $dj4d = 0; $j81f = 0; @fn4f = split (/ /,$c057{'l'}); $f4jj= @fn4f; unless ($hlj1) { print "Content-type: text/html\n\n"; $hlj1 = 1; } if ($f4jj == 0) { print "You have not selected any valid mailing lists to subscribe to.<BR>"; exit; } $j6oa = 0; $gcm5 = 1; foreach $ed48(@fn4f) { $gch7 = 0; $j6pi = "0"; chomp($ed48); $j6oa++; $c057{'l'} = "$ed48"; unless (($c057{'l'}) && (-e "$lists/$c057{'l'}.list")) { unless ($hlj1) { print "Content-type: text/html\n\n"; $hlj1 = 1; } print "The list $c057{'l'} does not exists.<BR>"; exit; } undef($dfoa); open (DB, "<$lists/lists.db"); if ($LOCK_EX){ flock(DB, $LOCK_EX); } @f121 = <DB>; close (DB); foreach $ed48(@f121) { @b736 = split(/\|/,$ed48); chomp($ed48); $c057{'l'} =~tr/0-9//cd; if ($b736[0] == $c057{'l'}) { $c057{'list_name'} = $b736[1]; $e09k = "$c057{'list_name'}"; $c057{'admin_email'} = $b736[2]; if (lc $b736[4] eq 'optin') { $dfoa = 1; } last; } } &acn; &aaj; if (-e "$lists/$c057{'l'}.banned") { open (DATB,"<$lists/$c057{'l'}.banned"); if ($LOCK_EX){ flock(DATB, $LOCK_EX); } @da3f = <DATB>; close (DATB); foreach $h1ph(@da3f) { chomp($h1ph); $h1ph =~ tr/A-Z/a-z/; if (($h1ph =~ /\*\@/) || ($h1ph !~ /\@/)) { $b4c4 = $h1ph; $b4c4 =~ s/.*\@//; } $hkgj = $ei6n; $hkgj =~ s/.*\@//; if (($ei6n eq $h1ph) || ($b4c4 eq $hkgj)) { $j6pi = "1"; open (BANNEDR,"<$lists/$c057{'l'}.bannedr"); if ($LOCK_EX){ flock(BANNEDR, $LOCK_EX); } @id7f = <BANNEDR>; close (BANNEDR); unless ($hlj1) { print "Content-type: text/html\n\n"; $hlj1 = 1; } unless ($j81f) { &ab7; $j81f = "1"; } foreach $k97e(@id7f) { $k97e =~ s/<E-MAIL>/$c057{'e'}/g; $k97e =~ s/<LIST_NAME>/$c057{'list_name'}/g; $k97e =~ s/<WEBSITEURL>/$websiteurl/g; if ($b736[6] eq '0') { $k97e =~ s/<SERVER_NAME>/$ENV{'SERVER_NAME'}/g; } else { $k97e =~ s/<SERVER_NAME>/$b736[6]/g; } $k97e =~ s/<CGI_URL>/$dj6h/g; $k97e =~ s/<LIST>/$c057{'l'}/g; $k97e =~ s/<ADMIN_MAIL>/$b736[2]/g; $k97e =~ s/<M-MAIL>/$c057{'e'}/g; print "$k97e"; } if ($j6oa == $f4jj) { &ab8; } unless ($f4jj > 1) { exit; } } $h1ph = ""; $b4c4 = ""; } } unless ($j6pi) { &ad7; unless ($b1e0) { &aca("$c057{'l'}list"); open (DAT,"<$lists/$c057{'l'}.list"); @g6cf = <DAT>; close(DAT); foreach $ed48(@g6cf) { chomp($ed48); &aaj; if ($e2nm eq $ei6n) { open (ALRESPONSE,"<$lists/$c057{'l'}.alsignup"); if ($LOCK_EX){ flock(ALRESPONSE, $LOCK_EX); } @f6m0 = <ALRESPONSE>; close (ALRESPONSE); unless ($hlj1) { print "Content-type: text/html\n\n"; $hlj1 = 1; } unless ($j81f) { &ab7; } foreach $d9pi(@f6m0) { $d9pi =~ s/<E-MAIL>/$c057{'e'}/g; $d9pi =~ s/<LIST_NAME>/$c057{'list_name'}/g; $d9pi =~ s/<WEBSITEURL>/$websiteurl/g; if ($b736[6] eq '0') { $d9pi =~ s/<SERVER_NAME>/$ENV{'SERVER_NAME'}/g; } else { $d9pi =~ s/<SERVER_NAME>/$b736[6]/g; } $d9pi =~ s/<CGI_URL>/$dj6h/g; $d9pi =~ s/<LIST>/$c057{'l'}/g; $d9pi =~ s/<ADMIN_MAIL>/$b736[2]/g; $d9pi =~ s/<M-MAIL>/$c057{'e'}/g; print "$d9pi"; } if ($j6oa == $f4jj) { &ab8; } $gch7 = 1; &acc("$c057{'l'}list"); unless ($f4jj > 1) { exit; } } } } unless ($gch7) { if (($dfoa) && (!$c057{'p'}) && (!$c057{'session_id'})) { srand; $jl2k = int(rand(999999)); open (DAT,">$tempdir/$c057{'l'}-$c057{'e'}.optin"); if ($LOCK_EX){ flock(DAT, $LOCK_EX); } print DAT "$jl2k"; close(DAT); unless ($hlj1) { print "Content-type: text/html\n\n"; $hlj1 = 1; } open (OPTINHTMLRESPONSE,"<$lists/$c057{'l'}.optinresponse"); if ($LOCK_EX){ flock(OPTINHTMLRESPONSE, $LOCK_EX); } @ih6k = <OPTINHTMLRESPONSE>; close (OPTINHTMLRESPONSE); unless ($j81f) { &ab7; } foreach $d9po(@ih6k) { $d9po =~ s/<E-MAIL>/$c057{'e'}/g; $d9po =~ s/<LIST_NAME>/$c057{'list_name'}/g; $d9po =~ s/<WEBSITEURL>/$websiteurl/g; if ($b736[6] eq '0') { $d9po =~ s/<SERVER_NAME>/$ENV{'SERVER_NAME'}/g; } else { $d9po =~ s/<SERVER_NAME>/$b736[6]/g; } $d9po =~ s/<CGI_URL>/$dj6h/g; $d9po =~ s/<LIST>/$c057{'l'}/g; $d9po =~ s/<ADMIN_MAIL>/$b736[2]/g; $d9po =~ s/<M-MAIL>/$c057{'e'}/g; print "$d9po"; } if ($j6oa == $f4jj) { &ab8; } $jpg9 = $c057{'admin_email'}; $gn8b = ""; open (OPTRESPONSE,"<$lists/$c057{'l'}.optinsignup"); if ($LOCK_EX){ flock(OPTRESPONSE, $LOCK_EX); } @j553 = <OPTRESPONSE>; close (OPTRESPONSE); $bc55 = $c057{'e'}; $bc55 =~ s/\@/\=\:/g; foreach $dn43(@j553) { $dn43 =~ s/<E-MAIL>/$bc55/g; $dn43 =~ s/<LIST_NAME>/$c057{'list_name'}/g; $dn43 =~ s/<WEBSITEURL>/$websiteurl/g; if ($b736[6] eq '0') { $dn43 =~ s/<SERVER_NAME>/$ENV{'SERVER_NAME'}/g; } else { $dn43 =~ s/<SERVER_NAME>/$b736[6]/g; } $dn43 =~ s/<CGI_URL>/$dj6h/g; $dn43 =~ s/<LIST>/$c057{'l'}/g; $dn43 =~ s/<SECURE_CODE>/$jl2k/g; $dn43 =~ s/<M-MAIL>/$c057{'e'}/g; $gn8b .= "$dn43"; } &aac("$c057{'e'}","$c057{'admin_email'}","Your Confirmation Required","$e2pf",0,"$c057{'list_name'}","$gn8b","","1"); &acc("$c057{'l'}list"); unless ($f4jj > 1) { exit; } } else { if (($dfoa) && !$c057{'session_id'}) { undef $/; open (DAT2,"<$tempdir/$c057{'l'}-$c057{'e'}.optin"); if ($LOCK_EX){ flock(DAT2, $LOCK_EX); } $c0ab = <DAT2>; close(DAT2); $/ = "\n"; unless ($c057{'p'} eq $c0ab) { unless ($hlj1) { print "Content-type: text/html\n\n"; $hlj1 = 1; } open (NMRESPONSE,"<$lists/$c057{'l'}.nmresponse"); if ($LOCK_EX){ flock(NMRESPONSE, $LOCK_EX); } @anc6 = <NMRESPONSE>; close (NMRESPONSE); unless ($j81f) { &ab7; } $bc55 = $c057{'e'}; $bc55 =~ s/\@/\=\:/g; foreach $g1jb(@anc6) { $g1jb =~ s/<E-MAIL>/$bc55/g; $g1jb =~ s/<LIST_NAME>/$c057{'list_name'}/g; $g1jb =~ s/<WEBSITEURL>/$websiteurl/g; if ($b736[6] eq '0') { $dn43 =~ s/<SERVER_NAME>/$ENV{'SERVER_NAME'}/g; } else { $dn43 =~ s/<SERVER_NAME>/$b736[6]/g; } $g1jb =~ s/<CGI_URL>/$dj6h/g; $g1jb =~ s/<LIST>/$c057{'l'}/g; $g1jb =~ s/<ADMIN_MAIL>/$b736[2]/g; $g1jb =~ s/<SECURE_CODE>/$c057{'p'}/g; $g1jb =~ s/<M-MAIL>/$c057{'e'}/g; print "$g1jb"; } if ($j6oa == $f4jj) { &ab8; } exit; } unlink("$tempdir/$c057{'l'}-$c057{'e'}.optin"); } elsif ($c057{'session_id'})  { &ac5; } unless ($hlj1) { print "Content-type: text/html\n\n"; $hlj1 = 1; } &aan; unless ($eanj) { open (DAT,">>$lists/$c057{'l'}.list") || die print "Permissions Error - Can't open $c057{'l'}.list file. $!"; print DAT "$c057{'e'}\n" || die print "Permissions Error - can't write to $c057{'l'}.list file."; close (DAT); &acc("$c057{'l'}list"); } open (SRESPONSE,"<$lists/$c057{'l'}.ssignup"); if ($LOCK_EX){ flock(SRESPONSE, $LOCK_EX); } @kca0 = <SRESPONSE>; close (SRESPONSE); unless ($j81f) { &ab7; } foreach $j95l(@kca0) { $j95l =~ s/<E-MAIL>/$c057{'e'}/g; $j95l =~ s/<LIST_NAME>/$c057{'list_name'}/g; $j95l =~ s/<WEBSITEURL>/$websiteurl/g; if ($b736[6] eq '0') { $j95l =~ s/<SERVER_NAME>/$ENV{'SERVER_NAME'}/g; } else { $j95l =~ s/<SERVER_NAME>/$b736[6]/g; } $j95l =~ s/<CGI_URL>/$dj6h/g; $j95l =~ s/<LIST>/$c057{'l'}/g; $j95l =~ s/<ADMIN_MAIL>/$b736[2]/g; $j95l =~ s/<M-MAIL>/$c057{'e'}/g; print "$j95l"; } if ($j6oa == $f4jj) { &ab8; } unless ($c057{'usernotify'}) { $jpg9 = $c057{'admin_email'}; $gn8b = ""; open (RESPONSE,"<$lists/$c057{'l'}.signup"); if ($LOCK_EX){ flock(RESPONSE, $LOCK_EX); } @jd26 = <RESPONSE>; close (RESPONSE); $bc55 = $c057{'e'}; $bc55 =~ s/\@/\=\:/g; foreach $dn43(@jd26) { $dn43 =~ s/<E-MAIL>/$bc55/g; $dn43 =~ s/<LIST_NAME>/$c057{'list_name'}/g; $dn43 =~ s/<WEBSITEURL>/$websiteurl/g; if ($b736[6] eq '0') { $dn43 =~ s/<SERVER_NAME>/$ENV{'SERVER_NAME'}/g; } else { $dn43 =~ s/<SERVER_NAME>/$b736[6]/g; } $dn43 =~ s/<CGI_URL>/$dj6h/g; $dn43 =~ s/<LIST>/$c057{'l'}/g; $dn43 =~ s/<M-MAIL>/$c057{'e'}/g; $gn8b .= "$dn43"; } &aac("$c057{'e'}","$c057{'admin_email'}","You've Been Added!","$e2pf",0,"$c057{'list_name'}","$gn8b","","1"); } if ($notification eq "ON") { &abl; } } } $gcm5++; } } exit; } sub abc{ $hlj1 = 0; $dj4d = 0; $j81f = 0; chomp($c057{'l'}); @fn4f = split (/ /,$c057{'l'}); $f4jj= @fn4f; $j6oa = 0; $gcm5 = 1; foreach $ed48(@fn4f) { $fnf8 = 0; chomp($ed48); $j6oa++; $c057{'l'} = "$ed48"; undef($e05i); open (DB, "<$lists/lists.db"); if ($LOCK_EX){ flock(DB, $LOCK_EX); } @f121 = <DB>; close (DB); foreach $ed48(@f121) { @b736 = split(/\|/,$ed48); $c057{'l'} =~tr/0-9//cd; if ($b736[0] == $c057{'l'}) { $c057{'list_name'} = $b736[1]; $e09k = "$c057{'list_name'}"; $c057{'admin_email'} = $b736[2]; if (lc $b736[5] eq 'optout') { $e05i = 1; } last; } } &acn; undef($f2a4); &aca("$c057{'l'}list"); open (DAT,"<$lists/$c057{'l'}.list"); @g6cf = <DAT>; close(DAT); &acc("$c057{'l'}list"); foreach $ed48(@g6cf) { chomp($ed48); $ed48 =~ s/\r//; &aaj; if ($e2nm eq $ei6n) { $f2a4 = "1"; } } if ($f2a4) { if (-e "$removes/$c057{'l'}.list") { &aca("$c057{'l'}list"); open (DAT2,"<$removes/$c057{'l'}.list"); @d4dc = <DAT2>; close(DAT2); &acc("$c057{'l'}list"); foreach $ed48(@d4dc) { chomp($ed48); $ed48 =~ s/\r//; &aaj; if ($e2nm eq $ei6n) { $f2a4 = ""; } } } } unless ($f2a4) { $fnf8 = 1; open (NFRESPONSE,"<$lists/$c057{'l'}.nfresponse"); if ($LOCK_EX){ flock(NFRESPONSE, $LOCK_EX); } @ihif = <NFRESPONSE>; close (NFRESPONSE); unless ($hlj1) { print "Content-type: text/html\n\n"; $hlj1 = 1; } unless ($j81f) { &ab7; } foreach $d96a(@ihif) { $d96a =~ s/<E-MAIL>/$c057{'e'}/g; $d96a =~ s/<LIST_NAME>/$c057{'list_name'}/g; $d96a =~ s/<WEBSITEURL>/$websiteurl/g; if ($b736[6] eq '0') { $d96a =~ s/<SERVER_NAME>/$ENV{'SERVER_NAME'}/g; } else { $d96a =~ s/<SERVER_NAME>/$b736[6]/g; } $d96a =~ s/<CGI_URL>/$dj6h/g; $d96a =~ s/<LIST>/$c057{'l'}/g; $d96a =~ s/<ADMIN_MAIL>/$b736[2]/g; $d96a =~ s/<M-MAIL>/$c057{'e'}/g; print "$d96a"; } if ($j6oa == $f4jj) { &ab8; } close (DAT); unless ($f4jj > 1) { exit; } } unless ($fnf8) { if (($e05i) && (!$c057{'p'}) && (!$c057{'session_id'})) { srand; $c6n1 = int(rand(999999)); open (DAT,">$tempdir/$c057{'l'}-$c057{'e'}.optout"); if ($LOCK_EX){ flock(DAT, $LOCK_EX); } print DAT "$c6n1"; close(DAT); unless ($hlj1) { print "Content-type: text/html\n\n"; $hlj1 = 1; } open (OPTOUTHTMLRESPONSE,"<$lists/$c057{'l'}.optoutsignup"); if ($LOCK_EX){ flock(OPTOUTHTMLRESPONSE, $LOCK_EX); } @c7b5 = <OPTOUTHTMLRESPONSE>; close (OPTOUTHTMLRESPONSE); unless ($j81f) { &ab7; } foreach $j6fl(@c7b5) { $j6fl =~ s/<E-MAIL>/$c057{'e'}/g; $j6fl =~ s/<LIST_NAME>/$c057{'list_name'}/g; $j6fl =~ s/<WEBSITEURL>/$websiteurl/g; if ($b736[6] eq '0') { $j6fl =~ s/<SERVER_NAME>/$ENV{'SERVER_NAME'}/g; } else { $j6fl =~ s/<SERVER_NAME>/$b736[6]/g; } $j6fl =~ s/<CGI_URL>/$dj6h/g; $j6fl =~ s/<LIST>/$c057{'l'}/g; $j6fl =~ s/<ADMIN_MAIL>/$b736[2]/g; $j6fl =~ s/<M-MAIL>/$c057{'e'}/g; print "$j6fl"; } if ($j6oa == $f4jj) { &ab8; } $jpg9 = $c057{'admin_email'}; $gn8b = ""; open (OPTOUTRESPONSE,"<$lists/$c057{'l'}.optoutresponse"); if ($LOCK_EX){ flock(OPTOUTRESPONSE, $LOCK_EX); } @ceo0 = <OPTOUTRESPONSE>; close (OPTOUTRESPONSE); $bc55 = $c057{'e'}; $bc55 =~ s/\@/\=\:/g; foreach $cg3j(@ceo0) { $cg3j =~ s/<E-MAIL>/$bc55/g; $cg3j =~ s/<LIST_NAME>/$c057{'list_name'}/g; $cg3j =~ s/<WEBSITEURL>/$websiteurl/g; if ($b736[6] eq '0') { $cg3j =~ s/<SERVER_NAME>/$ENV{'SERVER_NAME'}/g; } else { $cg3j =~ s/<SERVER_NAME>/$b736[6]/g; } $cg3j =~ s/<CGI_URL>/$dj6h/g; $cg3j =~ s/<LIST>/$c057{'l'}/g; $cg3j =~ s/<SECURE_CODE>/$c6n1/g; $cg3j =~ s/<M-MAIL>/$c057{'e'}/g; $gn8b .= "$cg3j"; } &aac("$c057{'e'}","$c057{'admin_email'}","Your Confirmation Required","$e2pf",0,"$c057{'list_name'}","$gn8b","","1"); &acc("$c057{'l'}list"); unless ($f4jj > 1) { exit; } } else { if (($e05i) && !$c057{'session_id'}) { undef $/; open (DAT2,"<$tempdir/$c057{'l'}-$c057{'e'}.optout"); if ($LOCK_EX){ flock(DAT2, $LOCK_EX); } $c0ab = <DAT2>; close(DAT2); $/ = "\n"; unless ($c057{'p'} eq $c0ab) { print "Content-type: text/html\n\n"; open (NMRESPONSE,"<$lists/$c057{'l'}.nmresponse"); if ($LOCK_EX){ flock(NMRESPONSE, $LOCK_EX); } @anc6 = <NMRESPONSE>; close (NMRESPONSE); unless ($j81f) { &ab7; } foreach $g1jb(@anc6) { $g1jb =~ s/<E-MAIL>/$c057{'e'}/g; $g1jb =~ s/<LIST_NAME>/$c057{'list_name'}/g; $g1jb =~ s/<WEBSITEURL>/$websiteurl/g; if ($b736[6] eq '0') { $g1jb =~ s/<SERVER_NAME>/$ENV{'SERVER_NAME'}/g; } else { $g1jb =~ s/<SERVER_NAME>/$b736[6]/g; } $g1jb =~ s/<CGI_URL>/$dj6h/g; $g1jb =~ s/<LIST>/$c057{'l'}/g; $g1jb =~ s/<ADMIN_MAIL>/$b736[2]/g; $g1jb =~ s/<SECURE_CODE>/$c057{'p'}/g; $g1jb =~ s/<M-MAIL>/$c057{'e'}/g; print "$g1jb"; } if ($j6oa == $f4jj) { &ab8; } exit; } unlink("$tempdir/$c057{'l'}-$c057{'e'}.optout"); } elsif ($c057{'session_id'})  { &ac5; } unless ($hlj1) { print "Content-type: text/html\n\n"; $hlj1 = 1; } foreach $ed48(@g6cf) { chomp($ed48); $ed48 =~ s/\r//; &aaj; if ($e2nm eq $ei6n) { open (RRESPONSE,"<$lists/$c057{'l'}.rremoval"); if ($LOCK_EX){ flock(RRESPONSE, $LOCK_EX); } @dh8h = <RRESPONSE>; close (RRESPONSE); unless ($j81f) { &ab7; } foreach $i79p(@dh8h) { $i79p =~ s/<E-MAIL>/$c057{'e'}/g; $i79p =~ s/<LIST_NAME>/$c057{'list_name'}/g; $i79p =~ s/<WEBSITEURL>/$websiteurl/g; if ($b736[6] eq '0') { $i79p =~ s/<SERVER_NAME>/$ENV{'SERVER_NAME'}/g; } else { $i79p =~ s/<SERVER_NAME>/$b736[6]/g; } $i79p =~ s/<CGI_URL>/$dj6h/g; $i79p =~ s/<LIST>/$c057{'l'}/g; $i79p =~ s/<ADMIN_MAIL>/$b736[2]/g; $i79p =~ s/<M-MAIL>/$c057{'e'}/g; print "$i79p"; } if ($j6oa == $f4jj) { &ab8; } open (REMOVETEMP, ">>$removes/$c057{'l'}.list"); if ($LOCK_EX){ flock(REMOVETEMP, $LOCK_EX); } print REMOVETEMP "$ed48\n"; close(REMOVETEMP); unless ($c057{'usernotify'}) { $gn8b = ""; open (RESPONSE,"<$lists/$c057{'l'}.removal"); if ($LOCK_EX){ flock(RESPONSE, $LOCK_EX); } @jd26 = <RESPONSE>; close (RESPONSE); $bc55 = $c057{'e'}; $bc55 =~ s/\@/\=\:/g; foreach $dn43(@jd26) { $dn43 =~ s/<E-MAIL>/$bc55/g; $dn43 =~s/<LIST_NAME>/$c057{'list_name'}/g; $dn43 =~ s/<WEBSITEURL>/$websiteurl/g; if ($b736[6] eq '0') { $dn43 =~ s/<SERVER_NAME>/$ENV{'SERVER_NAME'}/g; } else { $dn43 =~ s/<SERVER_NAME>/$b736[6]/g; } $dn43 =~ s/<CGI_URL>/$dj6h/g; $dn43 =~ s/<LIST>/$c057{'l'}/g; $dn43 =~ s/<M-MAIL>/$c057{'e'}/g; $gn8b .= "$dn43"; } &aac("$c057{'e'}","$c057{'admin_email'}","You've Been Removed!","$e2pf",0,"$c057{'list_name'}","$gn8b","","1"); } if ($notification eq "ON") { &ab4; } unless ($f4jj > 1) { exit; } } } } } $gcm5++; } exit; } sub numerically { $a <=> $b; } sub abf{ &ac5; %c22l = ( '30','30 seconds', '60','1 minute', '300','5 minutes', '600','10 minutes', '900','15 minutes', '1800','30 minutes', '3600','1 hour', '7200','2 hours', '10800','3 hours', '14400','4 hours', '18000','5 hours', '21600','6 hours', '43200','12 hours', '86400','24 hours', ); print "Content-type: text/html\n\n"; &ad0; $c84d = "Mass Mailing Form"; &ac0; print qq—\n    <FORM ACTION="$dj6h" METHOD="POST">\n    <INPUT TYPE="HIDDEN" NAME="session_id" VALUE="$c057{'session_id'}">\n    <CENTER>\n    <TABLE BORDER="0" WIDTH="400">\n      <TBODY>\n      <TR>\n        <TD ALIGN="CENTER">\n        <TABLE BORDER="0">\n—;if ($c057{'testmailing'}) { print qq—      <TR>\n        <TD COLSPAN="4" ALIGN="CENTER"> <FONT FACE="verdana, arial, helvetica" COLOR="#0000FF"><B>Preview\n        mailing sent to the list administrator<BR><BR></B></FONT></TD>\n      </TR>\n      <TR>\n—;} print qq—          <TR>\n            <TD><A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/mailsubject.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A></TD>\n            <TD><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>Subject:</B></FONT></TD>\n            <TD COLSPAN="2"><INPUT TYPE="TEXT" SIZE="30" NAME="mail_subject" VALUE="$c057{'mail_subject'}"></TD>\n          </TR>\n          <TR>\n            <TD><A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/tolists.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A></TD>\n            <TD><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>To\n            List(s):</B></FONT></TD>\n            <TD COLSPAN="2"><SELECT NAME="to_lists" SIZE="1">\n\n—;open (LISTS, "<$lists/lists.db"); if ($LOCK_EX){ flock(LISTS, $LOCK_EX); } @dlf4 = <LISTS>; close(LISTS); foreach $ed48(@dlf4) { @fn4f = split(/\|/,$ed48); if (($c057{'to_lists'}) && ($c057{'to_lists'} eq $fn4f[0])) { $f2a4 = 1; print "<OPTION VALUE=\"$fn4f[0]\" SELECTED=\"SELECTED\">$fn4f[1]</OPTION>\n"; } else { print "<OPTION VALUE=\"$fn4f[0]\">$fn4f[1]</OPTION>\n"; } } unless ($f2a4) { print qq—            <OPTION VALUE="choose" SELECTED="SELECTED">Choose list to send to</OPTION>\n—;} print qq—\n</SELECT></TD>\n          </TR>\n\n<!-- Send as HTML removed here -->\n          <TR>\n            <TD><A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/removelink.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A></TD>\n            <TD><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>Remove Link:</B></FONT></TD>\n            <TD>\n—;if ($c057{'no_credit'}) { print qq—<INPUT TYPE="CHECKBOX" NAME="no_credit" CHECKED="CHECKED" ALIGN="BOTTOM">\n—;} else { print qq—<INPUT TYPE="CHECKBOX" NAME="no_credit" ALIGN="BOTTOM">\n—;} print qq—          </TD>\n            <TD><FONT SIZE="-2" FACE="verdana, arial, helvetica"><B>(Removes "Powered by Subscribe Me" link) from mailings.</B></FONT></TD>\n          </TR>\n          <TR>\n            <TD><A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/unsubscribelink.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A></TD>\n            <TD><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>Include\n            Unsubscribe Address Link:</B></FONT></TD>\n            <TD>\n—;if ($c057{'unsubscribe_address'}) { print qq—<INPUT TYPE="CHECKBOX" NAME="unsubscribe_address" CHECKED="CHECKED" ALIGN="BOTTOM">\n—;} else { print qq—<INPUT TYPE="CHECKBOX" NAME="unsubscribe_address" ALIGN="BOTTOM">\n—;} print qq—         </TD>\n            <TD></TD>\n          </TR>\n          <TR>\n            <TD><A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/trackmailings-new.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A></TD>\n            <TD><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>Track All\n            Clicks from Mailings:</B></FONT></TD>\n—;if ($c057{'tracking'}) { print qq—            <TD><INPUT TYPE="CHECKBOX" NAME="tracking" CHECKED="CHECKED" ALIGN="BOTTOM"> </TD>\n            <TD></TD>\n—;} else { print qq—            <TD><INPUT TYPE="CHECKBOX" NAME="tracking" ALIGN="BOTTOM"> </TD>\n            <TD></TD>\n—;} print qq—           </TR>\n           <TR>\n            <TD><A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/batchmailings.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A></TD>\n            <TD><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>Send mail\n            in batches:</B></FONT></TD>\n            <TD>\n—;if ($c057{'sendbatches'}) { print qq—<INPUT TYPE="CHECKBOX" NAME="sendbatches" CHECKED="CHECKED" ALIGN="BOTTOM">\n—;} else { print qq—<INPUT TYPE="CHECKBOX" NAME="sendbatches" ALIGN="BOTTOM">\n—;} print qq—           </TD>\n            <TD>\n—;if ($c057{'bnumber'}) { print qq—<INPUT TYPE="TEXT" NAME="bnumber" SIZE="4" VALUE="$c057{'bnumber'}">\n—;} else { print qq—<INPUT TYPE="TEXT" NAME="bnumber" SIZE="4" VALUE="1000">\n—;} print qq—            <FONT SIZE="-2" FACE="Arial, Helvetica"><B>addresses every</B></FONT>\n            <SELECT NAME="every" SIZE="1">\n—;$id0j = $c057{'every'}; foreach $k85c (sort numerically (keys(%c22l))) { if (($id0j) && ($k85c eq $id0j)) { $jf24 = 1; print "<OPTION VALUE=\"$k85c\" SELECTED=\"SELECTED\">$c22l{$k85c}</OPTION>"; } else { print "<OPTION VALUE=\"$k85c\">$c22l{$k85c}</OPTION>"; } } unless ($jf24) { print "<OPTION VALUE=\"1800\" SELECTED=\"SELECTED\">30 minutes</OPTION>"; } print qq—         </SELECT></TD>\n          </TR>\n            <TR>\n        <TD><A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/invitations.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A></TD>\n        <TD><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>Optional &quot;Invitation&quot;\n        Address List:</B></FONT></TD>\n        <TD COLSPAN="2">\n        <P><TEXTAREA NAME="invitation_text" ROWS="3" COLS="30" WRAP="Off">\n—;if ($c057{'invitation_text'}) { print "$c057{'invitation_text'}"; } else { print qq—Join our list!\nClick the link below to be added to our mailing list. If you choose not to be added to our list, you will not receive any additional mailings.\nNo unsubscription is necessary, as you are not presently subscribed to our list.\n—;} print qq—</TEXTAREA><BR>\n          <TEXTAREA NAME="invitation" ROWS="5" COLS="30" WRAP="Off">$c057{'invitation'}</TEXTAREA></P></TD>\n      </TR>\n          <TR>\n            <TD><A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/adminpass.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n</TD>\n            <TD><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>Administration\n            Password:</B></FONT></TD>\n            <TD COLSPAN="2"><INPUT TYPE="PASSWORD" NAME="password" VALUE="$c057{'password'}" SIZE="30"></TD>\n          </TR>\n        </TABLE> <FONT SIZE="-1" FACE="Verdana, Arial, Helvetica">Type/Place HTML Messages in window below<BR> <TEXTAREA NAME="message" ROWS="12" COLS="50" WRAP="OFF">$c057{'message'}</TEXTAREA><BR>\n        <FONT SIZE="-1" FACE="Verdana, Arial, Helvetica">Type/Place TEXT Messages in window below<BR><TEXTAREA NAME="message_textonly" ROWS="12" COLS="50" WRAP="OFF">$c057{'message_textonly'}</TEXTAREA><BR>\n        <INPUT TYPE="SUBMIT" VALUE="Send to Administrator" NAME="testmailing"><INPUT TYPE="SUBMIT" VALUE="Send to Subscribers" NAME="mailing"><INPUT TYPE="RESET" NAME="">\n        </TD>\n      </TR></TBODY>\n    </TABLE></CENTER></FORM>\n—;&ab9; &aap; exit; } sub acn{ $c057{'e'} =~ s/\s//g; $c057{'e'} =~ s/\=\:/\@/g; unless ($c057{'e'} =~ /(@.*@)|(\.\.)|(@\.)|(^\.)|(,)|(\/)|(\:)/ || $c057{'e'} !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$/) { $h504 = 1; } else { $h504 = 0; $dj4d = 1; } if ($h504 !~ 1) { open (IMPROPERRESPONSE,"<$lists/$c057{'l'}.impropersignup"); if ($LOCK_EX){ flock(IMPROPERRESPONSE, $LOCK_EX); } @e6no = <IMPROPERRESPONSE>; close (IMPROPERRESPONSE); unless ($hlj1) { print "Content-type: text/html\n\n"; $hlj1 = 1; } unless ($j81f) { &ab7; } foreach $j4pp(@e6no) { $j4pp =~ s/<E-MAIL>/$c057{'e'}/g; $j4pp =~ s/<LIST_NAME>/$c057{'list_name'}/g; $j4pp =~ s/<WEBSITEURL>/$websiteurl/g; if ($b736[6] eq '0') { $j4pp =~ s/<SERVER_NAME>/$ENV{'SERVER_NAME'}/g; } else { $j4pp =~ s/<SERVER_NAME>/$b736[6]/g; } $j4pp =~ s/<CGI_URL>/$dj6h/g; $j4pp =~ s/<LIST>/$c057{'l'}/g; $j4pp =~ s/<ADMIN_MAIL>/$b736[2]/g; $j4pp =~ s/<SECURE_CODE>/$c057{'p'}/g; $j4pp =~ s/<M-MAIL>/$c057{'e'}/g; print "$j4pp"; } &ab8; exit; } } sub ac3{ if (-e "$passfile/password.txt") { print "Content-type: text/html\n\n"; &ad0; &ac1; print qq—\n    \n    <FORM ACTION="$dj6h" METHOD="POST">\n    <INPUT TYPE="HIDDEN" NAME="enterpass" VALUE="1">\n    <CENTER>\n    <TABLE BORDER="0" WIDTH="400">\n      <TBODY>\n      <TR>\n        <TD>\n        \n        <P ALIGN="CENTER"><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe\n          Me</FONT> Status:<BR>\n           Administration Password</FONT></B></P>\n        \n        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">The Administration\n          section is restricted to authorized individuals only. Please enter the\n          Administration password below.</FONT></P>\n        <CENTER>\n        <TABLE BORDER="0">\n          <TBODY>\n          <TR>\n            <TD ALIGN="CENTER"><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>Password</B></FONT><BR>\n            <INPUT TYPE="PASSWORD" NAME="pwd"></TD>\n          </TR>\n          <TR>\n            <TD ALIGN="CENTER"><BR>\n            <INPUT TYPE="SUBMIT" NAME="passcheck" VALUE="  Enter Password  " CHECKED="CHECKED"><INPUT TYPE="RESET" NAME=""></TD>\n          </TR></TBODY>\n        </TABLE></CENTER> </TD>\n      </TR>\n      <TR>\n        <TD><BR>\n        <FONT SIZE="-2" FACE="arial, helvetica"><B>Enable Javascript\n        on your web browser to see script update information below.</B></FONT></TD>\n      </TR></TBODY>\n    </TABLE></CENTER></FORM>\n    <CENTER>\n    <TABLE BORDER="0" WIDTH="400">\n      <TR>\n        <TD ALIGN="CENTER"><FONT SIZE="-1" FACE="arial, helvetica"><B>Version Information</B></FONT></TD>\n      </TR>\n        <TR>\n        <TD BGCOLOR="#000000">\n        <TABLE BORDER="0" WIDTH="400" BGCOLOR="#FFFFFF" CELLPADDING="0" CELLSPACING="0">\n       <TR>\n        <TD ALIGN="CENTER" WIDTH="50%"><FONT SIZE="-2" FACE="arial, helvetica">Your\n        Version:</FONT></TD>\n        <TD ALIGN="CENTER" WIDTH="50%"><FONT SIZE="-2" FACE="arial, helvetica">$fnl8</FONT></TD>\n      </TR>\n\n<SCRIPT LANGUAGE="javascript1.1" SRC="http://www.cgiscriptcenter.com/subent/js.js">\n</SCRIPT>\n          \n        </TABLE> </TD>\n      </TR>\n    </TABLE></CENTER>\n\n<CENTER><BR>\n    <TABLE BORDER="0" WIDTH="400">\n      <TR>\n        <TD ALIGN="CENTER"><FONT SIZE="-1" FACE="arial, helvetica"><B>News Updates</B></FONT></TD>\n      </TR>\n        <TR>\n        <TD BGCOLOR="#000000">\n        <TABLE BORDER="0" WIDTH="400" BGCOLOR="#FFFFFF" CELLPADDING="4" CELLSPACING="0">\n<SCRIPT LANGUAGE="javascript1.1" SRC="http://www.cgiscriptcenter.com/subent/jsnews.js">\n</SCRIPT>\n          \n        </TABLE></TD>\n      </TR>\n    </TABLE></CENTER>\n—;&abb; &aap; exit; } else { print "Content-type: text/html\n\n"; &ad0; &ac1; print qq—\n    <FORM ACTION="$deb3" METHOD="POST">\n    <INPUT TYPE="HIDDEN" NAME="setpwd" VALUE="1">\n    <CENTER><BR>\n    <TABLE BORDER="0" WIDTH="400">\n      <TBODY>\n      <TR>\n        <TD>\n        \n        <P><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe\n          Me</FONT> Status: Set Password!</FONT></B></P>\n        \n        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">You have not yet\n          set your administration password! Please enter your password below,\n          once to set the password and the second time to confirm it.</FONT></P>\n        <CENTER>\n        <TABLE BORDER="0">\n          <TBODY>\n          <TR>\n            <TD ALIGN="RIGHT"><INPUT TYPE="PASSWORD" NAME="pwd"></TD>\n            <TD><FONT SIZE="-2" FACE="verdana, arial, helvetica">password</FONT></TD>\n          </TR>\n          <TR>\n            <TD ALIGN="RIGHT"><INPUT TYPE="PASSWORD" NAME="pwd2"></TD>\n            <TD><FONT SIZE="-2" FACE="verdana, arial, helvetica">confirmation</FONT></TD>\n          </TR>\n          <TR>\n            <TD ALIGN="CENTER"><BR>\n            <INPUT TYPE="SUBMIT" NAME="setpwd" VALUE="  Set Password  "></TD>\n            <TD><BR>\n            <INPUT TYPE="RESET" NAME=""></TD>\n          </TR></TBODY>\n        </TABLE></CENTER> </TD>\n      </TR></TBODY>\n    </TABLE></CENTER></FORM>\n—;&abb; &aap; exit; } } sub ac9{ open (PASSWORD, "$passfile/password.txt"); if ($LOCK_EX){ flock(PASSWORD, $LOCK_EX); } $agdf = <PASSWORD>; close (PASSWORD); chop ($agdf) if ($agdf =~ /\n$/); if ($c057{'pwd'}) { $h4pj = crypt($c057{'pwd'}, 'aa'); } else { print "Content-type: text/html\n\n"; &ad0; print qq—    <FORM ACTION="$dj6h" METHOD="POST">\n    <CENTER><BR>\n    <TABLE BORDER="0" WIDTH="400">\n      <TBODY>\n      <TR>\n        <TD>\n        \n        <P><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe Me\n         </FONT> Status: Password Error!</FONT></B></P>\n        \n        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">Please enter your\n          password!</FONT></P> </TD>\n      </TR></TBODY>\n    </TABLE></CENTER></FORM>\n—;&aap; exit; } unless ($h4pj eq $agdf) { print "Content-type: text/html\n\n"; &ad0; print qq—<FORM ACTION=\"$dj6h\" METHOD=\"POST\"><CENTER><BR>\n<TABLE BORDER=\"0\" WIDTH=\"400\"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR><TD\nCOLSTART=\"1\"><P><B><FONT FACE=\"verdana, arial, helvetica\"><FONT\nCOLOR=\"#FF0000\">Subscribe Me</FONT> Status:  Password Error!</FONT></B></P>\n<P><FONT SIZE=\"-1\" FACE=\"verdana, arial, helvetica\">Incorrect password!  Please enter the correct password.</FONT></P>\n<CENTER><TABLE\nBORDER=\"0\" WIDTH=\"400\"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR><TD\nCOLSTART=\"1\"><HR SIZE=\"1\"></TD></TR><TR><TD ALIGN=\"CENTER\" COLSTART=\"1\"><FONT\nSIZE=\"-2\" FACE=\"verdana, arial, helvetica\">Maintained with  <A HREF=\"http://www.cgiscriptcenter.com/subpro/index2.html\" TARGET=\"_blank\"><B>Subscribe Me $fnl8 - Enterprise Edition</B></A></FONT></TD></TR></ROWS></TBODY></TABLE></CENTER></TD></TR></ROWS></TBODY></TABLE></CENTER></FORM>\n—;exit; } } sub aci{ open (PASSWORD, "$passfile/password.txt"); if ($LOCK_EX){ flock(PASSWORD, $LOCK_EX); } $agdf = <PASSWORD>; close (PASSWORD); chop ($agdf) if ($agdf =~ /\n$/); if ($c057{'pwd'}) { $h4pj = crypt($c057{'pwd'}, 'aa'); } else { print "Content-type: text/html\n\n"; print "<HTML><HEAD><TITLE>Subscribe Me: Password Error!</TITLE></HEAD><BODY BGCOLOR=\" <TABLE BORDER=\"0\" WIDTH=\"400\"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR><TD COLSTART=\"1\"><P><B><FONT FACE=\"verdana, arial, helvetica\"><FONT COLOR=\" <P><FONT SIZE=\"-1\" FACE=\"verdana, arial, helvetica\">Please enter your password!</FONT></P> <CENTER><TABLE BORDER=\"0\" WIDTH=\"400\"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR><TD COLSTART=\"1\"><HR SIZE=\"1\"></TD></TR><TR><TD ALIGN=\"CENTER\" COLSTART=\"1\"><FONT SIZE=\"-2\" FACE=\"verdana, arial, helvetica\">Maintained with  <A HREF=\"http://www.cgiscriptcenter.com/subpro/index2.html\" TARGET=\"_blank\"><B>Subscribe Me $fnl8 - Enterprise Edition</B></A></FONT></TD></TR></ROWS></TBODY></TABLE></CENTER></TD></TR></ROWS></TBODY></TABLE></CENTER></FORM></BODY></HTML>"; exit; } unless ($h4pj eq $agdf) { print "Content-type: text/html\n\n"; print "<HTML><HEAD><TITLE>Subscribe Me: Password Error!</TITLE></HEAD><BODY BGCOLOR=\" <TABLE BORDER=\"0\" WIDTH=\"400\"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR><TD COLSTART=\"1\"><P><B><FONT FACE=\"verdana, arial, helvetica\"><FONT COLOR=\" <P><FONT SIZE=\"-1\" FACE=\"verdana, arial, helvetica\">Incorrect password!  Please enter the correct password.</FONT></P> <CENTER><TABLE BORDER=\"0\" WIDTH=\"400\"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR><TD COLSTART=\"1\"><HR SIZE=\"1\"></TD></TR><TR><TD ALIGN=\"CENTER\" COLSTART=\"1\"><FONT SIZE=\"-2\" FACE=\"verdana, arial, helvetica\"> Maintained with  <A HREF=\"http://www.cgiscriptcenter.com/subpro/index2.html\" TARGET=\"_blank\"><B>Subscribe Me $fnl8 - Enterprise Edition</B></A></FONT></TD></TR></ROWS></TBODY></TABLE></CENTER></TD></TR></ROWS></TBODY></TABLE></CENTER></FORM></BODY></HTML>"; exit; } &ab0; &ab5; } sub ab0{ &ac9; srand($i4ae); $ka0h =""; @bjn9 = ('a'..'z', 'A'..'Z', '1'..'9'); for ($i4m8 = 0; $i4m8 < 15; $i4m8++) { $com8 = int(rand($#bjn9 + 1)); $ka0h .= @bjn9[$com8]; } open(SESSIONID, ">$memberinfo/session.id"); if ($LOCK_EX){ flock(SESSIONID, $LOCK_EX); } print SESSIONID "$ka0h"; close(SESSIONID); $c057{'session_id'} = "$ka0h"; open(SESSIONTIME, ">$memberinfo/session.time"); if ($LOCK_EX){ flock(SESSIONTIME, $LOCK_EX); } print SESSIONTIME "$i4ae"; close(SESSIONTIME); } sub aaj{ $ei6n = $c057{'e'}; $e2nm = $ed48; $e2nm =~ tr/A-Z/a-z/; $ei6n =~ tr/A-Z/a-z/; } sub ad0{ open (FILE,"<$lists/default.header"); if ($LOCK_EX){ flock(FILE, $LOCK_EX); } @hgee = <FILE>; close(FILE); print "<HTML>"; foreach $hpo6(@hgee) { $hpo6 =~ s/<\/HEAD>/<SCRIPT LANGUAGE=\"JavaScript\">\n<!-- Begin \nfunction Start(page) {\nOpenWin = this.open(page, \"CtrlWindow\", [\"toolbar=no,menubar=no,location=no,scrollbars=yes,resize=yes,height=350,width=520\"])\;\n}\n\/\/ End -->\n<\/SCRIPT><\/HEAD>/i; print "$hpo6"; } } sub ab7{ $j81f = 1; open (FILE,"<$lists/$c057{'l'}.header"); if ($LOCK_EX){ flock(FILE, $LOCK_EX); } @hgee = <FILE>; close(FILE); print "<HTML>"; foreach $hpo6(@hgee) { print "$hpo6"; } } sub aap{ $j337 = 1; open (FILE,"<$lists/default.footer"); if ($LOCK_EX){ flock(FILE, $LOCK_EX); } @b713 = <FILE>; close(FILE); foreach $hpo6(@b713) { print "$hpo6"; } if (lc $link eq "partial_credit") { print qq—    <CENTER>\n    <TABLE BORDER="0" WIDTH="400">\n      <TBODY>\n      <TR>\n        <TD><HR SIZE="1"></TD>\n      </TR>\n      <TR>\n        <TD ALIGN="CENTER"><FONT SIZE="-2" FACE="verdana, arial, helvetica">\n        <FONT COLOR="#C0C0C0">Maintained with <B>Subscribe Me $fnl8 - Enterprise Edition</B></FONT></FONT></TD>\n      </TR></TBODY>\n    </TABLE></CENTER>\n</BODY></HTML>\n—;} elsif (lc $link eq "no_credit") { print qq—</BODY></HTML>\n—;} else { print qq—    <CENTER>\n    <TABLE BORDER="0" WIDTH="400">\n      <TBODY>\n      <TR>\n        <TD><HR SIZE="1"></TD>\n      </TR>\n      <TR>\n        <TD ALIGN="CENTER"><FONT SIZE="-2" FACE="verdana, arial, helvetica">\n        Maintained with <A HREF="http://www.subscribemepro.com/" TARGET="_blank"><B>Subscribe\n          Me $fnl8 - Enterprise Edition</B></A></FONT></TD>\n      </TR></TBODY>\n    </TABLE></CENTER>\n</BODY></HTML>\n—;} } sub ab8{ $j337 = 1; open (FILE,"<$lists/$c057{'l'}.footer"); if ($LOCK_EX){ flock(FILE, $LOCK_EX); } @b713 = <FILE>; close(FILE); foreach $hpo6(@b713) { print "$hpo6"; } if (lc $link eq "partial_credit") { print qq—    <CENTER>\n    <TABLE BORDER="0" WIDTH="400">\n      <TBODY>\n      <TR>\n        <TD><HR SIZE="1"></TD>\n      </TR>\n      <TR>\n        <TD ALIGN="CENTER"><FONT SIZE="-2" FACE="verdana, arial, helvetica">\n        <FONT COLOR="#C0C0C0">Maintained with <B>Subscribe Me $fnl8 - Enterprise Edition</B></FONT></FONT></TD>\n      </TR></TBODY>\n    </TABLE></CENTER>\n</BODY></HTML>\n—;} elsif (lc $link eq "no_credit") { print qq—</BODY></HTML>\n—;} else { print qq—    <CENTER>\n    <TABLE BORDER="0" WIDTH="400">\n      <TBODY>\n      <TR>\n        <TD><HR SIZE="1"></TD>\n      </TR>\n      <TR>\n        <TD ALIGN="CENTER"><FONT SIZE="-2" FACE="verdana, arial, helvetica">\n        Maintained with <A HREF="http://www.subscribemepro.com/" TARGET="_blank"><B>Subscribe\n          Me $fnl8 - Enterprise Edition</B></A></FONT></TD>\n      </TR></TBODY>\n    </TABLE></CENTER>\n</BODY></HTML>\n—;} } sub ac5{ open(SESSIONTIME, "<$memberinfo/session.time"); if ($LOCK_EX){ flock(SESSIONTIME, $LOCK_EX); } $h9ae = <SESSIONTIME>; close(SESSIONTIME); $hbdc = $i4ae - $h9ae; open(SESSIONID, "<$memberinfo/session.id"); if ($LOCK_EX){ flock(SESSIONID, $LOCK_EX); } $fhh7 = <SESSIONID>; close(SESSIONID); unless (($c057{'session_id'} eq "$fhh7") && ("$hbdc" < "$config_session") && ($fhh7)) { &ac3; exit; } open(SESSIONTIME, ">$memberinfo/session.time"); if ($LOCK_EX){ flock(SESSIONTIME, $LOCK_EX); } print SESSIONTIME "$i4ae"; close(SESSIONTIME); } sub ac7{ &ac5; $f87k = "$ENV{'SERVER_NAME'}"; print "Content-type: text/html\n\n"; &ad0; &ac0; print qq—    \n    <FORM ACTION="$dj6h" METHOD="POST"><INPUT TYPE="HIDDEN" \n    NAME="session_id" VALUE="$c057{'session_id'}">\n    <TABLE BORDER="0" WIDTH="91%" CELLPADDING="0" CELLSPACING="0">\n      <TR>\n        <TD>\n        <TABLE BORDER="0" WIDTH="100%">\n\n          <TR>\n            <TD WIDTH="35%"><FONT SIZE="-1" FACE="arial, helvetica">\n           <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/listname.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n           <B>List Name</B> </FONT></TD>\n            <TD WIDTH="65%" ALIGN="RIGHT"><INPUT TYPE="TEXT" NAME="list_name" SIZE="36"></TD>\n          </TR>\n          <TR>\n            <TD WIDTH="35%"><FONT SIZE="-1" FACE="arial, helvetica">\n            <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/importaddresses.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n            <B>Import Addresses</B></FONT> <INPUT TYPE="CHECKBOX" NAME="import"></TD>\n            <TD WIDTH="65%" ALIGN="RIGHT"> <INPUT TYPE="TEXT" NAME="address_import" SIZE="36" VALUE="$lists/address_file.txt"></TD>\n          </TR>\n          <TR>\n            <TD WIDTH="35%"><FONT SIZE="-1" FACE="arial, helvetica">\n            <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/adminemail.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n            <B>List Admin E-mail</B></FONT></TD>\n            <TD ALIGN="RIGHT" WIDTH="65%"><INPUT TYPE="TEXT" NAME="admin_email" SIZE="36" VALUE="youremailaddress\@fn5b.com"></TD>\n          </TR>\n\n          <TR>\n            <TD WIDTH="35%"><FONT SIZE="-1" FACE="arial, helvetica">\n            <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/servername.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n            <B>Server Name</B></FONT></TD>\n            <TD ALIGN="RIGHT" WIDTH="65%"><INPUT TYPE="TEXT" NAME="servername" SIZE="36" VALUE="$f87k"></TD>\n          </TR>\n\n\n          <TR>\n            <TD WIDTH="35%"><FONT SIZE="-1" FACE="arial, helvetica">\n            <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/optin.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n            <B>Double Opt IN</B></FONT><BR>\n            <FONT SIZE="-2" FACE="arial, helvetica"><I>To ensure valid address\n            </I></FONT></TD>\n            <TD ALIGN="LEFT" WIDTH="65%"><SELECT NAME="optin_setting" SIZE="1">\n            <OPTION VALUE="off" SELECTED="SELECTED">OFF</OPTION>\n            <OPTION VALUE="optin">ON</OPTION></SELECT></TD>\n          </TR>\n          <TR>\n            <TD WIDTH="35%"><FONT SIZE="-1" FACE="arial, helvetica">\n            <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/optout.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n            <B>Double Opt OUT</B></FONT><BR>\n            <FONT SIZE="-2" FACE="arial, helvetica"><I>To ensure authentic removal requests\n            </I></FONT></TD>\n            <TD ALIGN="LEFT" WIDTH="65%"><SELECT NAME="optout_setting" SIZE="1">\n            <OPTION VALUE="optout" SELECTED="SELECTED">ON</OPTION>\n            <OPTION VALUE="off">OFF</OPTION></SELECT></TD>\n          </TR>\n          <TR>\n            <TD WIDTH="35%">\n            <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/listdescription.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n            <B><FONT SIZE="-1" FACE="arial, helvetica">Description</FONT><BR>\n            <FONT SIZE="-2" FACE="arial, helvetica"><I>Describe the list\n            purpose</I></FONT></B></TD>\n            <TD ALIGN="RIGHT" WIDTH="65%"><TEXTAREA NAME="description" ROWS="4" COLS="34" WRAP="Off"></TEXTAREA></TD>\n          </TR>\n          <TR>\n            <TD WIDTH="35%">\n            <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/optinhresponse.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n            <B><FONT SIZE="-1" FACE="arial, helvetica">Optin Sign-up HTML Response</FONT><BR>\n            <FONT SIZE="-2" FACE="arial, helvetica"><I>HTML response to\n            Optin signups</I></FONT></B></TD>\n            <TD WIDTH="65%"><TEXTAREA NAME="optin_signup" ROWS="4" COLS="34" WRAP="Off"><CENTER><BR>\n    <TABLE BORDER="0" WIDTH="400">\n      <TBODY>\n      <TR>\n        <TD>\n        <CENTER>\n        \n        <P><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe\n          Me</FONT> Status:<BR>\n          We Need Your Confirmation!</FONT></B></P></CENTER>\n        \n        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">In order to ensure\n          that you are the owner of the e-mail address: <M-MAIL>, for your\n          protection we have just e-mailed you at that address with the\n          instructions to complete your addition to our list.<BR>\n           <BR>\n          <B>Unless you repond to the automated e-mail just sent, your address\n          will not be added to the <LIST_NAME> mailing list!</B></FONT></P>\n        \n        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">If you experience\n          any difficulties, please contact us at\n          <A HREF="mailto:<ADMIN_MAIL>"><ADMIN_MAIL></A> for\n          assistance.</FONT></P></TD>\n      </TR></TBODY>\n    </TABLE></CENTER>\n\n</TEXTAREA></TD>\n          </TR>\n          <TR>\n            <TD WIDTH="35%">\n            <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/optouthresponse.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n            <B><FONT SIZE="-1" FACE="arial, helvetica">Optout Removal HTML Response</FONT><BR>\n            <FONT SIZE="-2" FACE="arial, helvetica"><I>HTML response to\n            Optout signups</I></FONT></B></TD>\n            <TD WIDTH="65%"><TEXTAREA NAME="optout_signup" ROWS="4" COLS="34" WRAP="Off"><CENTER><BR>\n    <TABLE BORDER="0" WIDTH="400">\n      <TBODY>\n      <TR>\n        <TD>\n        <CENTER>\n        \n        <P><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe\n          Me</FONT> Status:<BR>\n          We Need Your Confirmation!</FONT></B></P></CENTER>\n        \n        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">In order to ensure\n          that you are the owner of the e-mail address: <M-MAIL>, for your\n          protection we have just e-mailed you at that address with the\n          instructions to complete your removal from the <LIST_NAME> mailing list.<BR>\n           <BR>\n          <B>Unless you repond to the automated e-mail just sent, your address\n          will not be removed from our list!</B></FONT></P>\n        \n        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">If you experience\n          any difficulties, please contact us at\n          <A HREF="mailto:<ADMIN_MAIL>"><ADMIN_MAIL></A> for\n          assistance.</FONT></P></TD>\n      </TR></TBODY>\n    </TABLE></CENTER>\n\n</TEXTAREA></TD>\n          </TR>\n          <TR>\n            <TD WIDTH="35%">\n            <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/optnomatch.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n            <B><FONT SIZE="-1" FACE="arial, helvetica">"No Match" Optin Sign-up HTML Response</FONT><BR>\n            <FONT SIZE="-2" FACE="arial, helvetica"><I>HTML response to\n            "No Match " Optin signups</I></FONT></B></TD>\n            <TD WIDTH="65%"><TEXTAREA NAME="no_match" ROWS="4" COLS="34" WRAP="Off">\n<CENTER><BR>\n    <TABLE BORDER="0" WIDTH="400">\n      <TBODY>\n      <TR>\n        <TD>\n        \n        <P><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe\n          Me</FONT> Status: Does Not Match!</FONT></B></P>\n        \n        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">In order to ensure\n          that you are the owner of the e-mail address: <M-MAIL>, our\n          Subscribe Me program checks to make sure that the link you clicked on\n          has the proper authorization code. The code that was submitted with\n          your signup: <B><SECURE_CODE></B> doesn't match that on file for this\n          e-mail address.<BR><BR>Be sure that the entire link that you clicked is\n          highlighted, otherwise copy and paste the entire link into your browser's\n          URL bar.<BR>\n           <BR>\n          </FONT></P>\n        \n        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">If you feel you've\n          received this notice in error, please contact us at\n          <A HREF="mailto:<ADMIN_MAIL>"><ADMIN_MAIL></A> for\n          assistance.</FONT></P>\n\n    </TD>\n      </TR></TBODY>\n    </TABLE></CENTER>\n    <CENTER>\n    <FORM ACTION="$dj6h" METHOD="POST">\n    <TABLE BORDER="0">\n      <TR>\n        <TD BGCOLOR="#FFFFFF"><INPUT TYPE="TEXT" SIZE="25" NAME="e" VALUE="<M-MAIL>">\n        <FONT SIZE="-1" FACE="Verdana, Arial, Helvetica">E-mail Address</FONT><BR>\n        <INPUT TYPE="TEXT" SIZE="25" NAME="p"> <FONT SIZE="-1" FACE="Verdana, Arial, Helvetica">Secure\n        Pincode</FONT><BR>\n        <INPUT TYPE="RADIO" NAME="subscribe" VALUE="subscribe" CHECKED="CHECKED" ALIGN="TOP">\n        <INPUT TYPE="HIDDEN" NAME="l" VALUE="<LIST>"> <FONT SIZE="-2" FACE="verdana, arial, helvetica">subscribe</FONT><BR>\n        <INPUT TYPE="RADIO" NAME="subscribe" VALUE="unsubscribe" ALIGN="TOP">\n        <FONT SIZE="-2" FACE="verdana, arial, helvetica">unsubscribe</FONT><BR>\n        <CENTER><INPUT TYPE="SUBMIT" VALUE="  Submit  "></CENTER></TD>\n      </TR>\n    </TABLE></FORM>\n    </CENTER>\n\n</TEXTAREA></TD>\n          </TR>\n          <TR>\n            <TD WIDTH="35%">\n            <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/optinresponse.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n            <B><FONT SIZE="-1" FACE="arial, helvetica">Optin Sign-up E-Mail Response</FONT><BR>\n            <FONT SIZE="-2" FACE="arial, helvetica"><I>E-mail response to\n            Optin signups</I></FONT></B></TD>\n            <TD WIDTH="65%"><TEXTAREA NAME="optin_response" ROWS="4" COLS="34" WRAP="Off">\n\nYour SECURE PINCODE is:  <SECURE_CODE>\n\nThis message is to verify that you wish to have your\nemail address: <M-MAIL> added to the\n<LIST_NAME>\nSubscribe Me mailing list.\n\nYou MUST click on the link below to have your address added\nto our list.  This is to ensure that someone doesn't add your\naddress to our list without your knowledge or consent.\n\nThank you,\n\nhttp://<SERVER_NAME><CGI_URL>?a=1&l=<LIST>&e=<E-MAIL>&p=<SECURE_CODE>\n\nAmerica Online users, please click: <A HREF="http://<SERVER_NAME><CGI_URL>?a=1&l=<LIST>&e=<E-MAIL>&p=<SECURE_CODE>"><B>Here</B></A>\n\n<LIST_NAME></TEXTAREA></TD>\n          </TR>\n          <TR>\n            <TD WIDTH="35%">\n            <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/optoutresponse.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n            <B><FONT SIZE="-1" FACE="arial, helvetica">Optout Removal E-Mail Response</FONT><BR>\n            <FONT SIZE="-2" FACE="arial, helvetica"><I>E-mail response to\n            Optout Removal Requests</I></FONT></B></TD>\n            <TD WIDTH="65%"><TEXTAREA NAME="optout_response" ROWS="4" COLS="34" WRAP="Off">\n\nYour SECURE PINCODE is:  <SECURE_CODE>\n\nThis message is to verify that you wish to have your\nemail address: <M-MAIL> removed from the\n<LIST_NAME>\nSubscribe Me mailing list.\n\nYou MUST click on the link below to have your address removed\nfrom our list.  This is to ensure that someone doesn't remove your\naddress from our list without your knowledge or consent.\n\nThank you,\n\nhttp://<SERVER_NAME><CGI_URL>?r=1&l=<LIST>&e=<E-MAIL>&p=<SECURE_CODE>\n\nAmerica Online users, please click: <A HREF="http://<SERVER_NAME><CGI_URL>?r=1&l=<LIST>&e=<E-MAIL>&p=<SECURE_CODE>"><B>Here</B></A>\n\n<LIST_NAME></TEXTAREA></TD>\n          </TR>\n          <TR>\n            <TD WIDTH="35%">\n            <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/hnormal.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n            <B><FONT SIZE="-1" FACE="arial, helvetica">Sign-up HTML Response</FONT><BR>\n            <FONT SIZE="-2" FACE="arial, helvetica"><I>HTML response to\n            normal successful signups</I></FONT></B></TD>\n            <TD WIDTH="65%"><TEXTAREA NAME="shtmlresponse" ROWS="4" COLS="34" WRAP="Off"><CENTER><BR>\n    <TABLE BORDER="0" WIDTH="400">\n      <TBODY>\n      <TR>\n        <TD>\n        \n        <P><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe\n          Me</FONT> Status: Success!</FONT></B></P>\n        \n        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">Your email\n          address: <M-MAIL> has been added to the <LIST_NAME> mailing\n          list.</FONT></P>\n        \n        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">If at any time you\n          desire to be removed from our list, you may do so\n          <A HREF="$websiteurl">at our website</A>. Please contact\n          <A HREF="mailto:<ADMIN_MAIL>"><ADMIN_MAIL></A> if you\n          need any further assistance.</FONT></P></TD>\n      </TR></TBODY>\n    </TABLE></CENTER>\n</TEXTAREA></TD>\n          </TR>\n\n          <TR>\n            <TD WIDTH="35%">\n            <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/iahresponse.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n            <B><FONT SIZE="-1" FACE="arial, helvetica">Sign-up "Address Improperly Formatted!</FONT><BR>\n            <FONT SIZE="-2" FACE="arial, helvetica"><I>HTML response to\n            "improper address format" signups</I></FONT></B></TD>\n            <TD WIDTH="65%"><TEXTAREA NAME="improper_address" ROWS="4" COLS="34" WRAP="Off"><CENTER><BR>\n    <TABLE BORDER="0" WIDTH="400">\n      <TBODY>\n      <TR>\n        <TD>\n        <P><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe\n          Me</FONT> Status: Address Improperly Formatted!</FONT></B></P>\n        \n        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">You have entered an improper email address.\n        Please make sure your email address appears in this manner:<BR><BR>\n        username\@domain.com, or username\@domain.net, etc. !</FONT></P>\n        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">If you need\n          further assistance, please contact <A HREF="mailto:<ADMIN_MAIL>"><ADMIN_MAIL></A>.</FONT></P></TD>\n      </TR></TBODY>\n    </TABLE></CENTER>\n</TEXTAREA></TD>\n          </TR>\n          <TR>\n            <TD WIDTH="35%">\n            <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/bnresponse.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n            <B><FONT SIZE="-1" FACE="arial, helvetica">Sign-up "Unable to Subscribe!</FONT><BR>\n            <FONT SIZE="-2" FACE="arial, helvetica"><I>HTML response to\n            "Banned" address signups</I></FONT></B></TD>\n            <TD WIDTH="65%"><TEXTAREA NAME="banned_message" ROWS="4" COLS="34" WRAP="Off"><CENTER><BR>\n    <TABLE BORDER="0" WIDTH="400">\n      <TBODY>\n      <TR>\n        <TD>\n        <P><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe\n          Me</FONT> Status: Unable to Subscribe!</FONT></B></P>\n        \n        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">We are unable to subscribe your e-mail address: <M-MAIL> to\n        the <LIST_NAME> database at this time.</FONT></P>\n        \n        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">If you need\n          further assistance, please contact <A HREF="mailto:<ADMIN_MAIL>"><ADMIN_MAIL></A>.</FONT></P></TD>\n      </TR></TBODY>\n    </TABLE></CENTER>\n</TEXTAREA></TD>\n          </TR>\n\n          <TR>\n            <TD WIDTH="35%">\n            <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/nfhresponse.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n            <B><FONT SIZE="-1" FACE="arial, helvetica">Sign-up "Not Found" HTML Response</FONT><BR>\n            <FONT SIZE="-2" FACE="arial, helvetica"><I>HTML response to\n            "address not found" signups</I></FONT></B></TD>\n            <TD WIDTH="65%"><TEXTAREA NAME="not_found" ROWS="4" COLS="34" WRAP="Off"><CENTER><BR>\n    <TABLE BORDER="0" WIDTH="400">\n      <TBODY>\n      <TR>\n        <TD>\n        \n        <P><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe\n          Me</FONT> Status: Not Found!</FONT></B></P>\n        \n        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">Your email\n          address: <M-MAIL> was not found in our <LIST_NAME> database. Please make sure\n          you spelled the address properly and that you used the same email\n          address that you created your account with.</FONT></P>\n        \n        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">If you need\n          further assistance, please contact <A HREF="mailto:<ADMIN_MAIL>"><ADMIN_MAIL></A>.</FONT></P></TD>\n      </TR></TBODY>\n    </TABLE></CENTER>\n</TEXTAREA></TD>\n          </TR>\n          <TR>\n            <TD WIDTH="35%">\n            <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/alhresponse.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n            <B><FONT SIZE="-1" FACE="arial, helvetica">Sign-up HTML "Already Listed" Response</FONT><BR>\n            <FONT SIZE="-2" FACE="arial, helvetica"><I>HTML response when\n            "address already listed"</I></FONT></B></TD>\n            <TD WIDTH="65%"><TEXTAREA NAME="alhtmlresponse" ROWS="4" COLS="34" WRAP="Off"><CENTER><BR>\n    <TABLE BORDER="0" WIDTH="400">\n      <TBODY>\n      <TR>\n        <TD>\n        \n        <P><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe\n          Me</FONT> Status: Already Listed!</FONT></B></P>\n        \n        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">Your email\n          address: <M-MAIL> is already in our <LIST_NAME> database!</FONT></P>\n        \n        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">If you believe you\n          are not receiving our intended mailings, please contact us at\n          <A HREF="mailto:<ADMIN_MAIL>"><ADMIN_MAIL></A> for\n          assistance.</FONT></P></TD>\n      </TR></TBODY>\n    </TABLE></CENTER>\n</TEXTAREA></TD>\n          </TR>\n          <TR>\n            <TD WIDTH="35%">\n            <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/signupresponse.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n            <B><FONT SIZE="-1" FACE="arial, helvetica">Sign-Up E-Mail Response</FONT><BR>\n            <FONT SIZE="-2" FACE="arial, helvetica"><I>E-mail response to\n            normal successful signups</I></FONT></B></TD>\n            <TD WIDTH="65%"><TEXTAREA NAME="signup" ROWS="4" COLS="34" WRAP="Off">This message is to confirm the addition of your\nemail address: <M-MAIL> to the \n<LIST_NAME>\nSubscribe Me mailing list.\n\nIf you feel you have received this notice in error,\nplease visit the <LIST_NAME>\nSubscribe Me mailing list\nat our website: \n\n<WEBSITEURL>\nto remove yourself automatically, or click the link below:\n\nhttp://<SERVER_NAME><CGI_URL>?r=1&l=<LIST>&e=<E-MAIL>\n\nThank you,\n\n<LIST_NAME></TEXTAREA></TD>\n          </TR>\n          <TR>\n            <TD WIDTH="35%">\n            <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/rhresponse.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n            <B><FONT SIZE="-1" FACE="arial, helvetica">HTML Removal Response</FONT><BR>\n            <FONT SIZE="-2" FACE="arial, helvetica"><I>HTML response to\n            successful removals</I></FONT></B></TD>\n            <TD WIDTH="65%"><TEXTAREA NAME="rhtmlresponse" ROWS="4" COLS="34" WRAP="Off"><CENTER><BR>\n    <TABLE BORDER="0" WIDTH="400">\n      <TBODY>\n      <TR>\n        <TD>\n        \n        <P><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe\n          Me</FONT> Status: Removed!</FONT></B></P>\n        \n        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">Your email\n          address: <M-MAIL> has been removed from the <LIST_NAME>\n          database. We are sorry to see you go!</FONT></P>\n        \n        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">If ever you desire\n          to be re-added to our mailing list, you may do so\n          <A HREF="$websiteurl">at our website</A>. Please contact\n          <A HREF="mailto:<ADMIN_MAIL>"><ADMIN_MAIL></A> for\n          assistance.</FONT></P></TD>\n      </TR></TBODY>\n    </TABLE></CENTER>\n</TEXTAREA></TD>\n          </TR>\n          <TR>\n            <TD WIDTH="35%">\n            <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/removalresponse.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n            <B><FONT SIZE="-1" FACE="arial, helvetica">Removal\n            Response</FONT><BR>\n            <FONT SIZE="-2" FACE="arial, helvetica"><I>E-mail response to\n            successful removals</I></FONT></B></TD>\n            <TD WIDTH="65%"><TEXTAREA NAME="removal" ROWS="4" COLS="34" WRAP="Off">This message is to confirm the removal of your\nemail address: <M-MAIL> from the \n<LIST_NAME>\nSubscribe Me mailing list.\n\nWe're sorry to see you go!\n\nIf you feel you have received this notice in error,\nplease visit the <LIST_NAME>\nSubscribe Me mailing list\nat our website: \n\n<WEBSITEURL>\nto add yourself automatically, or click on the link\nbelow to automatically re-subscribe yourself:\n\nhttp://<SERVER_NAME><CGI_URL>?a=1&l=<LIST>&e=<E-MAIL>\n\nThank you,\n\n<LIST_NAME></TEXTAREA></TD>\n          </TR>\n          <TR>\n            <TD WIDTH="35%">\n            <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/signaturemessage.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n            <B><FONT SIZE="-1" FACE="arial, helvetica">Signature\n            Message</FONT><BR>\n            <FONT SIZE="-2" FACE="arial, helvetica"><I>Added to end of mailing</I></FONT></B></TD>\n            <TD WIDTH="65%"><TEXTAREA NAME="signature" ROWS="4" COLS="34" WRAP="Off"></TEXTAREA></TD>\n          </TR>\n          <TR>\n            <TD WIDTH="35%">\n            <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/headerinfo.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n            <B><FONT SIZE="-1" FACE="arial, helvetica">Response Page\n            Headers</FONT><BR>\n            <FONT SIZE="-2" FACE="arial, helvetica"><I>Headers of response screens</I></FONT></B></TD>\n            <TD WIDTH="65%"><TEXTAREA NAME="headerinfo" ROWS="4" COLS="34" WRAP="Off">\n<HEAD><TITLE>Subscribe Me Professional</TITLE>\n</HEAD><BODY TEXT="#000040" LINK="#0000FF" VLINK="#0000FF" ALINK="#FF0000"></TEXTAREA></TD>\n          </TR>\n          <TR>\n            <TD WIDTH="35%">\n            <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/headerinfo.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n            <B><FONT SIZE="-1" FACE="arial, helvetica">Response Page\n            Footers</FONT><BR>\n            <FONT SIZE="-2" FACE="arial, helvetica"><I>Footers of response screens</I></FONT></B></TD>\n            <TD WIDTH="65%"><TEXTAREA NAME="footerinfo" ROWS="4" COLS="34" WRAP="Off"></TEXTAREA></TD>\n          </TR>\n          <TR>\n            <TD WIDTH="35%"></TD>\n            <TD WIDTH="65%">\n            \n            <P><BR>\n              <INPUT TYPE="SUBMIT" NAME="create_list" VALUE="Create List"><INPUT TYPE="RESET" NAME="Reset1"></P></TD>\n          </TR>\n        </TABLE></TD>\n      </TR>\n    </TABLE></FORM>\n        \n—;&ab9; &aap; exit; } sub ack{ open (ID,"<$lists/new.id"); if ($LOCK_EX){ flock(ID, $LOCK_EX); } $efk3 = <ID> ; close (ID); $efk3++; open (NEWID,">$lists/new.id"); if ($LOCK_EX){ flock(NEWID, $LOCK_EX); } print NEWID "$efk3"; close (NEWID); } sub abg{ &ac5; unless (($c057{'address_import'} =~ /address_file.txt/) || (!($c057{'address_import'}))) { unless ($c057{'import'}) { print "Content-type: text/html\n\n"; &ad0; &ac0; print qq—    <CENTER>\n    <TABLE BORDER="0" WIDTH="300">\n      <TR>\n        <TD>\n        <CENTER><BR><FONT SIZE="-1" FACE="Verdana, Arial, Helvetica"><B>UNSUCCESSFUL!</B></FONT><BR>\n        </CENTER>\n        \n        <P><FONT SIZE="-1" FACE="Arial, Helvetica">It appears you may be\n          trying to import an address list, as the original information in the\n          import section is removed. If you are attempting to import a list, be\n          sure to check the IMPORT LIST checkbox first, next to the path to the\n          file.<BR>\n          <BR>\n          If you are NOT attempting to import a list, either do NOT remove any of the\n          existing information in the path to demonstation file, or remove ALL of the\n          file path information from the box.</FONT></P><BR>\n        <CENTER>\n        <FORM><INPUT TYPE="BUTTON" VALUE="BACK TO LIST CREATOR/IMPORTER FORM" \n        ONCLICK="history.go(-1)"></FORM></CENTER></TD>\n      </TR>\n    </TABLE></CENTER>\n—;&ab9; &aap; exit; } } if ($c057{'import'}) { if (($c057{'address_import'} =~ /\.pl/) || ($c057{'address_import'} =~ /\.cgi/)) { print "Content-type: text/html\n\n"; &ad0; &ac0; print qq—    <CENTER>\n    <TABLE BORDER="0" WIDTH="300">\n      <TR>\n        <TD>\n        <CENTER><BR><FONT SIZE="-1" FACE="Verdana, Arial, Helvetica"><B>UNSUCCESSFUL!</B></FONT><BR>\n        </CENTER>\n        \n        <P><FONT SIZE="-1" FACE="Arial, Helvetica">It appears you are\n          attempting to import a CGI file. For security purposes, Subscribe Me\n          Professional can not import CGI files.</FONT></P>\n        </TD>\n      </TR>\n    </TABLE></CENTER><CENTER>\n        <FORM><INPUT TYPE="BUTTON" VALUE="BACK TO LIST CREATOR/IMPORTER FORM" \n        ONCLICK="history.go(-1)"></FORM></CENTER>\n—;&ab9; &aap; exit; } } if ($c057{'import'}) { unless (-e "$c057{'address_import'}") { print "Content-type: text/html\n\n"; print "Subscribe Me Pro didn't find the file:<BR>$c057{'address_import'}<BR>"; print "Please make sure you uploaded the file to the directory you inputed.<BR>"; exit; } } if ($c057{'admin_email'} eq 'youremailaddress@fn5b.com') { print "Content-type: text/html\n\n"; print "Don't forget to change the administration e-mail address: \"youremailaddress\@fn5b.com\" to your own e-mail address.<BR>"; exit; } open (IMPORT, "<$c057{'address_import'}"); if ($LOCK_EX){ flock(IMPORT, $LOCK_EX); } @ela0 = <IMPORT>; close(IMPORT); &ack; $c057{'description'} =~ s/\r//gm; $c057{'description'} =~ s/\n/\\n/gm; open (NEWLIST, ">>$lists/lists.db"); if ($LOCK_EX){ flock(NEWLIST, $LOCK_EX); } $bhdf = join ("\|",$efk3,$c057{'list_name'},$c057{'admin_email'},$c057{'description'},$c057{'optin_setting'},$c057{'optout_setting'},$c057{'servername'},0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0); $bhdf .= "\n"; print NEWLIST "$bhdf"; close(NEWLIST); print "Content-type: text/html\n\n"; &ad0; &ac0; unless (-e "$lists/$efk3.list") { open (NEWLIST2, ">$lists/$efk3.list"); if ($c057{'import'}) { print qq—<P><FONT SIZE="-1" FACE="Verdana, Arial, Helvetica"><B>If any illegal\naddresses were found, they will appear below.<BR>Illegal addresses are NOT\nadded to your list!:</B></FONT></P>\n—;foreach $h7dl(@ela0) { chomp($h7dl); $h7dl =~ s/\r//; $h7dl =~ s/\s//g; unless ($h7dl =~ /(@.*@)|(\.\.)|(@\.)|(^\.)|(,)|(\/)|(\:)/ || $h7dl !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$/) { $h504 = 1; $ka0b = "$h7dl\n"; push(@j8gf,$ka0b); } else { $h504 = 0; unless($h7dl){ $h7dl = "Possibe extra carriage return"; } print "<DIV ALIGN=\"LEFT\"><FONT SIZE=\"-1\" FACE=\"Arial, Helvetica\">Illegal address or character - <B>$h7dl</B></FONT><BR></DIV>"; } } foreach $k4m3(@j8gf) { $j8gf{$k4m3} = 1; } while ( ($k85c, $dl7m ) = each( %j8gf) ) { print NEWLIST2 "$k85c"; } } close(NEWLIST2); open (RESPONSE1,">$lists/$efk3.optinresponse"); if ($LOCK_EX){ flock(RESPONSE1, $LOCK_EX); } print RESPONSE1 "$c057{'optin_signup'}"; close (RESPONSE1); open (OPTOUT,">$lists/$efk3.optoutsignup"); if ($LOCK_EX){ flock(OPTOUT, $LOCK_EX); } print OPTOUT "$c057{'optout_signup'}"; close (OPTOUT); open (OPTINR,">$lists/$efk3.optinsignup"); if ($LOCK_EX){ flock(OPTINR, $LOCK_EX); } print OPTINR "$c057{'optin_response'}"; close (OPTINR); open (OPTOUTR,">$lists/$efk3.optoutresponse"); if ($LOCK_EX){ flock(OPTOUTR, $LOCK_EX); } print OPTOUTR "$c057{'optout_response'}"; close (OPTOUTR); open (RESPONSE2,">$lists/$efk3.signup"); if ($LOCK_EX){ flock(RESPONSE2, $LOCK_EX); } print RESPONSE2 "$c057{'signup'}"; close (RESPONSE2); open (RESPONSE3,">$lists/$efk3.removal"); if ($LOCK_EX){ flock(RESPONSE3, $LOCK_EX); } print RESPONSE3 "$c057{'removal'}"; close (RESPONSE3); open (RESPONSE4,">$lists/$efk3.signature"); if ($LOCK_EX){ flock(RESPONSE4, $LOCK_EX); } print RESPONSE4 "$c057{'signature'}"; close (RESPONSE4); open (IMPROPERHTMLRESPONSE,">$lists/$efk3.impropersignup"); if ($LOCK_EX){ flock(IMPROPERHTMLRESPONSE, $LOCK_EX); } print IMPROPERHTMLRESPONSE "$c057{'improper_address'}"; close (IMPROPERHTMLRESPONSE); open (ALHTMLRESPONSE,">$lists/$efk3.alsignup"); if ($LOCK_EX){ flock(ALHTMLRESPONSE, $LOCK_EX); } print ALHTMLRESPONSE "$c057{'alhtmlresponse'}"; close (ALHTMLRESPONSE); open (BANNEDR,">$lists/$efk3.bannedr"); if ($LOCK_EX){ flock(BANNEDR, $LOCK_EX); } print BANNEDR "$c057{'banned_message'}"; close (BANNEDR); open (SHTMLRESPONSE,">$lists/$efk3.ssignup"); if ($LOCK_EX){ flock(SHTMLRESPONSE, $LOCK_EX); } print SHTMLRESPONSE "$c057{'shtmlresponse'}"; close (SHTMLRESPONSE); open (RHTMLRESPONSE,">$lists/$efk3.rremoval"); if ($LOCK_EX){ flock(RHTMLRESPONSE, $LOCK_EX); } print RHTMLRESPONSE "$c057{'rhtmlresponse'}"; close (RHTMLRESPONSE); open (NFHTMLRESPONSE,">$lists/$efk3.nfresponse"); if ($LOCK_EX){ flock(NFHTMLRESPONSE, $LOCK_EX); } print NFHTMLRESPONSE "$c057{'not_found'}"; close (NFHTMLRESPONSE); open (NMHTMLRESPONSE,">$lists/$efk3.nmresponse"); if ($LOCK_EX){ flock(NMHTMLRESPONSE, $LOCK_EX); } print NMHTMLRESPONSE "$c057{'no_match'}"; close (NMHTMLRESPONSE); open (HEADER,">$lists/$efk3.header"); if ($LOCK_EX){ flock(HEADER, $LOCK_EX); } $c057{'headerinfo'} =~ s/<HTML>//ig; print HEADER "$c057{'headerinfo'}"; close(HEADER); open (FOOTER,">$lists/$efk3.footer"); if ($LOCK_EX){ flock(FOOTER, $LOCK_EX); } print FOOTER "$c057{'footerinfo'}"; close(FOOTER); } print qq—\n    <CENTER>\n    <FORM METHOD="POST" ACTION="$dj6h">\n    \n    <P><INPUT TYPE="HIDDEN" NAME="session_id" VALUE="$c057{'session_id'}"></P>\n    <TABLE BORDER="0" WIDTH="350">\n      <TR>\n        <TD><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>List:\n        $c057{'list_name'}<BR>\n        <BR>\n        was created successfully.</B></FONT></TD>\n      </TR>\n    </TABLE></FORM></CENTER>\n\n—;&ab9; &aap; exit; } sub ad6{ &ac5; $c057{'description'} =~ s/\r//gm; $c057{'description'} =~ s/\n/\\n/gm; open (DB, "<$lists/lists.db"); if ($LOCK_EX){ flock(DB, $LOCK_EX); } @f121 = <DB>; close (DB); open (DB2, ">$lists/lists.db"); if ($LOCK_EX){ flock(DB2, $LOCK_EX); } foreach $ed48(@f121) { @b736 = split(/\|/,$ed48); if ($b736[0] == $c057{'list_id'}) { $b736[1] = $c057{'list_name'} if $c057{'list_name'}; $b736[2] = $c057{'admin_email'} if $c057{'admin_email'}; $b736[3] = $c057{'description'} if $c057{'description'}; $b736[4] = $c057{'optin_setting'} if $c057{'optin_setting'}; $b736[5] = $c057{'optout_setting'} if $c057{'optout_setting'}; $b736[6] = $c057{'servername'} if $c057{'servername'}; } $idk6 = join ("\|",@b736); print DB2 "$idk6"; } close(DB2); open (RESPONSE1,">$lists/$c057{'list_id'}.optinresponse"); if ($LOCK_EX){ flock(RESPONSE1, $LOCK_EX); } print RESPONSE1 "$c057{'optin_response'}"; close (RESPONSE1); open (OPTADDITION,">$lists/$c057{'list_id'}.optinsignup"); if ($LOCK_EX){ flock(OPTADDITION, $LOCK_EX); } $c057{'optinsignup'} =~ s/\&amp\;/\&/g; print OPTADDITION "$c057{'optinsignup'}"; close (OPTADDITION); open (OPTREMOVAL,">$lists/$c057{'list_id'}.optoutsignup"); if ($LOCK_EX){ flock(OPTREMOVAL, $LOCK_EX); } print OPTREMOVAL "$c057{'optout_signup'}"; close (OPTREMOVAL); open (OPTREMOVALR,">$lists/$c057{'list_id'}.optoutresponse"); if ($LOCK_EX){ flock(OPTREMOVALR, $LOCK_EX); } $c057{'optout_response'} =~ s/\&amp\;/\&/g; print OPTREMOVALR "$c057{'optout_response'}"; close (OPTREMOVALR); open (ADDITION,">$lists/$c057{'list_id'}.signup"); if ($LOCK_EX){ flock(ADDITION, $LOCK_EX); } $c057{'signup'} =~ s/\&amp\;/\&/g; print ADDITION "$c057{'signup'}"; close (ADDITION); open (REMOVAL,">$lists/$c057{'list_id'}.removal"); if ($LOCK_EX){ flock(REMOVAL, $LOCK_EX); } $c057{'removal'} =~ s/\&amp\;/\&/g; print REMOVAL "$c057{'removal'}"; close (REMOVAL); open (SIGNATURE,">$lists/$c057{'list_id'}.signature"); if ($LOCK_EX){ flock(SIGNATURE, $LOCK_EX); } print SIGNATURE "$c057{'signature'}"; close (SIGNATURE); open (IMPROPERHTMLRESPONSE,">$lists/$c057{'list_id'}.impropersignup"); if ($LOCK_EX){ flock(IMPROPERHTMLRESPONSE, $LOCK_EX); } print IMPROPERHTMLRESPONSE "$c057{'improper_address'}"; close (IMPROPERHTMLRESPONSE); open (ALHTMLRESPONSE,">$lists/$c057{'list_id'}.alsignup"); if ($LOCK_EX){ flock(ALHTMLRESPONSE, $LOCK_EX); } print ALHTMLRESPONSE "$c057{'alhtmlresponse'}"; close (ALHTMLRESPONSE); open (BANNEDR,">$lists/$c057{'list_id'}.bannedr"); if ($LOCK_EX){ flock(BANNEDR, $LOCK_EX); } print BANNEDR "$c057{'banned_message'}"; close (BANNEDR); open (SHTMLRESPONSE,">$lists/$c057{'list_id'}.ssignup"); if ($LOCK_EX){ flock(SHTMLRESPONSE, $LOCK_EX); } print SHTMLRESPONSE "$c057{'shtmlresponse'}"; close (SHTMLRESPONSE); open (RHTMLRESPONSE,">$lists/$c057{'list_id'}.rremoval"); if ($LOCK_EX){ flock(RHTMLRESPONSE, $LOCK_EX); } print RHTMLRESPONSE "$c057{'rhtmlresponse'}"; close (RHTMLRESPONSE); open (NFHTMLRESPONSE,">$lists/$c057{'list_id'}.nfresponse"); if ($LOCK_EX){ flock(NFHTMLRESPONSE, $LOCK_EX); } print NFHTMLRESPONSE "$c057{'not_found'}"; close (NFHTMLRESPONSE); open (NMHTMLRESPONSE,">$lists/$c057{'list_id'}.nmresponse"); if ($LOCK_EX){ flock(NMHTMLRESPONSE, $LOCK_EX); } print NMHTMLRESPONSE "$c057{'no_match'}"; close (NMHTMLRESPONSE); open (HEADERINFO,">$lists/$c057{'list_id'}.header"); if ($LOCK_EX){ flock(HEADERINFO, $LOCK_EX); } $c057{'headerinfo'} =~ s/<HTML>//ig; print HEADERINFO "$c057{'headerinfo'}"; close (HEADERINFO); open (FOOTERINFO,">$lists/$c057{'list_id'}.footer"); if ($LOCK_EX){ flock(FOOTERINFO, $LOCK_EX); } print FOOTERINFO "$c057{'footerinfo'}"; close (FOOTERINFO); print "Content-type: text/html\n\n"; &ad0; &ac0; print qq—\n    <CENTER>\n    <FORM METHOD="POST" ACTION="$dj6h">\n    \n    <P><INPUT TYPE="HIDDEN" NAME="session_id" VALUE="$c057{'session_id'}"></P>\n    <TABLE BORDER="0" WIDTH="350">\n      <TR>\n        <TD><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>List:\n        $c057{'list_name'}<BR>\n        <BR>\n        was updated successfully.</B></FONT></TD>\n      </TR>\n    </TABLE></FORM></CENTER>\n\n—;&ab9; &aap; exit; } sub aak{ &ac5; print "Content-type: text/html\n\n"; &ad0; &ac0; print qq—    <FORM METHOD="POST" ACTION="$dj6h"><INPUT TYPE="HIDDEN" \n    NAME="session_id" VALUE="$c057{'session_id'}">\n    <TABLE BORDER="0" WIDTH="90%" CELLPADDING="0" CELLSPACING="0">\n      <TR>\n        <TD ALIGN="CENTER">\n        <TABLE BORDER="0" WIDTH="100%">\n        </TABLE><BR>\n        </TD>\n      </TR>\n      <TR>\n        <TD ALIGN="CENTER"><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>Subscribe\n        Me Professional - <FONT COLOR="#0000FF">Mailing Effectiveness Tracking</FONT></B></FONT></TD>\n      </TR>\n    </TABLE>\n    \n    <P><BR>\n       </P>\n    <TABLE BORDER="0" WIDTH="100%">\n      <TR>\n        <TD ALIGN="CENTER"><FONT SIZE="-1" FACE="arial, hetvetica"><B>Choose\n        Mailing:</B></FONT>\n        <SELECT NAME="whichmailing" SIZE="1">\n        <OPTION VALUE="choose" SELECTED="SELECTED">Choose One</OPTION>\n—;opendir (DIR, "$trackdir"); @g6j6 = grep { /.txt/} readdir(DIR); close (DIR); foreach $gc08(@g6j6) { print "<OPTION VALUE=\"$gc08\">$gc08</OPTION>\n"; } print qq—</SELECT><INPUT TYPE="SUBMIT" NAME="viewtracking" VALUE="Go!"></TD>\n      </TR>\n    </TABLE></FORM>\n\n\n—;&ab9; &aap; exit; } sub acd{ &ac5; open (DB, "<$lists/lists.db"); if ($LOCK_EX){ flock(DB, $LOCK_EX); } @f121 = <DB>; close (DB); foreach $ed48(@f121) { @b736 = split(/\|/,$ed48); if ($b736[0] == $c057{'list_name'}) { last; } } unless ($b736[1]) { $b736[1] = "List name not entered"; } print "Content-type: text/html\n\n"; &ad0; &ac0; print qq—\n    <FORM METHOD="POST" ACTION="$dj6h">\n    <CENTER>\n    <TABLE BORDER="0" WIDTH="350">\n      <TR>\n        <TD>\n        \n        <P><INPUT TYPE="HIDDEN" NAME="session_id" VALUE="$c057{'session_id'}">\n           <INPUT TYPE="HIDDEN" NAME="list_name" VALUE="$b736[0]"></P>\n        \n        <P><FONT SIZE="+1" FACE="verdana, arial, helvetica"><I>WARNING:</I></FONT><BR>\n          <BR>\n          <FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>You are about to\n          permanently delete your<BR>\n           <BR>\n          $b736[1]<BR>\n          <BR>\n           Are you sure you want to?</B></FONT></P>\n        \n        <P><INPUT TYPE="SUBMIT" NAME="delete2" VALUE="  Delete  "><INPUT TYPE="SUBMIT" NAME="adminreturn" VALUE="Do not delete"></P></TD>\n      </TR>\n    </TABLE></CENTER></FORM>\n—;&ab9; &aap; exit; } sub aai{ &ac5; $cbop = $c057{'session_id'}; &acg; $h9d8 = 0; open (LIST, "<$lists/$c057{'list_name'}.list"); if ($LOCK_EX){ flock(LIST, $LOCK_EX); } @g6cf = <LIST>; close (LIST); $h9d8 = push(@g6cf); $gc5n = 0; open (LIST3, "<$bounces/$c057{'list_name'}.list"); if ($LOCK_EX){ flock(LIST3, $LOCK_EX); } @g42k = <LIST3>; close (LIST3); $gc5n = push(@d4dc); $ej29 = 0; open (LIST2, "<$removes/$c057{'list_name'}.list"); if ($LOCK_EX){ flock(LIST2, $LOCK_EX); } @d4dc = <LIST2>; close (LIST2); $ej29 = push(@d4dc); open (DB, "<$lists/lists.db"); if ($LOCK_EX){ flock(DB, $LOCK_EX); } @f121 = <DB>; close (DB); foreach $ed48(@f121) { @hllm = split(/\|/,$ed48); if ($c057{'list_name'} == $hllm[0]) { &abj; print "Content-type: text/html\n\n"; &ad0; &ac0; print qq—\n    \n    \n    <FORM ACTION="$dj6h" METHOD="POST"><INPUT TYPE="HIDDEN" \n    NAME="session_id" VALUE="$c057{'session_id'}"><INPUT TYPE="HIDDEN" NAME="l" \n    VALUE="$c057{'list_name'}"><INPUT TYPE="HIDDEN" NAME="list_id" \n    VALUE="$c057{'list_name'}"><INPUT TYPE="HIDDEN" NAME="list_name" \n    VALUE="$hllm[1]">\n    <TABLE BORDER="1" WIDTH="90%" CELLPADDING="0" CELLSPACING="0">\n      <TR>\n        <TD BGCOLOR="#FFFFFF">\n        <CENTER>\n        <TABLE BORDER="0" WIDTH="100%">\n          <TR>\n            <TD ALIGN="CENTER" WIDTH="33%" COLSPAN="3"><B><FONT SIZE="-1" FACE="arial, helvetica">List\n            Name: <FONT COLOR="#FF0000">$hllm[1]</FONT></FONT></B></TD>\n          </TR>\n          <TR>\n            <TD ALIGN="LEFT" WIDTH="33%"><B><FONT SIZE="-1" FACE="arial, helvetica">Subscribers:\n            <FONT COLOR="#FF0000">$h9d8</FONT></FONT></B></TD>\n            <TD ALIGN="LEFT" WIDTH="33%"><B><FONT SIZE="-1" FACE="arial, helvetica">Removal<BR>\n             Requests: <FONT COLOR="#FF0000">$ej29</FONT></FONT></B></TD>\n            <TD ALIGN="LEFT" WIDTH="33%"><B><FONT SIZE="-1" FACE="arial, helvetica"><A HREF="javascript:Start('http://www.bounceremoval.com/signup/')">Bounced<BR>\n               Removals</A>: <FONT COLOR="#FF0000">$gc5n</FONT></FONT></B></TD>\n          </TR>\n        </TABLE><BR>\n        </CENTER>\n        <TABLE BORDER="1" WIDTH="100%">\n          <TBODY>\n          <TR>\n            <TD VALIGN="TOP" WIDTH="50%"><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>Add\n            / Remove Subscribers:</B></FONT></TD>\n            <TD WIDTH="50%">\n            \n            <P> <FONT SIZE="-2" FACE="verdana, arial, helvetica"><B>Subscribe\n              or Unsubscribe<BR>\n               any addresses here</B></FONT> </P></TD>\n          </TR>\n          <TR>\n            <TD></TD>\n            <TD><INPUT TYPE="TEXT" SIZE="15" NAME="e"></TD>\n          </TR>\n          <TR>\n            <TD></TD>\n            <TD WIDTH="50%"><INPUT TYPE="RADIO" NAME="subscribe" VALUE="subscribe" CHECKED="CHECKED" ALIGN="TOP"><FONT SIZE="-2" COLOR="#000000" FACE="verdana, arial, helvetica"><B>subscribe</B></FONT><BR>\n            <INPUT TYPE="RADIO" NAME="subscribe" VALUE="unsubscribe" ALIGN="TOP">\n            <FONT SIZE="-2" COLOR="#000000" FACE="verdana, arial, helvetica"><B>unsubscribe</B></FONT><BR>\n            <INPUT TYPE="CHECKBOX" NAME="usernotify" CHECKED="CHECKED">\n            <FONT SIZE="-2" FACE="verdana, arial, helvetica"><B>DO NOT Notify\n            Subscriber</B></FONT></TD>\n          </TR>\n          <TR>\n            <TD></TD>\n            <TD WIDTH="50%">\n            \n            <P><INPUT TYPE="SUBMIT" VALUE="  Submit  "><INPUT TYPE="RESET" NAME="Reset1"></P></TD>\n          </TR>\n          <TR>\n            <TD><FONT SIZE="-1" FACE="arial, helvetica"><B>Double Opt In:\n            <FONT COLOR="#FF0000">$hllm[4]</FONT></B></FONT></TD>\n            <TD><FONT SIZE="-2" FACE="arial, helvetica"><B><A HREF="$dj6h?edit_list=1&list_name=$hllm[0]&session_id=$cbop">Edit</A></B></FONT></TD>\n          </TR>\n          <TR>\n            <TD><FONT SIZE="-1" FACE="arial, helvetica"><B>Double Opt Out:\n            <FONT COLOR="#FF0000">$hllm[5]</FONT></B></FONT></TD>\n            <TD><FONT SIZE="-2" FACE="arial, helvetica"><B><A HREF="$dj6h?edit_list=1&list_name=$hllm[0]&session_id=$cbop">Edit</A></B></FONT></TD>\n          </TR>\n          <TR>\n            <TD VALIGN="TOP"><FONT SIZE="-1" FACE="arial, helvetica"><B>List\n            E-mail: <FONT COLOR="#FF0000">$hllm[2]</FONT></B></FONT></TD>\n            <TD><FONT SIZE="-2" FACE="arial, helvetica"><B><A HREF="$dj6h?edit_list=1&list_name=$hllm[0]&session_id=$cbop">Edit</A></B></FONT></TD>\n          </TR>\n          <TR>\n            <TD VALIGN="TOP"><FONT SIZE="-1" FACE="arial, helvetica"><B>See\n            Entire List:</B></FONT></TD>\n            <TD><FONT SIZE="-2" FACE="arial, helvetica"><B><A HREF="$dj6h?view_list=1&list_name=$hllm[0]&session_id=$cbop">View\n              List</A></B></FONT></TD>\n          </TR>\n          <TR>\n            <TD VALIGN="TOP"><FONT SIZE="-1" FACE="arial, helvetica"><B>See\n            Remove Requests:</B></FONT></TD>\n            <TD><FONT SIZE="-2" FACE="arial, helvetica"><B><A HREF="$dj6h?view_removes=1&list_name=$hllm[0]&session_id=$cbop">View\n              List</A></B></FONT></TD>\n          </TR>\n          <TR>\n            <TD VALIGN="TOP"><FONT SIZE="-1" FACE="arial, helvetica"><B>Batch\n            Address Addition:</B></FONT></TD>\n            <TD><FONT SIZE="-2" FACE="arial, helvetica"><B><A HREF="$dj6h?edit_manually=1&list_name=$hllm[0]&session_id=$cbop">Batch\n              Add Addresses</A></B></FONT></TD>\n          </TR>\n          <TR>\n            <TD VALIGN="TOP"><FONT SIZE="-1" FACE="arial, helvetica"><B>Batch\n            Address Removal:</B></FONT></TD>\n            <TD><FONT SIZE="-2" FACE="arial, helvetica"><B><A HREF="$dj6h?batch_remove=1&list_name=$hllm[0]&session_id=$cbop">Batch\n              Remove Addresses</A></B></FONT></TD>\n          </TR>\n          <TR>\n            <TD VALIGN="TOP"><FONT SIZE="-1" FACE="arial, helvetica"><B>Manual\n            List Edit:</B></FONT></TD>\n            <TD><FONT SIZE="-2" FACE="arial, helvetica"><B><A HREF="$dj6h?edit_manually2=1&list_name=$hllm[0]&session_id=$cbop">Edit\n              List Manually</A></B></FONT></TD>\n          </TR>\n          <TR>\n            <TD VALIGN="TOP"><FONT SIZE="-1" FACE="arial, helvetica"><B>List\n            Backup:</B></FONT></TD>\n            <TD><FONT SIZE="-2" FACE="arial, helvetica"><B><A HREF="$dj6h?list_backup=1&list_name=$hllm[0]&session_id=$cbop">Backup\n              $hllm[1]</A></B></FONT></TD>\n          </TR>\n          <TR>\n            <TD VALIGN="TOP"><FONT SIZE="-1" FACE="arial, helvetica"><B>Subscriber\n            Count: <FONT COLOR="#FF0000">$h9d8</FONT></B></FONT></TD>\n            <TD><FONT SIZE="-2" FACE="arial, helvetica"><B><A HREF="$dj6h?list_details=1&list_name=$hllm[0]&session_id=$cbop">Refresh\n              Count</A></B></FONT></TD>\n          </TR>\n          <TR>\n            <TD VALIGN="TOP"><FONT SIZE="-1" FACE="arial, helvetica"><B>Banned\n            Addresses: <FONT COLOR="#FF0000">$e2d4</FONT></B></FONT></TD>\n            <TD><FONT SIZE="-2" FACE="arial, helvetica"><B><A HREF="$dj6h?ban_addresses=1&list_name=$hllm[0]&session_id=$cbop">Ban\n              Addresses </A></B></FONT></TD>\n          </TR></TBODY>\n        </TABLE> </TD>\n      </TR>\n    </TABLE></FORM>\n\n—;&abm; &ab9; &aap; last; exit; } } } sub abj{ undef $/; open (OPTADDITION,"<$lists/$hllm[0].optinsignup"); if ($LOCK_EX){ flock(OPTADDITION, $LOCK_EX); } $h424 = <OPTADDITION>; if ($c057{'list_details'}) { $h424 =~ s/\</\&lt\;/g; $h424 =~ s/\>/\&gt\;/g; $h424 =~ s/\r/<BR>/g; } else { $h424 =~ s/\r//g; } close (OPTADDITION); $/ = "\n"; undef $/; open (OPTRADDITION,"<$lists/$hllm[0].optinresponse"); if ($LOCK_EX){ flock(OPTRADDITION, $LOCK_EX); } $h0be = <OPTRADDITION>; if ($c057{'list_details'}) { $h0be =~ s/\</\&lt\;/g; $h0be =~ s/\>/\&gt\;/g; $h0be =~ s/\r/<BR>/g; } else { $h0be =~ s/\r//g; } close (OPTRADDITION); $/ = "\n"; undef $/; open (OPTRREM,"<$lists/$hllm[0].optoutsignup"); if ($LOCK_EX){ flock(OPTRREM, $LOCK_EX); } $eklm = <OPTRREM>; if ($c057{'list_details'}) { $eklm =~ s/\</\&lt\;/g; $eklm =~ s/\>/\&gt\;/g; $eklm =~ s/\r/<BR>/g; } else { $eklm =~ s/\r//g; } close (OPTRREM); $/ = "\n"; undef $/; open (OPTRREMR,"<$lists/$hllm[0].optoutresponse"); if ($LOCK_EX){ flock(OPTRREMR, $LOCK_EX); } $jc40 = <OPTRREMR>; if ($c057{'list_details'}) { $jc40 =~ s/\</\&lt\;/g; $jc40 =~ s/\>/\&gt\;/g; $jc40 =~ s/\r/<BR>/g; } else { $jc40 =~ s/\r//g; } close (OPTRREMR); $/ = "\n"; undef $/; open (IMPROPERADDRESS,"<$lists/$hllm[0].impropersignup"); if ($LOCK_EX){ flock(IMPROPERADDRESS, $LOCK_EX); } $cp41 = <IMPROPERADDRESS>; if ($c057{'list_details'}) { $cp41 =~ s/\</\&lt\;/g; $cp41 =~ s/\>/\&gt\;/g; $cp41 =~ s/\r/<BR>/g; } else { $cp41 =~ s/\r//g; } close (IMPROPERADDRESS); $/ = "\n"; undef $/; open (NMRESPONSE,"<$lists/$hllm[0].nmresponse"); if ($LOCK_EX){ flock(NMRESPONSE, $LOCK_EX); } $e03k = <NMRESPONSE>; if ($c057{'list_details'}) { $e03k =~ s/\</\&lt\;/g; $e03k =~ s/\>/\&gt\;/g; $e03k =~ s/\r/<BR>/g; } else { $e03k =~ s/\r//g; } close (NMRESPONSE); $/ = "\n"; undef $/; open (NFRESPONSE,"<$lists/$hllm[0].nfresponse"); if ($LOCK_EX){ flock(NFRESPONSE, $LOCK_EX); } $f29d = <NFRESPONSE>; if ($c057{'list_details'}) { $f29d =~ s/\</\&lt\;/g; $f29d =~ s/\>/\&gt\;/g; $f29d =~ s/\r/<BR>/g; } else { $f29d =~ s/\r//g; } close (NFRESPONSE); $/ = "\n"; undef $/; open (ALRESPONSE,"<$lists/$hllm[0].alsignup"); if ($LOCK_EX){ flock(ALRESPONSE, $LOCK_EX); } $gcgl = <ALRESPONSE>; if ($c057{'list_details'}) { $gcgl =~ s/\</\&lt\;/g; $gcgl =~ s/\>/\&gt\;/g; $gcgl =~ s/\r/<BR>/g; } else { $gcgl =~ s/\r//g; } close (ALRESPONSE); $/ = "\n"; undef $/; open (BANNEDR,"<$lists/$hllm[0].bannedr"); if ($LOCK_EX){ flock(BANNEDR, $LOCK_EX); } $eepd = <BANNEDR>; if ($c057{'list_details'}) { $eepd =~ s/\</\&lt\;/g; $eepd =~ s/\>/\&gt\;/g; $eepd =~ s/\r/<BR>/g; } else { $eepd =~ s/\r//g; } close (BANNEDR); $/ = "\n"; undef $/; open (ADDITION,"<$lists/$hllm[0].signup"); if ($LOCK_EX){ flock(ADDITION, $LOCK_EX); } $bc1p = <ADDITION>; if ($c057{'list_details'}) { $bc1p =~ s/\</\&lt\;/g; $bc1p =~ s/\>/\&gt\;/g; $bc1p =~ s/\r/<BR>/g; } else { $bc1p =~ s/\r//g; } close (ADDITION); $/ = "\n"; undef $/; open (SADDITION,"<$lists/$hllm[0].ssignup"); if ($LOCK_EX){ flock(SADDITION, $LOCK_EX); } $h9cc = <SADDITION>; if ($c057{'list_details'}) { $h9cc =~ s/\</\&lt\;/g; $h9cc =~ s/\>/\&gt\;/g; $h9cc =~ s/\r/<BR>/g; } else { $h9cc =~ s/\r//g; } close (SADDITION); $/ = "\n"; undef $/; open (REMOVAL,"<$lists/$hllm[0].removal"); if ($LOCK_EX){ flock(REMOVAL, $LOCK_EX); } $c42p = <REMOVAL>; if ($c057{'list_details'}) { $c42p =~ s/\</\&lt\;/g; $c42p =~ s/\>/\&gt\;/g; $c42p =~ s/\r/<BR>/g; } else { $c42p =~ s/\r//g; } close (REMOVAL); $/ = "\n"; undef $/; open (RREMOVAL,"<$lists/$hllm[0].rremoval"); if ($LOCK_EX){ flock(RREMOVAL, $LOCK_EX); } $h5fm = <RREMOVAL>; if ($c057{'list_details'}) { $h5fm =~ s/\</\&lt\;/g; $h5fm =~ s/\>/\&gt\;/g; $h5fm =~ s/\r/<BR>/g; } else { $h5fm =~ s/\r//g; } close (RREMOVAL); $/ = "\n"; undef $/; open (SIGNATURE,"<$lists/$hllm[0].signature"); if ($LOCK_EX){ flock(SIGNATURE, $LOCK_EX); } $k29k = <SIGNATURE>; if ($c057{'list_details'}) { $k29k =~ s/\</\&lt\;/g; $k29k =~ s/\>/\&gt\;/g; $k29k =~ s/\r/<BR>/g; } else { $k29k =~ s/\r//g; } close (SIGNATURE); $/ = "\n"; } sub aba{ &ac5; open (DB, "$lists/lists.db"); if ($LOCK_EX){ flock(DB, $LOCK_EX); } @f121 = <DB>; close (DB); foreach $ed48(@f121) { @hllm = split(/\|/,$ed48); if ($hllm[0] == $c057{'list_name'}) { &abj; &ach; unless (($hllm[6]) && ($hllm[6] ne "0")) { $hllm[6] = "$ENV{'SERVER_NAME'}"; } print "Content-type: text/html\n\n"; &ad0; &ac0; print qq—\n        <FORM ACTION="$dj6h" METHOD="POST">\n        <INPUT TYPE="HIDDEN" NAME="session_id" VALUE="$c057{'session_id'}">\n        <INPUT TYPE="HIDDEN" NAME="list_id" VALUE="$c057{'list_name'}">\n        <TABLE BORDER="0" WIDTH="90%" CELLPADDING="0" CELLSPACING="0">\n          <TR>\n            <TD>\n            <TABLE BORDER="0" WIDTH="100%">\n              <TR>\n                <TD WIDTH="35%"><FONT SIZE="-1" FACE="arial, helvetica">\n                <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/listname.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n                <B>List Name</B> </FONT></TD>\n                <TD WIDTH="65%" ALIGN="RIGHT"><INPUT TYPE="TEXT" NAME="list_name" VALUE="$hllm[1]" SIZE="36"></TD>\n              </TR>\n              <TR>\n                <TD WIDTH="35%"><FONT SIZE="-1" FACE="arial, helvetica">\n                <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/adminemail.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n                <B>List Admin E-mail</B></FONT></TD>\n                <TD ALIGN="RIGHT" WIDTH="65%"><INPUT TYPE="TEXT" NAME="admin_email" SIZE="36" VALUE="$hllm[2]"></TD>\n              </TR>\n\n              <TR>\n                <TD WIDTH="35%"><FONT SIZE="-1" FACE="arial, helvetica">\n                <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/servername.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n                <B>Server Name</B></FONT></TD>\n                <TD ALIGN="RIGHT" WIDTH="65%"><INPUT TYPE="TEXT" NAME="servername" SIZE="36" VALUE="$hllm[6]"></TD>\n              </TR>\n\n\n            <TR>\n            <TD WIDTH="35%"><FONT SIZE="-1" FACE="arial, helvetica">\n            <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/optin.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n            <B>Double Opt IN</B></FONT><BR>\n            <FONT SIZE="-2" FACE="arial, helvetica"><I>To ensure valid address\n            </I></FONT></TD>\n            <TD ALIGN="LEFT" WIDTH="65%"><SELECT NAME="optin_setting" SIZE="1">\n—;if ($hllm[4] eq 'optin') { print qq—            <OPTION VALUE="optin" SELECTED="SELECTED">ON</OPTION>\n            <OPTION VALUE="off">OFF</OPTION>\n—;} else { print qq—           <OPTION VALUE="off" SELECTED="SELECTED">OFF</OPTION>\n           <OPTION VALUE="optin">ON</OPTION>\n—;} print qq—    </SELECT></TD>\n          </TR>\n              <TR>\n            <TD WIDTH="35%"><FONT SIZE="-1" FACE="arial, helvetica">\n            <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/optout.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n            <B>Double Opt OUT</B></FONT><BR>\n            <FONT SIZE="-2" FACE="arial, helvetica"><I>To help prevent malicious behavior\n            </I></FONT></TD>\n            <TD ALIGN="LEFT" WIDTH="65%"><SELECT NAME="optout_setting" SIZE="1">\n—;if ($hllm[5] eq 'optout') { print qq—            <OPTION VALUE="optout" SELECTED="SELECTED">ON</OPTION>\n            <OPTION VALUE="off">OFF</OPTION>\n—;} else { print qq—           <OPTION VALUE="off" SELECTED="SELECTED">OFF</OPTION>\n           <OPTION VALUE="optout">ON</OPTION>\n—;} print qq—    </SELECT></TD>\n          </TR>\n              <TR>\n                <TD WIDTH="35%">\n                <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/listdescription.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n                <B><FONT SIZE="-1" FACE="arial, helvetica">Description</FONT><BR>\n                <FONT SIZE="-2" FACE="arial, helvetica"><I>Describe the list\n                purpose</I></FONT></B></TD>\n                <TD ALIGN="RIGHT" WIDTH="65%"><TEXTAREA NAME="description" ROWS="4" COLS="34" WRAP="Off">$hllm[3]</TEXTAREA></TD>\n              </TR>\n              <TR>\n                <TD WIDTH="35%">\n                <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/optinhresponse.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n                <B><FONT SIZE="-1" FACE="arial, helvetica">Optin Sign-Up HTML Response</FONT><BR>\n                <FONT SIZE="-2" FACE="arial, helvetica"><I>HTML response to\n                Optin signups</I></FONT></B></TD>\n                <TD WIDTH="65%"><TEXTAREA NAME="optin_response" ROWS="4" COLS="34" WRAP="Off">$h0be</TEXTAREA></TD>\n              </TR>\n              <TR>\n                <TD WIDTH="35%">\n                <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/optouthresponse.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n                <B><FONT SIZE="-1" FACE="arial, helvetica">Optout Removal HTML Response</FONT><BR>\n                <FONT SIZE="-2" FACE="arial, helvetica"><I>HTML response to\n                Optout Removal Requests</I></FONT></B></TD>\n                <TD WIDTH="65%"><TEXTAREA NAME="optout_signup" ROWS="4" COLS="34" WRAP="Off">$eklm</TEXTAREA></TD>\n              </TR>\n              <TR>\n                <TD WIDTH="35%">\n                <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/optnomatch.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n                <B><FONT SIZE="-1" FACE="arial, helvetica">"No Match" Optin Sign-Up HTML Response</FONT><BR>\n                <FONT SIZE="-2" FACE="arial, helvetica"><I>HTML response to\n                "No Match" Optin signups</I></FONT></B></TD>\n                <TD WIDTH="65%"><TEXTAREA NAME="no_match" ROWS="4" COLS="34" WRAP="Off">$e03k</TEXTAREA></TD>\n              </TR>\n              <TR>\n              <TR>\n                <TD WIDTH="35%">\n                <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/optinresponse.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n                <B><FONT SIZE="-1" FACE="arial, helvetica">Optin Sign-Up E-Mail Response</FONT><BR>\n                <FONT SIZE="-2" FACE="arial, helvetica"><I>E-mail response to Optin\n                signups</I></FONT></B></TD>\n                <TD WIDTH="65%"><TEXTAREA NAME="optinsignup" ROWS="4" COLS="34" WRAP="Off">$h424</TEXTAREA></TD>\n              </TR>\n              <TR>\n                <TD WIDTH="35%">\n                <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/optoutresponse.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n                <B><FONT SIZE="-1" FACE="arial, helvetica">Optout Removal E-Mail Response</FONT><BR>\n                <FONT SIZE="-2" FACE="arial, helvetica"><I>E-mail response to Optout\n                removals</I></FONT></B></TD>\n                <TD WIDTH="65%"><TEXTAREA NAME="optout_response" ROWS="4" COLS="34" WRAP="Off">$jc40</TEXTAREA></TD>\n              </TR>\n              <TR>\n                <TD WIDTH="35%">\n                <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/hnormal.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n                <B><FONT SIZE="-1" FACE="arial, helvetica">Signup HTML Response</FONT><BR>\n                <FONT SIZE="-2" FACE="arial, helvetica"><I>HTML response to normal successful\n                signups</I></FONT></B></TD>\n                <TD WIDTH="65%"><TEXTAREA NAME="shtmlresponse" ROWS="4" COLS="34" WRAP="Off">$h9cc</TEXTAREA></TD>\n              </TR>\n\n              <TR>\n                <TD WIDTH="35%">\n                <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/iahresponse.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n                <B><FONT SIZE="-1" FACE="arial, helvetica">Sign-Up "Improperly Formatted Address" HTML Response</FONT><BR>\n                <FONT SIZE="-2" FACE="arial, helvetica"><I>HTML response to "Improperly Formatted Address" \n                signups</I></FONT></B></TD>\n                <TD WIDTH="65%"><TEXTAREA NAME="improper_address" ROWS="4" COLS="34" WRAP="Off">$cp41</TEXTAREA></TD>\n              </TR>\n\n              <TR>\n                <TD WIDTH="35%">\n                <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/bnresponse.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n                <B><FONT SIZE="-1" FACE="arial, helvetica">Sign-Up "Unable to Subscribe" HTML Response</FONT><BR>\n                <FONT SIZE="-2" FACE="arial, helvetica"><I>HTML response to "Banned" \n                address signups</I></FONT></B></TD>\n                <TD WIDTH="65%"><TEXTAREA NAME="banned_message" ROWS="4" COLS="34" WRAP="Off">$eepd</TEXTAREA></TD>\n              </TR>\n\n              <TR>\n                <TD WIDTH="35%">\n                <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/nfhresponse.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n                <B><FONT SIZE="-1" FACE="arial, helvetica">Sign-Up "Not Found" HTML Response</FONT><BR>\n                <FONT SIZE="-2" FACE="arial, helvetica"><I>HTML response to "address not found" \n                signups</I></FONT></B></TD>\n                <TD WIDTH="65%"><TEXTAREA NAME="not_found" ROWS="4" COLS="34" WRAP="Off">$f29d</TEXTAREA></TD>\n              </TR>\n              <TR>\n                <TD WIDTH="35%">\n                <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/alhresponse.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n                <B><FONT SIZE="-1" FACE="arial, helvetica">Sign-Up "Already Listed" HTML Response</FONT><BR>\n                <FONT SIZE="-2" FACE="arial, helvetica"><I>HTML response when "address already listed" \n                signups</I></FONT></B></TD>\n                <TD WIDTH="65%"><TEXTAREA NAME="alhtmlresponse" ROWS="4" COLS="34" WRAP="Off">$gcgl</TEXTAREA></TD>\n              </TR>\n              <TR>\n                <TD WIDTH="35%">\n                <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/signupresponse.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n                <B><FONT SIZE="-1" FACE="arial, helvetica">Sign-Up E-Mail Response</FONT><BR>\n                <FONT SIZE="-2" FACE="arial, helvetica"><I>E-mail response to normal successful\n                signups</I></FONT></B></TD>\n                <TD WIDTH="65%"><TEXTAREA NAME="signup" ROWS="4" COLS="34" WRAP="Off">$bc1p</TEXTAREA></TD>\n              </TR>\n              <TR>\n                <TD WIDTH="35%">\n                <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/rhresponse.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n                <B><FONT SIZE="-1" FACE="arial, helvetica">HTML Removal Response</FONT><BR>\n                <FONT SIZE="-2" FACE="arial, helvetica"><I>HTML response to successful\n                removals</I></FONT></B></TD>\n                <TD WIDTH="65%"><TEXTAREA NAME="rhtmlresponse" ROWS="4" COLS="34" WRAP="Off">$h5fm</TEXTAREA></TD>\n              </TR>\n              <TR>\n                <TD WIDTH="35%">\n                <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/removalresponse.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n                <B><FONT SIZE="-1" FACE="arial, helvetica">Removal Response</FONT><BR>\n                <FONT SIZE="-2" FACE="arial, helvetica"><I>E-mail response to successful\n                removals</I></FONT></B></TD>\n                <TD WIDTH="65%"><TEXTAREA NAME="removal" ROWS="4" COLS="34" WRAP="Off">$c42p</TEXTAREA></TD>\n              </TR>\n              <TR>\n                <TD WIDTH="35%">\n                <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/signaturemessage.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n                <B><FONT SIZE="-1" FACE="arial, helvetica">Signature Message</FONT><BR>\n                <FONT SIZE="-2" FACE="arial, helvetica"><I>Added to end of\n                mailing</I></FONT></B></TD>\n                <TD WIDTH="65%"><TEXTAREA NAME="signature" ROWS="4" COLS="34" WRAP="Off">$k29k</TEXTAREA></TD>\n              </TR>\n\n\n          <TR>\n            <TD WIDTH="35%">\n            <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/headerinfo.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n            <B><FONT SIZE="-1" FACE="arial, helvetica">Response Page\n            Headers</FONT><BR>\n            <FONT SIZE="-2" FACE="arial, helvetica"><I>Headers of response screens</I></FONT></B></TD>\n            <TD WIDTH="65%"><TEXTAREA NAME="headerinfo" ROWS="4" COLS="34" WRAP="Off">\n—;unless ($bj8k) { print qq—<HEAD><TITLE>Subscribe Me Professional</TITLE>\n</HEAD><BODY TEXT="#000040" LINK="#0000FF" VLINK="#0000FF" ALINK="#FF0000">\n—;} else { print qq—$bj8k\n—;} print qq—</TEXTAREA></TD>\n              </TR>\n              <TR>\n            <TD WIDTH="35%">\n            <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/headerinfo.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n            <B><FONT SIZE="-1" FACE="arial, helvetica">Response Page\n            Footers</FONT><BR>\n            <FONT SIZE="-2" FACE="arial, helvetica"><I>Footers of response screens</I></FONT></B></TD>\n            <TD WIDTH="65%"><TEXTAREA NAME="footerinfo" ROWS="4" COLS="34" WRAP="Off">$cgp5</TEXTAREA></TD>\n              </TR>\n              <TR>\n                <TD WIDTH="35%"></TD>\n                <TD WIDTH="65%">\n                \n                <P><BR>\n                  <INPUT TYPE="SUBMIT" NAME="update_list" VALUE="Update List"><INPUT TYPE="RESET" NAME="Reset1"></P></TD>\n              </TR>\n            </TABLE></TD>\n          </TR>\n        </TABLE></FORM>\n        \n        \n—;&ab9; &aap; last; exit; } } } sub ac8{ &ac5; open (DB, "<$lists/lists.db"); if ($LOCK_EX){ flock(DB, $LOCK_EX); } @f121 = <DB>; close (DB); open (DB, ">$lists/lists.db"); if ($LOCK_EX){ flock(DB, $LOCK_EX); } foreach $ed48(@f121) { @b736 = split(/\|/,$ed48); if ($c057{'list_name'} != $b736[0]) { print DB "$ed48"; } } close(DB); unlink("$lists/$c057{'list_name'}.list"); unlink("$lists/$c057{'list_name'}.signup"); unlink("$lists/$c057{'list_name'}.removal"); unlink("$lists/$c057{'list_name'}.rremoval"); unlink("$lists/$c057{'list_name'}.signature"); unlink("$lists/$c057{'list_name'}.alsignup"); unlink("$lists/$c057{'list_name'}.bannedr"); unlink("$lists/$c057{'list_name'}.nfresponse"); unlink("$lists/$c057{'list_name'}.nmresponse"); unlink("$lists/$c057{'list_name'}.optinresponse"); unlink("$lists/$c057{'list_name'}.optinsignup"); unlink("$lists/$c057{'list_name'}.ssignup"); unlink("$lists/$c057{'list_name'}.optoutresponse"); unlink("$lists/$c057{'list_name'}.optoutsignup"); unlink("$lists/$c057{'list_name'}.impropersignup"); print "Content-type: text/html\n\n"; &ad0; &ac0; print qq—    <CENTER><BR>\n    <TABLE BORDER="0" WIDTH="350">\n      <TR>\n        <TD><FONT SIZE="-1" FACE="arial, helvetica">The list $c057{'list_name'} has\n        been deleted from the database.</FONT> </TD>\n      </TR>\n    </TABLE></CENTER>\n—;&ab9; $b9he; } sub acb{ $ci4j = 0; opendir (DIR, "$lists"); @g6j6 = grep { /.list/} readdir(DIR); $j226 = push(@g6j6); foreach $fbmm(@g6j6) { open (LIST, "<$lists/$fbmm"); if ($LOCK_EX){ flock(LIST, $LOCK_EX); } @g6cf = <LIST>; close (LIST); my $h9d8 = push(@g6cf); $ci4j = $ci4j + $h9d8; } } sub aam{ $h9d8 = 0; open (LIST, "<$lists/$imjb[0].list"); if ($LOCK_EX){ flock(LIST, $LOCK_EX); } @g6cf = <LIST>; close (LIST); $h9d8 = push(@g6cf); } sub abk{ if ($c057{'graphic'}) { print "Content-type: image/$gn2h\n"; print "\n"; $g6j6 = "$graphics/$c057{'graphic'}"; open (IMAGE, "<$g6j6") || die "Can't open $g6j6: $!"; if ($os eq 'nt') { binmode(IMAGE); binmode(STDOUT); } while (<IMAGE>) { print $_; } close(IMAGE); } } sub ab5{ $cbop = $c057{'session_id'}; &ac5; print "Content-type: text/html\n\n"; &ad0; &ac0; print qq—\n        <FORM ACTION="$dj6h">\n        <TABLE BORDER="0" WIDTH="90%" CELLPADDING="0" CELLSPACING="0">\n          <TR>\n            <TD BGCOLOR="#000000" ALIGN="CENTER" WIDTH="100%">\n            <TABLE BORDER="0" WIDTH="100%" CELLSPACING="1" CELLPADDING="0" BGCOLOR="#FFB500">\n              <TR>\n                <TD WIDTH="55%" ALIGN="CENTER"><FONT SIZE="-1" FACE="arial, helvetica">List\n                Names</FONT></TD>\n                <TD ALIGN="CENTER" WIDTH="15%"><FONT SIZE="-1" FACE="arial, helvetica">Subscribers</FONT></TD>\n                <TD ALIGN="CENTER" WIDTH="30%"><FONT SIZE="-1" FACE="arial, helvetica">Edit/Delete\n                List</FONT></TD>\n              </TR>\n            </TABLE></TD>\n          </TR>\n—;open (DESCRIPTION, "<$lists/lists.db"); if ($LOCK_EX){ flock(DESCRIPTION, $LOCK_EX); } @jj6d = <DESCRIPTION>; close (DESCRIPTION); $gngf=0; foreach $hpo6(@jj6d) { @imjb = split(/\|/,$hpo6); $imjb[3] =~ s/\r//gm; $imjb[3] =~ s/\\n/<BR>/gm; &aam; print qq—            <TR>\n            <TD BGCOLOR="#000000">\n    <TABLE BORDER="0" CELLPADDING="5" WIDTH="100%" CELLSPACING="1">\n      <TR>\n        <TD ALIGN="LEFT" WIDTH="55%" BGCOLOR="#FFFFFF"><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>$imjb[1]</B>\n        </FONT><BR>\n        <FONT SIZE="-2" FACE="arial, helvetica">$imjb[3] - List #$imjb[0]</FONT></TD>\n        <TD ALIGN="LEFT" WIDTH="15%" BGCOLOR="#FFFFFF"><B><FONT COLOR="#FF0000" SIZE="-2" FACE="arial, helvetica">$h9d8</FONT></B></TD>\n        <TD ALIGN="CENTER" WIDTH="30%" BGCOLOR="#FFFFFF"><B><FONT COLOR="#FF0000" SIZE="-2" FACE="arial, helvetica"><B><A HREF="$dj6h?list_details=1&list_name=$imjb[0]&session_id=$cbop">Details</A></B>\n        |\n        <A HREF="$dj6h?edit_list=1&list_name=$imjb[0]&session_id=$cbop">Edit</A>\n        |\n        <A HREF="$dj6h?delete_list=1&list_name=$imjb[0]&session_id=$cbop">Delete        </A></FONT></B></TD>\n      </TR>\n    </TABLE></TD>\n                </TR>\n\n—;$gngf++; } print qq—              \n\n\n        </TABLE>\n        \n        <P></P>\n—;&ab3; print qq—      </CENTER></FORM></TD>\n      </TR>\n    </TABLE></CENTER>\n—;&aap; exit; } sub ab3{ print qq—    <TABLE BORDER="0" WIDTH="90%">\n      <TR>\n        <TD ALIGN="CENTER"><FONT SIZE="-2" FACE="arial, helvetica"><B><A HREF="$dj6h?adminreturn=1&session_id=$c057{'session_id'}">Main\n          Menu</A> | <A HREF="$dj6h?add_list=1&session_id=$c057{'session_id'}">Add/Import\n          List</A> |\n        <A HREF="$deb3?reinstall=1&session_id=$c057{'session_id'}">Edit/Upgrade\n          Configs</A> | <A HREF="$dj6h?form2=1&session_id=$c057{'session_id'}">Send\n          Mail</A> |\n        <A HREF="$dj6h?track_results=1&session_id=$c057{'session_id'}">Track\n          Results</A> | <A HREF="$dj6h?log_off=1&session_id=$c057{'session_id'}">Log\n          Off</A></B></FONT></TD>\n      </TR>\n    </TABLE>\n—;} sub acl{ &ac5; unlink("$memberinfo/session.id"); unlink("$memberinfo/session.time"); print "Content-type: text/html\n\n"; &ad0; &ac0; print qq—    <CENTER>\n    <TABLE BORDER="0" WIDTH="350">\n      <TR>\n        <TD><BR><FONT SIZE="-1" FACE="verdana, arial, helvetica"><B>You have\n        successfully logged off. Your Session Management password has been\n        deleted for security purposes.<BR>\n         <BR>\n         A new one will be created the next time you log into your Subscribe Me\n        Professional program.<BR>\n         <BR>\n         <BR>\n         Thank you for using Subscribe Me Professional.</B></FONT></TD>\n      </TR>\n    </TABLE></CENTER>\n—;&ab9; &aap; exit; } sub ac0{ if (-e "$graphics/sub3.gif") { print qq—<CENTER>\n    <TABLE BORDER="0" CELLPADDING="1" CELLSPACING="0" BGCOLOR="#FFFF80" WIDTH="500">\n      <TR>\n        <TD BGCOLOR="#FFB500" ALIGN="CENTER" WIDTH="100%">\n        <TABLE BORDER="0" BGCOLOR="#FFFFFF" CELLSPACING="0" CELLPADDING="5" WIDTH="100%">\n          <TR>\n            <TD ALIGN="CENTER"><IMG SRC="$dj6h?graphic=sub3.gif" \n    ALT="Subscribe Me Professional logo" WIDTH="129" HEIGHT="77"></TD>\n            <TD ALIGN="CENTER" VALIGN="MIDDLE"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>Subscribe\n            Me Professional $fnl8<BR><FONT COLOR="#F79C00">Enterprise Edition</FONT><BR>\n             Administration Panel</B></FONT><HR SIZE="1" WIDTH="150">\n            <FONT SIZE="-2" FACE="verdana, arial, helvetica"><A HREF="http://www.cgiscriptcenter.com/subscribe/pro/support/" TARGET="_blank">Users\n              Manual and Support</A></FONT></TD>\n          </TR>\n        </TABLE> <BR>\n\n—;} else { print qq—<CENTER>\n    <TABLE BORDER="0" CELLPADDING="1" CELLSPACING="0" BGCOLOR="#FFFF80" WIDTH="500">\n      <TR>\n        <TD BGCOLOR="#FFB500" ALIGN="CENTER" WIDTH="100%">\n        <TABLE BORDER="0" BGCOLOR="#FFFFFF" CELLSPACING="0" CELLPADDING="5" WIDTH="100%">\n          <TR>\n            <TD ALIGN="CENTER" VALIGN="MIDDLE"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>Subscribe\n            Me Professional $fnl8<BR><FONT COLOR="#F79C00">Enterprise Edition</FONT><BR>\n             Administration Panel</B></FONT><HR SIZE="1" WIDTH="150">\n            <FONT SIZE="-2" FACE="verdana, arial, helvetica"><A HREF="http://www.cgiscriptcenter.com/subscribe/pro/support/" TARGET="_blank">Users\n              Manual and Support</A></FONT></TD>\n          </TR>\n        </TABLE> <BR>\n\n—;} } sub ac1{ if (-e "$graphics/sub3.gif") { print qq—<CENTER>\n    <TABLE BORDER="0" CELLPADDING="1" CELLSPACING="0" BGCOLOR="#FFFF80" WIDTH="500">\n      <TR>\n        <TD BGCOLOR="#FFB500" ALIGN="CENTER" WIDTH="100%">\n        <TABLE BORDER="0" BGCOLOR="#FFFFFF" CELLSPACING="0" CELLPADDING="5" WIDTH="100%">\n          <TR>\n            <TD ALIGN="CENTER"><IMG SRC="$dj6h?graphic=sub3.gif" \n    ALT="Subscribe Me Professional logo" WIDTH="129" HEIGHT="77"></TD>\n            <TD ALIGN="CENTER" VALIGN="MIDDLE"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>Subscribe\n            Me Professional $fnl8<BR><FONT COLOR="#F79C00">Enterprise Edition</FONT><BR>\n             Administration Panel</B></FONT><HR SIZE="1" WIDTH="150">\n            <FONT SIZE="-2" FACE="verdana, arial, helvetica"><A HREF="http://www.cgiscriptcenter.com/subscribe/pro/support/" TARGET="_blank">Users\n              Manual and Support</A></FONT></TD>\n          </TR>\n        </TABLE>\n—;} else { print qq—<CENTER>\n    <TABLE BORDER="0" CELLPADDING="1" CELLSPACING="0" BGCOLOR="#FFFF80" WIDTH="500">\n      <TR>\n        <TD BGCOLOR="#FFB500" ALIGN="CENTER" WIDTH="100%">\n        <TABLE BORDER="0" BGCOLOR="#FFFFFF" CELLSPACING="0" CELLPADDING="5" WIDTH="100%">\n          <TR>\n            <TD ALIGN="CENTER" VALIGN="MIDDLE"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>Subscribe\n            Me Professional $fnl8<BR><FONT COLOR="#F79C00">Enterprise Edition</FONT><BR>\n             Administration Panel</B></FONT><HR SIZE="1" WIDTH="150">\n            <FONT SIZE="-2" FACE="verdana, arial, helvetica"><A HREF="http://www.cgiscriptcenter.com/subscribe/pro/support/" TARGET="_blank">Users\n              Manual and Support</A></FONT></TD>\n          </TR>\n        </TABLE>\n—;} } sub ab9{ print "<P>"; &ab3; print "<BR> </P></TD> </TR> </TABLE></CENTER>"; } sub abb{ print "<P>"; print "<BR> </P></TD> </TR> </TABLE></CENTER>"; } sub abl{ $gn8b = ""; $gn8b .= "The email address $c057{'e'} has been\n"; $gn8b .= "successfully added to the $c057{'list_name'}\n"; $gn8b .= "Subscribe Me mailing list!\n\n"; $gn8b .= "Automated Subscribe Me Responder\n\n"; &aac("$c057{'admin_email'}","$c057{'admin_email'}","Subscribe Me New Addition!","$e2pf",0,$c057{'list_name'},"$gn8b","","1"); } sub ab4{ $gn8b = ""; $gn8b .= "The email address $c057{'e'} has been\n"; $gn8b .= "successfully removed from the $c057{'list_name'}\n"; $gn8b .= "Subscribe Me mailing list!\n\n"; $gn8b .= "Automated Subscribe Me Responder\n\n"; &aac("$c057{'admin_email'}","$c057{'admin_email'}","Subscribe Me Removal!","$e2pf",0,$c057{'list_name'},"$gn8b","","1"); } sub abe{ $bk2d = 1; $e2pf = ""; $gn8b = ""; $e2pf .= "Your Subscribe Me Mass Mailing was successfully\n"; $gn8b .= "Your Subscribe Me Mass Mailing was successfully\n"; $e2pf .= "sent to $d836 e-mail addresses.\n\n"; $gn8b .= "sent to $d836 e-mail addresses.\n\n"; $e2pf .= "Duplicate addresses were removed prior to mailing.\n\n"; $gn8b .= "Duplicate addresses were removed prior to mailing.\n\n"; $e2pf .= "Automated Subscribe Me Responder\n\n"; $gn8b .= "Automated Subscribe Me Responder\n\n"; &aac("$cp1c","$cp1c","Subscribe Me Mass Mailing Status!","$e2pf",0,"Subscribe Me Responder","$gn8b",$doea,$bk2d); } sub abp{ open (LIST,"<$lists/$c057{'l'}.list"); if ($LOCK_EX){ flock(LIST, $LOCK_EX); } @g6cf = <LIST>; close (LIST); $ekac = push(@g6cf); } sub abn{ &ac5; open (LIST,"<$lists/$c057{'list_name'}.list"); if ($LOCK_EX){ flock(LIST, $LOCK_EX); } @g6cf = <LIST>; close (LIST); print "Content-type: text/html\n\n"; &ad0; print "<P>"; foreach $ed48(@g6cf) { chomp($ed48); print "<FONT SIZE=\"-1\" FACE=\"verdana, arial, helvetica\">$ed48</FONT><BR>"; } print "</P>"; &aap; exit; } sub acm{ &ac5; open (LIST,"<$removes/$c057{'list_name'}.list"); if ($LOCK_EX){ flock(LIST, $LOCK_EX); } @g6cf = <LIST>; close (LIST); print "Content-type: text/html\n\n"; &ad0; print "<P>"; foreach $ed48(@g6cf) { chomp($ed48); print "<FONT SIZE=\"-1\" FACE=\"verdana, arial, helvetica\">$ed48</FONT><BR>"; } print "</P>"; &aap; exit; } sub ad5{ $f2a4 = "0"; if ($c057{'page'}) { $c057{'page'} =~ s/^\///; } $j583 = $c057{'l'}; $edea = $c057{'page'}; $fhga = $c057{'address'}; $c49l = "$edea"; $bg1a = "$c057{'which'}"; unless (-e "$trackdir/$bg1a.txt") { $bhdf = join ("\|",$c2l7,$edea,1,$fhga,0); $bhdf .= "\n"; open(ID, ">$trackdir/$bg1a.txt") or print "unable to create user info temp file.  Check your directory permission settings"; if ($LOCK_EX){ flock(ID, $LOCK_EX); } print ID "$bhdf"; close (ID); print "Location: http://$edea\n\n"; exit; } open(ID, "<$trackdir/$bg1a.txt") or print "unable to create user info temp file.  Check your directory permission settings"; if ($LOCK_EX){ flock(ID, $LOCK_EX); } @i57i = <ID>; close (ID); foreach $ap64(@i57i) { @i64m = split(/\|/,$ap64); if ($i64m[1] eq $edea) { $f2a4 = "1"; last; } } if ($f2a4) { open(ID, "<$trackdir/$bg1a.txt") or print "unable to create user info temp file.  Check your directory permission settings"; if ($LOCK_EX){ flock(ID, $LOCK_EX); } @i57i = <ID>; close (ID); open(ID, ">$trackdir/$bg1a.txt") or print "unable to create user info temp file.  Check your directory permission settings"; if ($LOCK_EX){ flock(ID, $LOCK_EX); foreach $ap64(@i57i) { @i64m = split(/\|/,$ap64); if ($i64m[1] eq $edea) { $i64m[2]++; } $bhdf = join ("\|",@i64m); chomp($bhdf); print ID "$bhdf\n"; } } } else { $bhdf = join ("\|",$c2l7,$edea,1,$fhga,0); $bhdf .= "\n"; open(ID, ">>$trackdir/$bg1a.txt") or print "unable to create user info temp file.  Check your directory permission settings"; if ($LOCK_EX){ flock(ID, $LOCK_EX); } chomp($bhdf); print ID "$bhdf\n"; } close(ID); print "Location: http://$edea\n\n"; exit; } sub ad2{ &ac5; if ($c057{'whichmailing'} eq "choose") { print "Content-type: text/html\n\n"; print "Please choose which mailing you would like to view statistics on<BR>"; exit; } $gk0m = $c057{'whichmailing'}; $gk0m =~ s/.txt/.urlfile/g; open(ID, "<$trackdir/$c057{'whichmailing'}") or print "unable to create user info temp file.  Check your directory permission settings"; print "Content-type: text/html\n\n"; &ad0; $c84d = "Statistics Tracking"; &ac0; print qq—\n    <CENTER>\n    <TABLE BORDER="0" WIDTH="550" CELLSPACING="2">\n      <TR>\n        <TD ALIGN="CENTER" WIDTH="50"><FONT SIZE="-1" FACE="arial, helvetica"><B>DATE</B></FONT></TD>\n        <TD ALIGN="CENTER" WIDTH="450"><FONT SIZE="-1" FACE="arial, helvetica"><B>URL</B></FONT></TD>\n        <TD ALIGN="CENTER" WIDTH="50"><FONT SIZE="-1" FACE="arial, helvetica"><B>CLICKS</B></FONT></TD>\n      </TR>\n    </TABLE></CENTER>\n—;if ($LOCK_EX){ flock(ID, $LOCK_EX); } @i57i = <ID>; close (ID); foreach $ap64(@i57i) { @i64m = split(/\|/,$ap64); print qq—    <CENTER>\n    <TABLE BORDER="0" WIDTH="550" CELLPADDING="2" BGCOLOR="#FFFFFF" BORDERCOLOR="#400080">\n      <TR>\n        <TD WIDTH="50"><FONT SIZE="-2" FACE="arial, helvetica">$i64m[0]</FONT></TD>\n        <TD WIDTH="450"><A HREF="http://$i64m[1]" TARGET="_blank"><B><FONT SIZE="-2" FACE="arial, helvetica">http://$i64m[1]</FONT></B></A></TD>\n        <TD WIDTH="50"><FONT SIZE="-2" FACE="arial, helvetica">$i64m[2]</FONT></TD>\n      </TR>\n    </TABLE></CENTER>\n—;} &ab9; &aap; exit; } sub ac2{ print "Content-type: text/html\n\n"; &ad0; &ac0; print qq—\n<CENTER><BR>\n    <TABLE BORDER="0" WIDTH="400">\n      <TBODY>\n      <TR>\n        <TD>\n        \n        <P><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe\n          Me</FONT> Status: Mailing Success!</FONT></B></P>\n        \n        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">Your mailing is now being sent to your Subscribe Me mailing list!  When your mailing is completed, you should receive an automated e-mail from Subscribe Me which will let you know the status of your mailing and the number of addresses delivered to.</FONT></P>\n        \n        <P><FONT SIZE="-1" FACE="verdana, arial, helvetica">Thank you for\n          using Subscribe Me. Please let us know if there are any improvements you\n          would like us to consider for the next release of our program, at\n          <A HREF="mailto:cgi\@elitehost.com">cgi\@elitehost.com</A>.</FONT></P>\n        </TD>\n      </TR></TBODY>\n    </TABLE></CENTER>\n—;&ab9; &aap; exit; } sub abm{ print qq—<BR>\n<TABLE BORDER="0" WIDTH="100%">\n      <TR>\n        <TD>\n<CENTER>\n    <TABLE BORDER="0">\n      <TR>\n        <TD WIDTH="400"><FONT SIZE="-1" FACE="verdana, arial, helvetica">Copy\n        and paste the following code to your web pages. This will insert the\n        Subscribe Me sign up form in any HTML page that you place it in.</FONT></TD>\n      </TR>\n    </TABLE></CENTER>\n\n\n<CENTER>\n    <FORM>\n    \n    <P><TEXTAREA NAME="singlelist" ROWS="10" COLS="50" WRAP="Off">\n\n<!--START COPY SINGLE LIST FORM HERE-->\n\n       <FORM ACTION="$dj6h" METHOD="POST">\n        <TABLE BORDER="0">\n           <TR>\n             <TD BGCOLOR="#FFFFFF">\n             <CENTER><FONT SIZE="-2" FACE="verdana, arial, helvetica"><B>Join our\n              mailing list<BR>\n              for new and<BR>\n              updated information!</B></FONT><BR>\n             <INPUT TYPE="TEXT" SIZE="10" NAME="e"></CENTER>\n             <INPUT TYPE="RADIO" NAME="subscribe" VALUE="subscribe" CHECKED="CHECKED" ALIGN="TOP">\n             <INPUT TYPE="HIDDEN" NAME="l" VALUE="$c057{'list_name'} ">\n             <FONT SIZE="-2" FACE="verdana, arial, helvetica">subscribe</FONT><BR>\n             <INPUT TYPE="RADIO" NAME="subscribe" VALUE="unsubscribe" ALIGN="TOP">\n             <FONT SIZE="-2" FACE="verdana, arial, helvetica">unsubscribe</FONT><BR>\n             <CENTER><INPUT TYPE="SUBMIT" VALUE="  Submit  "></CENTER></TD>\n           </TR>\n         </TABLE>\n       </FORM>\n\n<!--END COPY SINGLE LIST FORM HERE-->\n\n    </TEXTAREA></P>\n    </FORM>\n</CENTER>\n\n\n<CENTER>\n    <FORM>\n    \n    <P><TEXTAREA NAME="multiplelist" ROWS="10" COLS="50" WRAP="Off">\n\n<!--START COPY MULTIPLE LISTS FORM HERE-->\n\n     <FORM ACTION="$dj6h" METHOD="POST">\n      <TABLE BORDER="0">\n       <TR>\n        <TD BGCOLOR="#FFFFFF">\n        <CENTER><FONT SIZE="-2" FACE="verdana, arial, helvetica"><B>Join our\n        mailing list<BR>\n         for new and<BR>\n         updated information!</B></FONT><BR>\n        <INPUT TYPE="TEXT" SIZE="10" NAME="e"></CENTER></TD>\n       </TR>\n      </TABLE>\n     <TABLE BORDER="0">\n—;open (DB, "<$lists/lists.db"); if ($LOCK_EX){ flock(DB, $LOCK_EX); } @f121 = <DB>; close (DB); foreach $ed48(@f121) { @b736 = split(/\|/,$ed48); chomp($ed48); print qq—      <TR>\n        <TD><INPUT TYPE="CHECKBOX" NAME="l" VALUE="$b736[0] "> <FONT SIZE="-1" FACE="Arial, Helvetica">$b736[1]</FONT></TD>\n      </TR>\n—;} print qq—    </TABLE>\n    <TABLE BORDER="0">\n      <TR>\n        <TD><INPUT TYPE="RADIO" NAME="subscribe" VALUE="subscribe" CHECKED="CHECKED" ALIGN="TOP">\n        <FONT SIZE="-2" FACE="verdana, arial, helvetica">subscribe</FONT><BR>\n        <INPUT TYPE="RADIO" NAME="subscribe" VALUE="unsubscribe" ALIGN="TOP">\n        <FONT SIZE="-2" FACE="verdana, arial, helvetica">unsubscribe</FONT><BR>\n        <CENTER><INPUT TYPE="SUBMIT" VALUE="  Submit  "></CENTER></TD>\n      </TR>\n    </TABLE></FORM>\n\n<!--END COPY MULTIPLE LISTS FORM HERE-->\n\n    </TEXTAREA></P>\n    </FORM>\n</CENTER>\n\n<CENTER>\n    <TABLE BORDER="0">\n      <TR>\n        <TD WIDTH="400"><FONT SIZE="-1" FACE="verdana, arial, helvetica">NOTE: If you prefer your HTML\n      responses to load in a blank new window, be sure to change:</FONT></TD>\n      </TR>\n    </TABLE></CENTER>\n\n<XMP>\n      METHOD="POST">\n\n      to\n\n      METHOD="POST" TARGET="_blank">\n</XMP>\n</FONT>\n</TD>\n      </TR>\n    </TABLE>\n—;} sub acp{ &ac5; open (DB, "<$lists/lists.db"); if ($LOCK_EX){ flock(DB, $LOCK_EX); } @f121 = <DB>; close (DB); foreach $ed48(@f121) { @hllm = split(/\|/,$ed48); if ($c057{'list_name'} == $hllm[0]) { $boc5 = $hllm[1]; last; } } print "Content-type: text/html\n\n"; &ad0; &ac0; print qq—    <CENTER>\n    <TABLE BORDER="0" WIDTH="400">\n      <TR>\n        <TD ALIGN="CENTER">\n        \n        <P><FONT SIZE="-1" FACE="Arial, Helvetica"><B>Batch Addition to List:\n          $boc5</B></FONT><BR>\n           </P>\n        <TABLE BORDER="0">\n          <TR>\n        <TD><FONT SIZE="-1" FACE="Arial, Helvetica">Make sure <B>not</B> to\n        enter any additional carriage returns or spaces after your last e-mail\n        address. Also verify that each address is in proper e-mail address\n        format. Improperly formatted e-mail\n            addresses or additional carriage returns/spaces can cause your\n            mailings to fail.<BR><BR>Enter the addresses you wish to have added, one above the\n        other, separated by a carriage return. Example:<BR>\n        <BR>\n        abc\@abc.com<BR>\n        bbc\@abc.com<BR>\n        ccc\@abc.com</FONT></TD> \n          </TR>\n        </TABLE>\n        <FORM METHOD="POST" ACTION="$dj6h">\n        <INPUT TYPE="HIDDEN" NAME="session_id" VALUE="$c057{'session_id'}">\n        <INPUT TYPE="HIDDEN" NAME="list_name" VALUE="$c057{'list_name'}">\n        <INPUT TYPE="HIDDEN" NAME="listname" VALUE="$boc5">\n        <P><TEXTAREA NAME="new_addresses" ROWS="20" COLS="35" WRAP="Off"></TEXTAREA></P>\n        \n        <P><INPUT TYPE="SUBMIT" NAME="manual_update" VALUE="    Batch Add    "></P>\n        </FORM></TD>\n      </TR>\n    </TABLE> </CENTER>\n—;&ab9; &aap; exit; } sub acf{ &ac5; open (DB, "<$lists/lists.db"); if ($LOCK_EX){ flock(DB, $LOCK_EX); } @f121 = <DB>; close (DB); foreach $ed48(@f121) { @hllm = split(/\|/,$ed48); if ($c057{'list_name'} == $hllm[0]) { $boc5 = $hllm[1]; last; } } print "Content-type: text/html\n\n"; &ad0; &ac0; print qq—    <CENTER>\n    <TABLE BORDER="0" WIDTH="400">\n      <TR>\n        <TD ALIGN="CENTER">\n        \n        <P><FONT SIZE="-1" FACE="Arial, Helvetica"><B>Batch Remove of List:\n          $boc5</B></FONT><BR>\n           </P>\n        <TABLE BORDER="0">\n          <TR>\n        <TD><FONT SIZE="-1" FACE="Arial, Helvetica">Make sure <B>not</B> to\n        enter any additional carriage returns or spaces after your last e-mail\n        address. Also verify that each address is in proper e-mail address\n        format. Enter the addresses you wish to have removed, one above the\n        other, separated by a carriage return. Example:<BR>\n        <BR>\n        abc\@abc.com<BR>\n        bbc\@abc.com<BR>\n        ccc\@abc.com</FONT></TD>\n          </TR>\n        </TABLE>\n        <FORM METHOD="POST" ACTION="$dj6h">\n        <INPUT TYPE="HIDDEN" NAME="session_id" VALUE="$c057{'session_id'}">\n        <INPUT TYPE="HIDDEN" NAME="list_name" VALUE="$c057{'list_name'}">\n        <INPUT TYPE="HIDDEN" NAME="listname" VALUE="$boc5">\n        <P><TEXTAREA NAME="new_addresses" ROWS="20" COLS="35" WRAP="Off"></TEXTAREA></P>\n        \n        <P><INPUT TYPE="SUBMIT" NAME="bremove_process" VALUE="    Batch Remove    "></P>\n        </FORM></TD>\n      </TR>\n    </TABLE> </CENTER>\n—;&ab9; &aap; exit; } sub ab6{ &ac5; open (DB, "<$lists/lists.db"); if ($LOCK_EX){ flock(DB, $LOCK_EX); } @f121 = <DB>; close (DB); foreach $ed48(@f121) { @hllm = split(/\|/,$ed48); if ($c057{'list_name'} == $hllm[0]) { $boc5 = $hllm[1]; last; } } undef $/; open (LIST,"<$lists/$c057{'list_name'}.list"); if ($LOCK_EX){ flock(LIST, $LOCK_EX); } $g6cf = <LIST>; close (LIST); $/ = "\n"; print "Content-type: text/html\n\n"; &ad0; &ac0; print qq—    <CENTER>\n    <TABLE BORDER="0" WIDTH="400">\n      <TR>\n        <TD ALIGN="CENTER">\n        \n        <P><FONT SIZE="-1" FACE="Arial, Helvetica"><B>Manual Edit of List:\n          $boc5</B></FONT><BR>\n           </P>\n        <TABLE BORDER="0">\n          <TR>\n            <TD><FONT SIZE="-1" FACE="Arial, Helvetica">Make sure <B>not</B> to enter any additional carriage returns or\n            spaces after your last e-mail address. Also verify that each address\n            is in proper e-mail address format. Improperly formatted e-mail\n            addresses or additional carriage returns/spaces can cause your\n            mailings to fail.<BR><BR><B>Please note</B> that some browsers (some Netscape browsers, for instance) will not properly load all addresses\n            into the screen below, which makes it impossible to properly manually edit your list using this feature.</FONT></TD>\n          </TR>\n        </TABLE>\n        <FORM METHOD="POST" ACTION="$dj6h">\n        <INPUT TYPE="HIDDEN" NAME="session_id" VALUE="$c057{'session_id'}">\n        <INPUT TYPE="HIDDEN" NAME="list_name" VALUE="$c057{'list_name'}">\n        <INPUT TYPE="HIDDEN" NAME="listname" VALUE="$boc5">\n        <P><TEXTAREA NAME="new_addresses" ROWS="20" COLS="35" WRAP="Off">$g6cf</TEXTAREA></P>\n        \n        <P><INPUT TYPE="SUBMIT" NAME="manual_update2" VALUE="    Manual Edit    "></P>\n        </FORM></TD>\n      </TR>\n    </TABLE> </CENTER>\n—;&ab9; &aap; exit; } sub aah{ &ac5; open (READLIST,"<$lists/$c057{'list_name'}.list"); if ($LOCK_EX){ flock(READLIST, $LOCK_EX); } @gd13 = <READLIST>; close(READLIST); print "Content-type: text/html\n\n"; &ad0; &ac0; $ggn8 = $c057{'new_addresses'}; $kk31 = $ggn8; (@k84a) = split(/\n/, $kk31); push(@k84a,@gd13); print qq—<P><FONT SIZE="-1" FACE="Verdana, Arial, Helvetica"><B>If any illegal\naddresses were found, they will appear below.<BR>Illegal addresses are NOT\nadded to your list!:</B></FONT></P>\n—;foreach $hpo6(@k84a) { chomp($hpo6); $hpo6 =~ s/\r//; $hpo6 =~ s/\s//g; unless ($hpo6 =~ /(@.*@)|(\.\.)|(@\.)|(^\.)|(,)|(\/)|(\:)/ || $hpo6 !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$/) { $h504 = 1; $hpo6 =~ tr/A-Z/a-z/; $ekg7 = "$hpo6\n"; push(@j8gf,$ekg7); } else { $h504 = 0; unless($hpo6){ $hpo6 = "Possibe extra carriage return"; } print "<FONT SIZE=\"-1\" FACE=\"Arial, Helvetica\">Illegal address or character - <B>$hpo6</B></FONT><BR>"; } } open (LIST,">$lists/$c057{'list_name'}.list"); if ($LOCK_EX){ flock(LIST, $LOCK_EX); } foreach $k4m3(@j8gf) { $j8gf{$k4m3} = 1; } while ( ($k85c, $dl7m ) = each( %j8gf) ) { $k85c =~ s/\r//; print LIST "$k85c"; } close (LIST); print qq—<P><FONT SIZE="-1" FACE="Arial, Helvetica"><B>List $c057{'listname'} updated</B></FONT></P>\n—;&ab9; &aap; exit; } sub aao{ &ac5; print "Content-type: text/html\n\n"; &ad0; &ac0; $ggn8 = $c057{'new_addresses'}; $kk31 = $ggn8; $ab4k = 0; print "<BR>"; (@k84a) = split(/\n/, $kk31); foreach $hpo6(@k84a) { chomp($hpo6); $hpo6 =~ s/\r//; $hpo6 =~ s/\s//g; chomp($ggn8); open (DAT,"<$lists/$c057{'list_name'}.list"); if ($LOCK_EX){ flock(DAT, $LOCK_EX); } @g6cf = <DAT>; close(DAT); $k1a6 = 0; open (DAT,">$lists/$c057{'list_name'}.list"); if ($LOCK_EX){ flock(DAT, $LOCK_EX); } foreach $ed48(@g6cf) { chomp($ed48); &ab2; if ($e2nm ne $ei6n) { $ab4k = 1; print DAT "$ed48\n"; } else { print qq—<FONT SIZE="-1" FACE="Arial, Helvetica"><B>$ei6n</B>\n<FONT COLOR="#0000FF">found and removed</FONT></FONT><BR>\n—;$ab4k = 0; } } if ($ab4k) { print qq—<FONT SIZE="-1" FACE="Arial, Helvetica"><B>$ei6n</B>\n<FONT COLOR="#FF0000">not found</FONT></FONT><BR>\n—;} } print qq—<P><FONT SIZE="-1" FACE="Arial, Helvetica"><B>List $c057{'listname'} updated</B></FONT></P>\n—;&ab9; &aap; exit; } sub aaj{ $ei6n = $c057{'e'}; $e2nm = $ed48; $e2nm =~ tr/A-Z/a-z/; $ei6n =~ tr/A-Z/a-z/; } sub ab2{ $ei6n = $hpo6; $e2nm = $ed48; $e2nm =~ tr/A-Z/a-z/; $ei6n =~ tr/A-Z/a-z/; } sub abi{ &ac5; print "Content-type: text/html\n\n"; &ad0; &ac0; $ggn8 = $c057{'new_addresses'}; $kk31 = $ggn8; (@k84a) = split(/\n/, $kk31); foreach $hpo6(@k84a) { chomp($hpo6); $hpo6 =~ s/\r//; $hpo6 =~ s/\s//g; unless ($hpo6 =~ /(@.*@)|(\.\.)|(@\.)|(^\.)|(,)|(\/)|(\:)/ || $hpo6 !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$/) { $h504 = 1; &aco; } else { $h504 = 0; unless($hpo6){ $hpo6 = "Possibe extra carriage return"; } print "<FONT SIZE=\"-1\" FACE=\"Arial, Helvetica\">Illegal address or character - <B>$hpo6</B></FONT><BR>"; } } if ($h504 !~ 1) { print qq—    <TABLE BORDER="0" WIDTH="400">\n      <TR>\n        <TD><BR><FONT SIZE="-1" FACE="Arial, Helvetica">The addresse(s) above is/are\n        incorrectly formatted or are duplicates. Please recheck these addresses and press your\n        browser's BACK button or if your browser supports Javascript press the\n        <B><FONT COLOR="#FF0000"> BACK TO LIST EDIT FORM</FONT></B> button\n        below.<BR>\n        </FONT><BR>\n        <CENTER>\n        <FORM><INPUT TYPE="BUTTON" VALUE="BACK TO LIST EDIT FORM" \n        ONCLICK="history.go(-1)"></FORM></CENTER></TD>\n      </TR>\n    </TABLE>\n—;&ab9; &aap; exit; } chomp($ggn8); open (LIST,">$lists/$c057{'list_name'}.list"); if ($LOCK_EX){ flock(LIST, $LOCK_EX); } foreach $hpo6(@k84a) { chomp($hpo6); $hpo6 =~ s/\r//; $hpo6 =~ tr/A-Z/a-z/; print LIST "$hpo6"; print LIST "\n"; } close (LIST); print qq—<P><FONT SIZE="-1" FACE="Arial, Helvetica"><B>List $c057{'listname'} updated</B></FONT></P>\n—;&ab9; &aap; exit; } sub aco{ open (DAT,"$lists/$c057{'list_name'}.list"); if ($LOCK_EX){ flock(DAT, $LOCK_EX); } @g6cf = <DAT>; close(DAT); foreach $ed48(@g6cf) { chomp($ed48); $e2nm = $ed48; $ei6n = $hpo6; $e2nm =~ tr/A-Z/a-z/; $ei6n =~ tr/A-Z/a-z/; if ($e2nm eq $ei6n) { print "<FONT SIZE=\"-1\" FACE=\"Arial, Helvetica\">Address already subscribed - <B>$hpo6</B></FONT><BR>"; $bld5 = 1; } } } sub ab1{ $ffnk = $ENV{'SCRIPT_NAME'}; $ieng = $ENV{'SCRIPT_NAME'}; if ($ieng) { @k1bp =split(/\//,$ieng); $f848 = push(@k1bp); $f848 = $f848 -1; $ieng = $k1bp[$f848]; } $ffnk =~ s/\/$ieng//; } sub abh{ &ac5; open (DB, "<$lists/lists.db"); if ($LOCK_EX){ flock(DB, $LOCK_EX); } @f121 = <DB>; close (DB); foreach $ed48(@f121) { @hllm = split(/\|/,$ed48); if ($c057{'list_name'} == $hllm[0]) { $boc5 = $hllm[1]; last; } } undef $/; open (LIST,"<$lists/$c057{'list_name'}.list"); if ($LOCK_EX){ flock(LIST, $LOCK_EX); } $g6cf = <LIST>; close (LIST); $/ = "\n"; open (LIST,">$lists/$c057{'list_name'}.backup"); print LIST "$g6cf"; close(LIST); print "Content-type: text/html\n\n"; &ad0; &ac0; print qq—<P><FONT SIZE="-1" FACE="Arial, Helvetica"><B>Backup Created as\n$c057{'list_name'}.backup<BR>in your $lists directory</B></FONT></P>\n—;&ab9; &aap; exit; } sub ace{ &ac5; $jdg5 = "0"; unless (($c057{'Ban'}) || ($c057{'Unban'})) { $c057{'l'} = $c057{'list_name'}; } open (DB, "<$lists/lists.db"); if ($LOCK_EX){ flock(DB, $LOCK_EX); } @f121 = <DB>; close (DB); foreach $ed48(@f121) { @b736 = split(/\|/,$ed48); chomp($ed48); if ($b736[0] == $c057{'l'}) { $e09k = $b736[1]; $hcmb = $b736[2]; last; } } if ($c057{'Ban'}) { unless ($jdg5) { print "Content-type: text/html\n\n"; $jdg5 = "1"; } open (DAT,">>$lists/$c057{'l'}.banned") || die print"Permissions Error - Can't open $c057{'l'}.list file."; if ($LOCK_EX){ flock(DAT, $LOCK_EX); } print DAT "$c057{'ban_this'}\n" || die print"Permissions Error - can't write to $c057{'l'}.list file."; close (DAT); } if ($c057{'Unban'}) { unless ($jdg5) { print "Content-type: text/html\n\n"; $jdg5 = "1"; } open (DAT3,"<$lists/$c057{'l'}.banned") || die print"Permissions Error - Can't open $c057{'l'}.list file."; if ($LOCK_EX){ flock(DAT3, $LOCK_EX); } @cgh1 = <DAT3>; close (DAT3); open (REM,">$lists/$c057{'l'}.banned"); if ($LOCK_EX){ flock(REM, $LOCK_EX); } foreach $bb19(@cgh1) { chomp($bb19); $ei6n = $c057{'presently_banned'}; chomp($ei6n); $e2nm = $bb19; $e2nm =~ tr/A-Z/a-z/; $ei6n =~ tr/A-Z/a-z/; if ("$e2nm" eq "$ei6n") { unless ($jdg5) { print "Content-type: text/html\n\n"; $jdg5 = "1"; } $f2a4 = "1"; } else { print REM "$e2nm\n"; } } } close (REM); open (DAT2,"<$lists/$c057{'l'}.banned"); if ($LOCK_EX){ flock(DAT2, $LOCK_EX); } @e9dd = <DAT2>; close (DAT2); unless ($jdg5) { print "Content-type: text/html\n\n"; $jdg5 = "1"; } &ad0; &ac0; print qq—\n    <CENTER>\n    <TABLE BORDER="0" WIDTH="400">\n      <TR>\n        <TD>\n       <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/bnresponse.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n        <FONT SIZE="-1" FACE="Arial, Helvetica">Add or remove addresses or\n        complete domains, that you wish to ban from the <B>$e09k</B>\n        mailing list.</FONT></TD>\n      </TR>\n      <TR>\n        <TD ALIGN="CENTER">\n        <FORM METHOD="POST" ACTION="$dj6h">\n        \n        <P><INPUT TYPE="HIDDEN" NAME="l" VALUE="$b736[0]"><INPUT TYPE="HIDDEN" NAME="session_id" VALUE="$c057{'session_id'}"></P>\n        \n        <P><INPUT TYPE="TEXT" NAME="ban_this"></P>\n        \n        <P><INPUT TYPE="SUBMIT" NAME="Ban" VALUE="Ban" CHECKED="CHECKED"><INPUT TYPE="RESET" NAME="Reset2"></P>\n        </FORM></TD>\n      </TR>\n      <TR>\n        <TD ALIGN="CENTER">\n        <A HREF="javascript:Start('http://www.cgiscriptcenter.com/subscribe/install/bnresponse.shtm')"><FONT FACE="verdana, arial, helvetica" SIZE="-1"><B>?</B></FONT></A>\n         <FONT SIZE="-1" FACE="Arial, Helvetica">The\n        following addresses and/or domains are presently banned from your <B>$e09k</B>\n        mailing list:</FONT></TD>\n      </TR>\n      <TR>\n        <TD ALIGN="CENTER">\n        <FORM METHOD="POST" ACTION="$dj6h">\n        <INPUT TYPE="HIDDEN" NAME="l" VALUE="$b736[0]"><INPUT TYPE="HIDDEN" NAME="session_id" VALUE="$c057{'session_id'}">\n        <P><SELECT NAME="presently_banned" SIZE="6">\n—;foreach $f7b0(@e9dd) { print "<OPTION VALUE=\"$f7b0\">$f7b0</OPTION>\n"; } print qq—          </SELECT></P>\n        \n        <P><INPUT TYPE="SUBMIT" NAME="Unban" VALUE="Unban" CHECKED="CHECKED"><INPUT TYPE="RESET" NAME="Reset1"></P>\n        </FORM></TD>\n      </TR>\n    </TABLE></CENTER>\n—;&ab9; &aap; exit; } sub acg{ open (DAT2,"<$lists/$c057{'list_name'}.banned"); if ($LOCK_EX){ flock(DAT2, $LOCK_EX); } @e9dd = <DAT2>; $e2d4 = @e9dd; close (DAT2); } sub ac6{ open(LOG, ">>$memberinfo/log.txt"); if ($LOCK_EX){ flock(LOG, $LOCK_EX); } while ( ($k85c, $dl7m) = each( %ENV) ) { print LOG "$k85c -- $dl7m <BR>\n"; } print LOG "\n\n"; close(LOG); } sub aal{ open(BAN, ">>$memberinfo/bannedip.txt"); if ($LOCK_EX){ flock(BAN, $LOCK_EX); } print BAN "$ENV{'REMOTE_ADDR'}\n"; close(BAN); } sub ad3{ if (-e "$memberinfo/bannedip.txt") { open(LINKLOG, "<$memberinfo/bannedip.txt") or print "unable to create user userlog file.  Check your directory permission settings"; if ($LOCK_EX){ flock(LINKLOG, $LOCK_EX); } @ckmn = <LINKLOG>; close (LINKLOG); foreach $gk0m(@ckmn) { chomp $gk0m; if ($ENV{'REMOTE_ADDR'} eq "$gk0m") { print "Content-type: text/html\n\n"; print qq—<HTML>\n  \n  <HEAD>\n    <TITLE></TITLE>\n  </HEAD>\n  \n  <BODY>\n    <CENTER>\n    <TABLE BORDER="0" WIDTH="400">\n      <TR>\n        <TD><FONT SIZE="-1" FACE="Verdana, Arial, Helvetica">Your IP address:\n        <B><FONT COLOR="#0000FF">$ENV{'REMOTE_ADDR'}</FONT></B> has been\n        blocked from our Subscribe Me administration panel. Access to our\n        Administration panel is only available for our administrators.<BR>\n        <BR>\n        If you feel you've received this message in error and need assistance,\n        please contact us at: <A HREF="mailto:support\@cgiscriptcenter.com">support\@cgiscriptcenter.com</A></FONT></TD>\n      </TR>\n    </TABLE></CENTER>\n  </BODY>\n</HTML>\n—;exit; } } } } sub ad7{ open (REMOVES,"<$removes/$c057{'l'}.list"); if ($LOCK_EX){ flock(REMOVES, $LOCK_EX); } @ghko = <REMOVES>; close(REMOVES); foreach $ed48(@ghko) { chomp($ed48); &aaj; if ($e2nm eq $ei6n) { $b1e0 = 1; } } } sub aan{ open (REMOVES,"<$removes/$c057{'l'}.list"); if ($LOCK_EX){ flock(REMOVES, $LOCK_EX); } @ghko = <REMOVES>; close(REMOVES); foreach $ed48(@ghko) { chomp($ed48); &aaj; if ($e2nm eq $ei6n) { open (REWRITE,">$removes/$c057{'l'}.list"); if ($LOCK_EX){ flock(REWRITE, $LOCK_EX); } foreach $ed48(@ghko) { chomp($ed48); &aaj; if ($e2nm ne $ei6n) { print REWRITE "$ed48\n"; } } close (REWRITE); $eanj = 1; } } } sub abo{ print "Content-type: text/html\n\n"; print "Administration access denied<BR>"; exit; } sub ach{ undef $/; open (DEFAULTHEADER,"<$lists/$hllm[0].header"); if ($LOCK_EX){ flock(DEFAULTHEADER, $LOCK_EX); } $bj8k = <DEFAULTHEADER>; if ($c057{'headerinfo'}) { $bj8k =~ s/\</\&lt\;/g; $bj8k =~ s/\>/\&gt\;/g; $bj8k =~ s/\r/<BR>/g; } else { $bj8k =~ s/\r//g; } close (DEFAULTHEADER); $/ = "\n"; undef $/; open (DEFAULTFOOTER,"<$lists/$hllm[0].footer"); if ($LOCK_EX){ flock(DEFAULTFOOTER, $LOCK_EX); } $cgp5 = <DEFAULTFOOTER>; if ($c057{'headerinfo'}) { $cgp5 =~ s/\</\&lt\;/g; $cgp5 =~ s/\>/\&gt\;/g; $cgp5 =~ s/\r/<BR>/g; } else { $cgp5 =~ s/\r//g; } close (DEFAULTFOOTER); $/ = "\n"; } sub aca{ my $g6j6 = $_[0]; my $gg8j = time + 5; if (-e "$tempdir/$g6j6.lock") { open (LOCK,"<$tempdir/$g6j6.lock"); my $cd06 = <LOCK>; close (LOCK); chomp ($cd06); if ($cd06 < (time - 10)) { unlink ("$tempdir/$g6j6.lock"); } } while (-e "$tempdir/$g6j6.lock" && time < $gg8j) { sleep(1); } if (-e "$tempdir/$g6j6.lock") { unless ($hlj1) { print "Content-type: text/html\n\n"; $hlj1 = 1; } unless ($j81f) { &ab7; } print qq—\n    <CENTER>\n    <TABLE WIDTH="400" BORDER="0">\n      <TR>\n        <TD>\n        <P><B><FONT FACE="verdana, arial, helvetica"><FONT COLOR="#FF0000">Subscribe\n        Me</FONT> Status: Multiple Submissions Detected!</FONT></B></P>\n\n\n       <P><FONT SIZE="-1" FACE="Verdana, Arial, Helvetica">Multiple submissions\n        were detected. This sometimes occurs if you press the "SUBSCRIBE" button\n        more than once, or that your browser was refreshed while waiting for a response.<BR><BR>\n        Please check your e-mail for the results of your\n        submission</FONT></P></TD>\n      </TR>\n    </TABLE></CENTER>\n—;&ab8; exit; } else { open (LOCKFILE, ">$tempdir/$g6j6.lock"); print LOCKFILE time; close (LOCKFILE); } } sub acc{ my $g6j6 = shift; unlink ("$tempdir/$g6j6.lock"); }