view release on metacpan or  search on metacpan

lib/Net/WWD/Functions.pm  view on Meta::CPAN

our @ISA = qw(Exporter);
our %EXPORT_TAGS = ( 'all' => [ qw(stripPerl) ] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = qw(stripPerl);
our $VERSION = '1.00';

use XML::LibXML;
use HTTP::Headers;
use HTTP::Request;
use LWP::UserAgent;

my $XMLparser = XML::LibXML->new();
my $header = HTTP::Headers->new('content-type' => 'text/html');
my $ua = LWP::UserAgent->new;

sub localhost { return $ENV{'SERVER_NAME'}; }
sub localdomain { return splitdomain($ENV{'SERVER_NAME'}); }

sub splitdomain {
	my $domain = shift;
	my $suffix = "";
	$domain = reverse $domain;
	if($domain =~ /\./) {
		$suffix = $` . ".";
		$domain = $';
	} else { return ""; }
	if($domain =~ /^..\./) {
		$suffix .= $&;
		$domain = $';
	}
	if($domain =~ /\./) { $domain = $`; }
	return (reverse $domain) . (reverse $suffix);
}

sub stripPerl {
	my $code = shift;

        $code =~ s/localhost\(/Net\:\:WWD\:\:Functions\:\:localhost\(/g;
        $code =~ s/localdomain\(/Net\:\:WWD\:\:Functions\:\:localdomain\(/g;
        $code =~ s/getTag\(/Net\:\:WWD\:\:Functions\:\:getTag\(/g;
        $code =~ s/webget\(/Net\:\:WWD\:\:Functions\:\:webget\(/g;
        $code =~ s/currentURL\(/Net\:\:WWD\:\:Functions\:\:currentURL\(/g;
        $code =~ s/getData\(/Net\:\:WWD\:\:Functions\:\:getData\(/g;
        $code =~ s/storeData\(/Net\:\:WWD\:\:Functions\:\:storeData\(/g;
        $code =~ s/parseXML\(/Net\:\:WWD\:\:Functions\:\:parseXML\(/g;
        $code =~ s/\$param/DPERLPARAM/g;
        $code =~ s/\$ENV/DPERLENV/g;
        $code =~ s/\$\`/DPERLMPRE/g;
        $code =~ s/\$\'/DPERLMPOST/g;
	$code =~ s/\s+\(/\(/g;
	$code =~ s/\`//g;
	$code =~ s/\@/\@WWD/g;
	$code =~ s/\$/\$WWD/g;
#	$code =~ s/\&//g;
	$code =~ s/\%//g;
	$code =~ s/accept\(//g;
	$code =~ s/bind\(//g;
	$code =~ s/binmode\(//g;
	$code =~ s/chdir\(//g;
	$code =~ s/chmod\(//g;
	$code =~ s/chown\(//g;
	$code =~ s/chroot\(//g;
	$code =~ s/close\(//g;
	$code =~ s/closedir\(//g;
	$code =~ s/connect\(//g;
	$code =~ s/dbmclose\(//g;
	$code =~ s/dbmopen\(//g;
	$code =~ s/die\(//g;
	$code =~ s/dump\(//g;
	$code =~ s/endgrent\(//g;
	$code =~ s/endhostent\(//g;
	$code =~ s/endnetent\(//g;
	$code =~ s/endprotoent\(//g;
	$code =~ s/endpwent\(//g;
	$code =~ s/endservent\(//g;
	$code =~ s/eof\(//g;
	$code =~ s/eval\(//g;
	$code =~ s/exit\(//g;
	$code =~ s/fcntl\(//g;
	$code =~ s/fileno\(//g;
	$code =~ s/flock\(//g;
	$code =~ s/fork\(//g;
	$code =~ s/format\(//g;
	$code =~ s/getc\(//g;
	$code =~ s/getgrent\(//g;
	$code =~ s/getgrgid\(//g;
	$code =~ s/getgrnam\(//g;
	$code =~ s/gethostbyaddr\(//g;
	$code =~ s/gethostbyname\(//g;
	$code =~ s/gethostent\(//g;
	$code =~ s/getlogin\(//g;
	$code =~ s/getnetbyaddr\(//g;
	$code =~ s/getnetent\(//g;
	$code =~ s/getnetbyname\(//g;
	$code =~ s/getprotobyname\(//g;
	$code =~ s/getprotobynumber\(//g;
	$code =~ s/getprotoent\(//g;
	$code =~ s/getpwent\(//g;
	$code =~ s/getpwnam\(//g;
	$code =~ s/getpwuid\(//g;
	$code =~ s/getservbyname\(//g;
	$code =~ s/getservbyport\(//g;
	$code =~ s/getservent\(//g;
	$code =~ s/glob\(//g;
	$code =~ s/import\(//g;
	$code =~ s/ioctl\(//g;
	$code =~ s/kill\(//g;
	$code =~ s/link\(//g;
	$code =~ s/listen\(//g;
	$code =~ s/lstat\(//g;
	$code =~ s/mkdir\(//g;
	$code =~ s/open\(//g;
	$code =~ s/opendir\(//g;
	$code =~ s/printf\(//g;
	$code =~ s/read\(//g;
	$code =~ s/readdir\(//g;
	$code =~ s/readlink\(//g;
	$code =~ s/recv\(//g;
	$code =~ s/rename\(//g;
	$code =~ s/require\(//g;
	$code =~ s/reset\(//g;