#!c:\perl\bin\perl.exe # Links, Home, Login Works use Cwd; # get current directory and find out which system U are running on my $dir = getcwd; #Use the current path to include cgi-bin to your lib search push @INC , $dir; push @INC,'../cgi-bin'; # for godaddy cgi-bin in root! # print ("Content-type:text/html\n\n\n\n GMI Print N Die Current Dir: @INC
"); die; require 'GM-Lib.pl'; my $InParms='',$ErrMs; use CGI; $cgi= new CGI; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time); use Fcntl ':flock'; # import LOCK_* constants $mon++; $year+=1900; #!/usr/local/bin/perl $Body = $cgi->param('Body') ; $xBody =$Body ; $Body=~ s/\~/?/g; $Body=~ s/\/&/g; $Body=~ s/\*/&/g; $Body=~ s/\!/=/g; #$Body=~ / Body=$Body * ,
") ; $Body="/cgi-bin/GM-WbDis.pl" if !$Body; # PrintNdie( "B=$Body b= $body"); PrintGmFrame(); # end # sub PrintGmFrame { print <<"HTML-GOMONITOR1"; Content-type:text/html\n\n GoMonitor-Main Toronto. Canada's 1st in Car Camera, Digivue,GeoVision,Axis,Video,surveillance,internet,daycare,Toronto,Ontario, Canada, Digital Arbitration Systems <body topmargin="0" leftmargin="0" onload="setInterval('blinkIt()',500)"> <script type="text/javascript"> function blinkIt() { if (!document.all) return; else { for(i=0;i<document.all.tags('blink').length;i++){ s=document.all.tags('blink')[i]; s.style.visibility=(s.style.visibility=='visible')?'hidden':'visible'; } } } </script> > <script type="text/javascript"> var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." : "http://www."); document.write(unescape("%3Cscript src='" + gaJsHost + "google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E")); </script> <script type="text/javascript"> var pageTracker = _gat._getTracker("UA-4057459-1"); pageTracker._initData(); pageTracker._trackPageview(); </script> </body> HTML-GOMONITOR1 exit };