\nThe path/file $c057{'perlpath'} does not exist. Please verify that you have uploaded this file and that it is in the directory that you specified.
\n—;&ae9; print TEMP2 "1\;"; exit; } else { print TEMP2 "#!$c057{'perlpath'}\n\n"; print TEMP2 "\$perlpath = \"$c057{'perlpath'}\"\;\n"; } print TEMP2 "\$passfile = \"$information/pass\";\n"; print TEMP2 "\$memberinfo = \"$information/info\";\n"; print TEMP2 "\$trackdir = \"$information/trackdir\";\n"; print TEMP2 "\$tempdir = \"$information/tempdir\";\n"; print TEMP2 "\$maildir = \"$information/maildir\";\n"; print TEMP2 "\$lists = \"$information/lists\";\n"; print TEMP2 "\$bounces = \"$information/bounces\";\n"; print TEMP2 "\$removes = \"$information/removes\";\n"; print TEMP2 "\$graphics = \"$information/graphics\";\n"; unless ($c057{'mailusing'} eq 'sockets') { unless ($c057{'mailprog'}) { &ae6; &ade; &ae7; print qq—Variable #5\nEnter a Mail Program Directory Path.\n\n—;&ae8; print qq—
\nWhen using either Sendmail or BLAT mailing, you must specify a directory\npath to the mail program. Contact your server administrator if you are unsure\nof that path.
\n\n—;&ae9; exit; } if (!(-e "$c057{'mailprog'}")) { &ae6; &ade; &ae7; print qq—Variable #5\nInvalid Mail Program Directory.\n—;&ae8; print qq—
\nThe Mail Program path you gave in variable #5: $c057{'mailprog'} does not exist. Contact your server administrator if you are unsure of the path to your Mail Program (like Sendmail) path.
\n—;&ae9; exit; } else { print TEMP2 "\$mailprog = \"$c057{'mailprog'}\"\;\n"; } } if ($c057{'LOCK_EX'} == 2) { print TEMP2 "\$LOCK_EX = \"$c057{'LOCK_EX'}\"\;\n"; } else { print TEMP2 "\$LOCK_EX = \"\"\;\n"; } $i2hc = (length($c057{'websiteurl'})); if ($i2hc > 7) { print TEMP2 "\$websiteurl = \"$c057{'websiteurl'}\"\;\n"; } else { &ae6; &ade; &ae7; print qq—Variable #6\nNo Website URL Given.\n—;&ae8; print qq—
\nPlease place your website URL path in variable #6. Your URL path should appear similar to: http://www.yourserver.com.
\n—;&ae9; exit; } print TEMP2 "\$os = \"$c057{'os'}\"\;\n"; print TEMP2 "\$mailusing = \"$c057{'mailusing'}\"\;\n"; print TEMP2 "\$smtp_addr = \"$c057{'smtp_addr'}\"\;\n"; print TEMP2 "\$cgipath = \"$c057{'cgipath'}\"\;\n"; print TEMP2 "\$extension = \"$c057{'extension'}\"\;\n"; print TEMP2 "\$information = \"$c057{'information'}\"\;\n"; print TEMP2 "\$notification = \"$c057{'notification'}\"\;\n"; print TEMP2 "\$username = \"$c057{'br_username'}\"\;\n"; print TEMP2 "\$config_session = \"$c057{'session'}\"\;\n"; print TEMP2 "\$admin_access = \"$c057{'admin_access'}\"\;\n"; print TEMP2 "\$permissions = \"$c057{'permissions'}\"\;\n\n"; if (!(-e "$information")) { mkdir("$information",$permissions) || die &adi; chmod ($permissions,"$information") || die &adi; sub adi{ $b847 = "$information"; &adn; } } else { } if (!(-e "$information/info")) { mkdir("$information/info",$permissions) || die &adk; chmod ($permissions,"$information/info") || die &adk; sub adk{ $b847 = "$information/info"; &adn; } } else { chmod ($permissions,"$information/info") || die &adk; } if (!(-e "$information/trackdir")) { mkdir("$information/trackdir",$permissions) || die &adm; chmod ($permissions,"$information/trackdir")|| die &adm; sub adm{ $b847 = "$information/trackdir"; &adn; } } else { chmod ($permissions,"$information/trackdir")|| die &adm; } if (!(-e "$information/maildir")) { mkdir("$information/maildir",$permissions) || die &ado; chmod ($permissions,"$information/maildir")|| die &ado; sub ado{ $b847 = "$information/maildir"; &adn; } } else { chmod ($permissions,"$information/maildir")|| die &ado; } if (!(-e "$information/graphics")) { mkdir("$information/graphics",$permissions) || die &adp; chmod ($permissions,"$information/graphics")|| die &adp; sub adp{ $b847 = "$information/graphics"; &adn; } } else { chmod ($permissions,"$information/graphics")|| die &adp; } if (!(-e "$information/lists")) { mkdir("$information/lists",$permissions) || die &ae2; chmod ($permissions,"$information/lists")|| die &ae2; sub ae2{ $b847 = "$information/lists"; &adn; } } else { chmod ($permissions,"$information/lists")|| die &ae2; } if (!(-e "$information/lists/.htaccess")) { open(HTACCESS,">$information/lists/.htaccess"); print HTACCESS qq—\n—;if (-e "$information/info") { print "$information/info
"; } if (-e "$information/pass") { print "$information/pass
"; } } print TEMP2 "\$ready = \"1\"\;\n\n"; print TEMP2 "1\;"; close (TEMP2); opendir (DIR, "$cgipath"); @e5gn = grep { /.gif/} readdir(DIR); close (DIR); foreach $k2l4(@e5gn) { open (GRAPHICS,"<$cgipath/$k2l4") || print "Error: $!"; @akof =
- &e=
- &e=
Version $fnl8
| \n\n—;} sub ae7{ print qq— | ||
|
Once you have changed the permission on this directory to 777, press the CONTINUE BUTTON below.
Subscribe Me\n $fnl8 - Enterprise Edition Update Successful!
\n| \n | \n\n—;$g5cg = $ENV{'SCRIPT_NAME'}; $g5cg =~ s/setup\.cgi$/s\.cgi/; $g5cg =~ s/setup\.pl$/s\.pl/; print qq— | \n
"; exit; } unless ($c057{'pwd'} && $c057{'pwd2'}) { unless ($kf8a) { print "Content-type: text/html\n\n"; } $kf8a = 1; &ad0; &ac1; print qq—\n \n—;&abb; &aap; exit; } unless ($kf8a) { print "Content-type: text/html\n\n"; } $kf8a = 1; if ($c057{'pwd'} && $c057{'pwd2'}) { if ($c057{'pwd'} ne $c057{'pwd2'}) { &ad0; &ac1; print qq—\n\n \n\n—;&abb; &aap; exit; } } chop ($gbjh) if ($gbjh =~ /\n$/); $h4pj = crypt($c057{'pwd'}, aa); open (PASSWORD, ">$passfile/password.txt")|| die print "Unable to create $passfile/password.txt file. Check your directory permissions"; if ($LOCK_EX){ flock(PASSWORD, $LOCK_EX); } print PASSWORD "$h4pj"; close (PASSWORD); unless ($kf8a) { print "Content-type: text/html\n\n"; } $kf8a = 1; &ad0; &ac1; print qq—
Subscribe Me\n $fnl8 - Enterprise Edition Update Successful!
\n| \n | \n\n—;$g5cg = $ENV{'SCRIPT_NAME'}; $g5cg =~ s/setup\.cgi$/s\.cgi/; $g5cg =~ s/setup\.pl$/s\.pl/; print qq— | \n
Subscribe Me $fnl8 - Enterprise Edition Update Successful!
 Version $fnl8 | CGI Script Center Install-a-Script PROGRAM: Subscribe Me! $fnl8 - Enterprise Edition |
Your update was successful! | |
\n—;$g5cg = $ENV{'SCRIPT_NAME'}; $g5cg =~ s/setup\.cgi$/s\.cgi/; $g5cg =~ s/setup\.pl$/s\.pl/; print qq— | |
| Version Information | \n||
\n
| \n
\n
| News Updates | \n
| \n | \n
\n—;&abb; &aap; exit; } else { print "Content-type: text/html\n\n"; &ad0; &ac1; print qq—\n \n—;&abb; &aap; exit; } } sub ac9{ open (PASSWORD, "$passfile/password.txt"); if ($LOCK_EX){ flock(PASSWORD, $LOCK_EX); } $agdf =
Please enter your password!
| Maintained with Subscribe Me $fnl8 - Enterprise Edition |
Incorrect password! Please enter the correct password.
| Maintained with Subscribe Me $fnl8 - Enterprise Edition |