view release on metacpan or  search on metacpan

demos/client/SNlib.pl  view on Meta::CPAN

$SNlibversion = 84;
$antipopupstr = "<SCRIPT LANGUAGE=\"JavaScript\">parent.name = 'test';</SCRIPT><script language=\"JavaScript\">document.write(\"<no\" + \"script>\")</script>\n";
$eol          = "\x0D\x0A"; # "\r\n";
@rndletters = ("q","w","e","r","t","y","u","i","o","p","a","s","d","f","g","h","j","k","l","z","x","c","v","b","n","m");
$thisurl          = change_spec_labels("###THISURL###");
$thisshorturl     = change_spec_labels("###THISURL_WITHOUT_SCRIPT_NAME###");

$thisshorturl=~ m|^([^\s\?]+)(/{1}?)|i;
$rooturlforhtmdir=$1;
$logfile 	  = "common.log";
$proxyfile        = "proxy.txt";

demos/client/SNlib.pl  view on Meta::CPAN

sub change_spec_labels {
    local($ll)= @_ ;

    $serverport = defined($ENV{'SERVER_PORT'}) ? $ENV{'SERVER_PORT'} : -1;
    $portst = $serverport==80  ?  ''   :  ':' . $serverport;
    $thisurl= join('','http://',defined($ENV{'SERVER_NAME'}) ? $ENV{'SERVER_NAME'} : '',$portst,defined($ENV{'SCRIPT_NAME'}) ? $ENV{'SCRIPT_NAME'} : '');

    $thisurl=~ m|^([^\s\?]+)(/{1}?)|i;
    $thisshorturl=$1;

    $ll =~ s|###ANTIPOPUPSTRING###|$antipopupstr|igm;
    $ll =~ s|###RANDOM:([0-9]+)-([0-9]+)###|$1+(int rand($2-$1+1))|igme;
    
    $ll =~ s|###BASEOFPAGEHERE###|defined($baseofpage) ? $baseofpage : ''|igme;
    $ll =~ s|###RANDOM1###|defined($random1) ? $random1 : ''|igme;
	
    $ll =~ s|###THISURL###|$thisurl|igm;
    $ll =~ s|###THISURL_WITHOUT_SCRIPT_NAME###|$thisshorturl|igm;

    $ll =~ s|###SCRIPTNAME###|defined($SCRIPTNAME) ? $SCRIPTNAME : ''|igme;
    $ll =~ s|###DIRNAME###|defined($directory) ? $directory : ''|igme;

demos/client/SNlib.pl  view on Meta::CPAN

    else
	{
	print "Goto http://sex.tapor.com to view best video sex on the net!\n\n";
	}
}
##############################################################################
sub bhprintHTMLfooter {
    if(!isrunninglocaly())
	{
	print "</body></html>\n";
	print "$antipopupstr\n";
	}
}
##############################################################################
sub isrunninglocaly {

    local($method) = defined($ENV{'REQUEST_METHOD'}) ? $ENV{'REQUEST_METHOD'} : 'LOCAL';
    if ($method eq 'GET' || $method eq 'POST') 
	{
        return 0;
	}