moviestar - BuzzerProxy - src - googleproxy - SOURCE CODE

#!/usr/bin/perl -IGoogleProxy

use lib "GoogleProxy";
use strict;
# use warnings;

BEGIN{
	push @INC, "C:\\Users\\Enger\\Documents\\NetBeansProjects\\BuzzerProxy\\src\\googleproxy\\GoogelProxy";
	push @INC, "GoogleProxy";
}

#########################################
##### Author:		Sebastian Enger / B.Sc
##### CopyRight:	Buzzer
##### LastModified	26.1.2008
##### Function:		Hauptdatei f�r GoogleProxy
##### Todo:		for statt foreach: ist schneller
##### Hint:		minimum StringLength of one Result is about 70 Chars long
########################################

# root: -20 <> 20 | normal: 0 <> 20
my $ServicePriority = "-1";				
# system("renice $ServicePriority $$");

use Socket;
use IO::Select;
use Fcntl ':flock';

use LWP::UserAgent;			# perl -MCPAN -e 'force install "LWP::UserAgent"'	
use HTTP::Cookies;				# perl -MCPAN -e 'force install "HTTP::Cookies"'
use HTTP::Request;				# perl -MCPAN -e 'force install "HTTP::Request"'
use GoogleProxy::Daemon;
use GoogleProxy::IO;
use Google::Search;


use constant VERSION		=> "'GoogleProxy -v1.0.0a- 17.07.2011 @ 13.50 Uhr'";
use constant PIDFILE		=> "googleproxy-pid.txt"; unlink PIDFILE;

my $DONE					= 0;
my ($ServerIPAdress)		= `LANG=US_us ifconfig eth0`=~/inet addr:([\d.]+)/;
$ServerIPAdress				= "127.0.0.1";
my $port					= 65000;
#my $Socket					= GoogleProxy::IO->CreateHandyDistributedSocket( $ServerIPAdress, $port );
#$Socket->autoflush(0);
#&init_server(PIDFILE);	# Server als Deamon starten

#my $ReadFromClient 			= GoogleProxy::IO->readSocket($Socket);
#my ( $page, $searchquery, $filetype ) = split("###", $ReadFromClient);


... [truncated, 14 more lines] ...

#!/usr/bin/perl -IGoogleProxy

use lib "GoogleProxy";
use strict;
# use warnings;

BEGIN{
	push @INC, "C:\\Users\\Enger\\Documents\\NetBeansProjects\\BuzzerProxy\\src\\googleproxy\\GoogelProxy";
	push @INC, "GoogleProxy";
}

#########################################
##### Author:		Sebastian Enger / B.Sc
##### CopyRight:	Buzzer
##### LastModified	26.1.2008
##### Function:		Hauptdatei fr GoogleProxy
##### Todo:			for statt foreach: ist schneller
##### Hint:			minimum StringLength of one Result is about 70 Chars long
########################################

# root: -20 <> 20 | normal: 0 <> 20
my $ServicePriority = "-1";				
# system("renice $ServicePriority $$");

use Socket;
use IO::Select;
use Fcntl ':flock';

use LWP::UserAgent;			# perl -MCPAN -e 'force install "LWP::UserAgent"'	
use HTTP::Cookies;				# perl -MCPAN -e 'force install "HTTP::Cookies"'
use HTTP::Request;				# perl -MCPAN -e 'force install "HTTP::Request"'

use constant VERSION		=> "'GoogleProxy -v1.0.0a- 17.07.2011 @ 13.50 Uhr'";
use constant PIDFILE		=> "googleproxy-pid.txt"; unlink PIDFILE;

my $url = "http://www.google.com/search?hl=en&lr=&q=intitle:\"index of\" +\"last modified\" +\"parent directory\" +description +size+(.png)+Volvagia&btnG=Search";


# create UserAgent object
my $ua = LWP::UserAgent->new();
 
# set a user agent (browser-id)
$ua->agent('Mozilla/5.5 (compatible; MSIE 5.5; Windows NT 5.1)');
 
# timeout:
$ua->timeout(15);
 
# proceed the request:
my $request = HTTP::Request->new('GET');
$request->url($url);

... [truncated, 15 more lines] ...

use Net::Telnet; 
$xml = "
<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"yes\" ?>
<search>
	<searchservice>find</searchservice>
	<searchquery>Madonna</searchquery>
	<filetyp>(.mp3|.wav|.flac)</filetyp>
	<page>1</page>
	<clientversion>1.0.1</clientversion>
	<clientid>3434343434343434343434343434</clientid>
</search>
</xml>
";  
$telnet = new Net::Telnet ( Timeout=>10, Errmode=>'die'); 
$telnet->open('localhost'); 
$telnet->print($xml);
































use IO::Socket;
 

... [truncated, 25 more lines] ...