%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /home/rappan/www/_cgi_mail/
Upload File :
Create Path :
Current File : //home/rappan/www/_cgi_mail/include.cgi

#!/usr/local/bin/perl

if($ENV{'QUERY_STRING'}){
	$config = 'commons/' . $ENV{'QUERY_STRING'} . '.cgi';
	if(!(-f $config)){
		$config = 'commons/config.cgi';
	}
}
else {
	$config = 'commons/config.cgi';
}

use Jcode;
require $config;
require 'commons/functions.cgi';

*getCookieData = GetCookie();
$pv = $getCookieData{'pv'} + 1;

$script = &loadhtml("commons/mailform.js");
if($pv == 1){
	flock(FH, LOCK_EX);
		open(FH,$config{"conversion_file"});
			$serial = <FH>;
		close(FH);
	flock(FH, LOCK_NB);
	$serial++;
	flock(FH, LOCK_EX);
		open(FH,">".$config{"conversion_file"});
			print FH $serial;
		close(FH);
	flock(FH, LOCK_NB);
}
print "Pragma: no-cache\n";
print "Cache-Control: no-cache\n";
print "Content-type: text/plain; charset=UTF-8\n";
print "Set-Cookie: scriptType=perl&pv=${pv}&application=mailform;\n\n";
print $script;
exit;
sub loadhtml{
	my($url) = @_;
	flock(FH, LOCK_EX);
		open(FH,"$url");
			@html = <FH>;
		close(FH);
	flock(FH, LOCK_NB);
	$html = join("",@html);
	return $html;
}

Zerion Mini Shell 1.0