bitjoe - MutellaProxy - Contrib - SOURCE CODE

#!/usr/bin/perl	-I/server/mutella/MutellaProxy

#########################################
##### Author:		Sebastian Enger / B.Sc
##### CopyRight:	BitJoe GmbH
##### LastModified	26.07.2006
##### Function:		Installiere automatisch ultrapeers zum Mutella
##### Todo:			
########################################


use MutellaProxy::Ultrapeers;
use MutellaProxy::Parser;
use MutellaProxy::IO;

while(1){
	eval {

		# MutellaProxy::Ultrapeers->GetAndInstallUltraPeerHostListFromGwebCache();
		MutellaProxy::Ultrapeers->GetAndInstallUltraPeerHostList();
		# MutellaProxy::Ultrapeers->InstallKnowHostsFromFile();
		# my $MutellaSocket = MutellaProxy::IO->CreateMutellaSocket();
		# MutellaProxy::Parser->CheckSharingRatio($MutellaSocket);
		close $MutellaSocket;
	};

	sleep 100;
};

#!/usr/bin/perl	-I/server/mutella/MutellaProxy

#########################################
##### Author:		Sebastian Enger / B.Sc
##### CopyRight:	BitJoe GmbH
##### LastModified	26.07.2006
##### Function:		Teste, ob alle Programm richtig laufen, sonst Fehleremail
##### Todo:			
########################################

use MutellaProxy::Mail;
use MutellaProxy::Time;
use strict;


$SIG{CHLD} = sub { wait };

my $pid;

my %ToCheckProgramms = (
	"AddUltraPeer"			=> "/usr/bin/perl /server/mutella/AddUltraPeers.pl",
	"MutellaProxy"			=> "/usr/bin/perl /server/mutella/MutellaProxy.pl",
	"mutella-0.4.6"			=> "/server/mutella/mutella-0.4.6-bin --config=/server/mutella/.mutellarc",
	"DeleteOldEntries.pl"	=> "/usr/bin/perl /server/mutella/DeleteOldEntries.pl",
);


while(1){
	CheckAndRestart();
	sleep 60;	# fr firmenversion dann auf 5 sec stellen!!!
};


sub CheckAndRestart(){

	while ( my ($prog, $startpath) = each(%ToCheckProgramms) ) {
	
		my @ps1		= `ps aux`;

		my @found1	= grep { /$prog/i } @ps1;
		my @c1		= split("\n", @ps1 );

		# print $#found1; # error if -1

		if ( $#found1 == -1 ) {
		
			print MutellaProxy::Time->MySQLDateTime() . "ERROR: Programm $prog luft nicht!\n";

			my $MailConfig = {
				'TO1'		=> 'thecerial@gmail.com',

... [truncated, 29 more lines] ...

#!/usr/bin/perl	-I/root/.mutella/MutellaProxy

#########################################
##### Author:		Sebastian Enger / B.Sc
##### CopyRight:	BitJoe GmbH
##### LastModified	27.07.2006
##### Function:		Parsing von Daten
##### Todo:			
########################################

use MutellaProxy::Parser;
use MutellaProxy::IO;

my $MutellaSocket = MutellaProxy::IO->CreateMutellaSocket();
MutellaProxy::Parser->CheckSharingRatio($MutellaSocket);

#!/usr/bin/perl	-I/server/mutella/MutellaProxy

#########################################
##### Author:		Sebastian Enger / B.Sc
##### CopyRight:	BitJoe GmbH
##### LastModified	4.08.2006
##### Function:		Lsche zu alte Suchanfragen aus dem Mutella
##### Todo:			
########################################


use MutellaProxy::ResultCleaner;

# MutellaProxy::ResultCleaner->DeleteEntryRange();
MutellaProxy::ResultCleaner->DeleteOldEntries();

#!/usr/bin/perl	-I/server/mutella/MutellaProxy

#########################################
##### Author:		Sebastian Enger / B.Sc
##### CopyRight:	BitJoe GmbH
##### LastModified	4.08.2006
##### Function:		Lsche zu alte Suchanfragen aus dem Mutella
##### Todo:			
########################################


use MutellaProxy::ResultCleaner;

MutellaProxy::ResultCleaner->DeleteEntryRange();
# MutellaProxy::ResultCleaner->DeleteOldEntries();

#!/usr/bin/perl	-I/server/mutella/MutellaProxy

#########################################
##### Author:		Sebastian Enger / B.Sc
##### CopyRight:	BitJoe GmbH
##### LastModified	11.07.2006
##### Function:		Lizenzen generieren
##### Todo:			
########################################

use MutellaProxy::LicenceGenerator;
use MutellaProxy::LicenceTransfer;


# MutellaProxy::LicenceGenerator->AddLicenceToSQL();
MutellaProxy::LicenceTransfer->TestInstalledLicence();

#!/usr/bin/perl -I/server/mutella/MutellaProxy

#!!!!!!!!!! hinweise: $IO->writeSocket( $HandyClientSocket, GzipString("FC 908") . CRLF ); 
# gibt eventuell fehler beim auslesen

#########################################
##### Author:		Sebastian Enger / B.Sc
##### CopyRight:	BitJoe GmbH
##### LastModified	13.07.2006
##### Function:		Hauptdatei fr MutellaProxy
##### Todo:			for statt foreach: ist schneller
##### MileStones:	IPBlocker.pm->IPBlocker() funktioniert
#####				Status.pm->readStatus() funktioniert
#####				SortRank.pm->SortRank() funktioniert
########################################

# Mail.pm ->SendMail funktioniert erstmal nicht, habe gleich am anfang der funktion ein return 1; gesetzt
# add ultrapeer anpassen!  /server/wwwroot/gwebcache/data da liegen die gwebcaches drinne
# bestimmung der dateiendung funzt nich nicht richtig: bei suche nach "test jpeg" wird auch "adsfadsf.jpeg.jpg" gefunden


# perl -MCPAN -e 'install "Crypt::Rijndael"'
# perl -MCPAN -e 'install "Crypt::CBC"'
# perl -MCPAN -e 'install "LWP::Simple"'
# perl -MCPAN -e 'install "String::Approx"' 
# perl -MCPAN -e 'install "Net::SCP::Expect"' 
# perl -MCPAN -e 'install "MIME::Lite"' 
# perl -MCPAN -e 'install "Sort::Array"' 
# perl -MCPAN -e 'install "File::Basename"' 
# perl -MCPAN -e 'install "Net::Nslookup"' 
# perl -MCPAN -e 'install "Digest::MD4"' 
# perl -MCPAN -e 'install "Digest::MD5"'
# perl -MCPAN -e 'install "IO::Socket::SSL"'
# perl -MCPAN -e 'install "CPAN"'
# perl -MCPAN -e 'install "Scalar::Util"'
# perl -MCPAN -e 'install "Net::SSLeay"'
# perl -MCPAN -e 'install "Crypt::SSLeay"'
# perl -MCPAN -e 'install "Crypt::IDEA"'
# perl -MCPAN -e 'install "Digest::SHA"'
# perl -MCPAN -e 'install "Crypt::RSA"'
# perl -MCPAN -e 'install "Crypt::Blowfish"'
# perl -MCPAN -e 'install "Crypt::GPG"'
# perl -MCPAN -e 'install "XML::Parser"'
# perl -MCPAN -e 'install "XMLRPC::Lite"'
# perl -MCPAN -e 'force install "IO::Compress::Gzip"'

##########
#### Merke: $FileTypeHashRef->{ 0 } = FORMATBILD|FORMATMP3 usw
#### Merke: $FileTypeHashRef->{ 1 } = 'jpg|mp3' usw
##########

... [truncated, 624 more lines] ...

#!/usr/bin/perl -I/server/mutella/MutellaProxy

#!!!!!!!!!! hinweise: $IO->writeSocket( $HandyClientSocket, GzipString("FC 908") . CRLF ); 
# gibt eventuell fehler beim auslesen

#########################################
##### Author:		Sebastian Enger / B.Sc
##### CopyRight:	BitJoe GmbH
##### LastModified	13.07.2006
##### Function:		Hauptdatei fr MutellaProxy
##### Todo:			for statt foreach: ist schneller
##### MileStones:	IPBlocker.pm->IPBlocker() funktioniert
#####				Status.pm->readStatus() funktioniert
#####				SortRank.pm->SortRank() funktioniert
########################################

# Mail.pm ->SendMail funktioniert erstmal nicht, habe gleich am anfang der funktion ein return 1; gesetzt
# add ultrapeer anpassen!  /server/wwwroot/gwebcache/data da liegen die gwebcaches drinne
# bestimmung der dateiendung funzt nich nicht richtig: bei suche nach "test jpeg" wird auch "adsfadsf.jpeg.jpg" gefunden


# perl -MCPAN -e 'install "Crypt::Rijndael"'
# perl -MCPAN -e 'install "Crypt::CBC"'
# perl -MCPAN -e 'install "LWP::Simple"'
# perl -MCPAN -e 'install "String::Approx"' 
# perl -MCPAN -e 'install "Net::SCP::Expect"' 
# perl -MCPAN -e 'install "MIME::Lite"' 
# perl -MCPAN -e 'install "Sort::Array"' 
# perl -MCPAN -e 'install "File::Basename"' 
# perl -MCPAN -e 'install "Net::Nslookup"' 
# perl -MCPAN -e 'install "Digest::MD4"' 
# perl -MCPAN -e 'install "Digest::MD5"'
# perl -MCPAN -e 'install "IO::Socket::SSL"'
# perl -MCPAN -e 'install "CPAN"'
# perl -MCPAN -e 'install "Scalar::Util"'
# perl -MCPAN -e 'install "Net::SSLeay"'
# perl -MCPAN -e 'install "Crypt::SSLeay"'
# perl -MCPAN -e 'install "Crypt::IDEA"'
# perl -MCPAN -e 'install "Digest::SHA"'
# perl -MCPAN -e 'install "Crypt::RSA"'
# perl -MCPAN -e 'install "Crypt::Blowfish"'
# perl -MCPAN -e 'install "Crypt::GPG"'
# perl -MCPAN -e 'install "XML::Parser"'
# perl -MCPAN -e 'install "XMLRPC::Lite"'
# perl -MCPAN -e 'force install "IO::Compress::Gzip"'

##########
#### Merke: $FileTypeHashRef->{ 0 } = FORMATBILD|FORMATMP3 usw
#### Merke: $FileTypeHashRef->{ 1 } = 'jpg|mp3' usw
##########

... [truncated, 672 more lines] ...

#!/usr/bin/perl -I/server/mutella/MutellaProxy


use IO::Socket;
use Data::Dumper;
use MutellaProxy::IO;

use constant CRLF => "\r\n";

my $IO	= MutellaProxy::IO->new();


$socket = IO::Socket::INET->new(PeerAddr => '85.214.39.76',
                                PeerPort => '3381',
                                Proto    => "tcp",
                                Type     => SOCK_STREAM)
    or die "Couldn't connect to 85.214.39.76:3381 : $@\n";


$IO->writeSocket( $socket, "find 1 paris" . CRLF );

sleep 12;

if (!$socket) {
	print "connection to socket lost!\n";
};

my $ReadFromClient = $IO->readSocket( $socket );

print Dumper($ReadFromClient);

#!/usr/bin/perl	-I/server/mutella/MutellaProxy

#########################################
##### Author:		Sebastian Enger / B.Sc
##### CopyRight:	BitJoe GmbH
##### LastModified	14.07.2006
##### Function:		LicenceTransfer
##### Todo:			
########################################

use MutellaProxy::LicenceTransfer;

MutellaProxy::LicenceTransfer->TransferEncryptedContent();
MutellaProxy::LicenceTransfer->CheckIfEncryptedFileExists( );
MutellaProxy::LicenceTransfer->DecryptLicence();
MutellaProxy::LicenceTransfer->SendCheckSumOfFiles();
MutellaProxy::LicenceTransfer->InstallLicenceToDataBase();
MutellaProxy::LicenceTransfer->TestInstalledLicence();

#!/usr/bin/perl -I/server/mutella/MutellaProxy


# gzip: http://search.cpan.org/~pmqs/IO-Compress-Zlib-2.001/lib/IO/Compress/Gzip.pm


#########################################
##### Author:		Sebastian Enger / B.Sc
##### CopyRight:	BitJoe GmbH
##### LastModified	13.07.2006
##### Function:		Hauptdatei fr MutellaProxy
##### Todo:			for statt foreach: ist schneller
##### MileStones:	IPBlocker.pm->IPBlocker() funktioniert
#####				Status.pm->readStatus() funktioniert
#####				SortRank.pm->SortRank() funktioniert
########################################

# perl -MCPAN -e 'install "Crypt::Rijndael"'
# perl -MCPAN -e 'install "Crypt::CBC"'
# perl -MCPAN -e 'install "LWP::Simple"'
# perl -MCPAN -e 'install "String::Approx"' 
# perl -MCPAN -e 'install "Net::SCP::Expect"' 
# perl -MCPAN -e 'install "MIME::Lite"' 
# perl -MCPAN -e 'install "Sort::Array"' 
# perl -MCPAN -e 'install "File::Basename"' 
# perl -MCPAN -e 'install "Net::Nslookup"' 
# perl -MCPAN -e 'install "Digest::MD4"' 
# perl -MCPAN -e 'install "Digest::MD5"'
# perl -MCPAN -e 'install "IO::Socket::SSL"'
# perl -MCPAN -e 'install "CPAN"'
# perl -MCPAN -e 'install "Scalar::Util"'
# perl -MCPAN -e 'install "Net::SSLeay"'
# perl -MCPAN -e 'install "Crypt::SSLeay"'
# perl -MCPAN -e 'install "Crypt::IDEA"'
# perl -MCPAN -e 'install "Digest::SHA"'
# perl -MCPAN -e 'install "Crypt::RSA"'
# perl -MCPAN -e 'install "Crypt::Blowfish"'
# perl -MCPAN -e 'install "Crypt::GPG"'
# perl -MCPAN -e 'install "XML::Parser"'
# perl -MCPAN -e 'install "XMLRPC::Lite"'


##########
#### Merke: $FileTypeHashRef->{ 0 } = FORMATBILD|FORMATMP3 usw
#### Merke: $FileTypeHashRef->{ 1 } = 'jpg|mp3' usw
##########


system("clear");


... [truncated, 555 more lines] ...

#!/usr/bin/perl -I/server/mutella/MutellaProxy


# gzip: http://search.cpan.org/~pmqs/IO-Compress-Zlib-2.001/lib/IO/Compress/Gzip.pm


#########################################
##### Author:		Sebastian Enger / B.Sc
##### CopyRight:	BitJoe GmbH
##### LastModified	13.07.2006
##### Function:		Hauptdatei fr MutellaProxy
##### Todo:			for statt foreach: ist schneller
##### MileStones:	IPBlocker.pm->IPBlocker() funktioniert
#####				Status.pm->readStatus() funktioniert
#####				SortRank.pm->SortRank() funktioniert
########################################

# perl -MCPAN -e 'install "Crypt::Rijndael"'
# perl -MCPAN -e 'install "Crypt::CBC"'
# perl -MCPAN -e 'install "LWP::Simple"'
# perl -MCPAN -e 'install "String::Approx"' 
# perl -MCPAN -e 'install "Net::SCP::Expect"' 
# perl -MCPAN -e 'install "MIME::Lite"' 
# perl -MCPAN -e 'install "Sort::Array"' 
# perl -MCPAN -e 'install "File::Basename"' 
# perl -MCPAN -e 'install "Net::Nslookup"' 
# perl -MCPAN -e 'install "Digest::MD4"' 
# perl -MCPAN -e 'install "Digest::MD5"'
# perl -MCPAN -e 'install "IO::Socket::SSL"'
# perl -MCPAN -e 'install "CPAN"'
# perl -MCPAN -e 'install "Scalar::Util"'
# perl -MCPAN -e 'install "Net::SSLeay"'
# perl -MCPAN -e 'install "Crypt::SSLeay"'
# perl -MCPAN -e 'install "Crypt::IDEA"'
# perl -MCPAN -e 'install "Digest::SHA"'
# perl -MCPAN -e 'install "Crypt::RSA"'
# perl -MCPAN -e 'install "Crypt::Blowfish"'
# perl -MCPAN -e 'install "Crypt::GPG"'
# perl -MCPAN -e 'install "XML::Parser"'
# perl -MCPAN -e 'install "XMLRPC::Lite"'


##########
#### Merke: $FileTypeHashRef->{ 0 } = FORMATBILD|FORMATMP3 usw
#### Merke: $FileTypeHashRef->{ 1 } = 'jpg|mp3' usw
##########


system("clear");


... [truncated, 555 more lines] ...

#!/usr/bin/perl	-I/server/mutella/MutellaProxy

#########################################
##### Author:		Sebastian Enger / B.Sc
##### CopyRight:	BitJoe GmbH
##### LastModified	26.07.2006
##### Function:		Installiere automatisch ultrapeers zum Mutella
##### Todo:			
########################################


use MutellaProxy::Ultrapeers;

 MutellaProxy::Ultrapeers->GetAndInstallUltraPeerHostList();
 MutellaProxy::Ultrapeers->GetAndInstallUltraPeerHostListFromGwebCache();

#!/usr/bin/perl -I/server/mutella/MutellaProxy

use MutellaProxy::Gzip;
my $GZIP = MutellaProxy::Gzip->new();

#gzip_compress
#gzip_decompress

$file_to_compress		= "test.txt";







sub DoStingCompress(){

	my $string_to_compress = shift;

	my $compressed_string;
	my $LoopCount = 0;

	do {
		
		return 0 if ( $LoopCount >= 10 );
		$compressed_string = $GZIP->gzip_compress_string( $string_to_compress );
		$LoopCount++;

	} until ( $compressed_string != -1 );

	return $compressed_string;

}; # sub DoFileCompress(){





sub DoFileDeCompress(){

	my $decompressed_filename;
	my $LoopCount = 0;

	my $compressed_filename = shift;

	do {
		
		return 0 if ( $LoopCount >= 10 );
		$decompressed_filename = $GZIP->gzip_decompress( $compressed_filename );

... [truncated, 31 more lines] ...

use IO::Compress::Gzip qw(gzip $GzipError) ;

$input = "TESTSTRING";
print "comprimiere: $input \n";

#my $status = gzip $input => $output [	-BinModeIn	=> 1,
#										-Level		=> Z_BEST_COMPRESSION,
#									 ] 
#       or die "gzip failed: $GzipError\n";

 my $z = new IO::Compress::Gzip $output [,OPTS]
        or die "gzip failed: $GzipError\n";
		

print "compressed= |$output| \n";
print "Status=$status\n";

use IO::Socket::SSL;

$sock= new IO::Socket::SSL (
	PeerAddr => "localhost",
	PeerPort => 3382,
	Proto => 'tcp',
	Timeout => '5',
	SSL_verify_mode			=> 0x00,
	SSL_use_cert			=> 0,
	SSL_ca_file => '/server/mutella/certs/ca.key') or die;

print $sock "\r\n\r\n\r\n\r\n\r\nPariser Nchte\r\n";
$string = "find\r\n\r\n\r\n\r\n\r\nPariser\r\n";
#syswrite($sock, $string, length $string);
$back = <$sock>;
print "i got back: $back " . length $back;

$back = <$sock>;
print "i got back: $back\n";

#!/usr/bin/perl -I/server/mutella/MutellaProxy

#!!!!!!!!!! hinweise: $IO->writeSocket( $HandyClientSocket, GzipString("FC 908") . CRLF ); 
# gibt eventuell fehler beim auslesen

#########################################
##### Author:		Sebastian Enger / B.Sc
##### CopyRight:	BitJoe GmbH
##### LastModified	13.07.2006
##### Function:		Hauptdatei fr MutellaProxy
##### Todo:			for statt foreach: ist schneller
##### MileStones:	IPBlocker.pm->IPBlocker() funktioniert
#####				Status.pm->readStatus() funktioniert
#####				SortRank.pm->SortRank() funktioniert
########################################

# Mail.pm ->SendMail funktioniert erstmal nicht, habe gleich am anfang der funktion ein return 1; gesetzt
# add ultrapeer anpassen!  /server/wwwroot/gwebcache/data da liegen die gwebcaches drinne
# bestimmung der dateiendung funzt nich nicht richtig: bei suche nach "test jpeg" wird auch "adsfadsf.jpeg.jpg" gefunden


# perl -MCPAN -e 'install "Crypt::Rijndael"'
# perl -MCPAN -e 'install "Crypt::CBC"'
# perl -MCPAN -e 'install "LWP::Simple"'
# perl -MCPAN -e 'install "String::Approx"' 
# perl -MCPAN -e 'install "Net::SCP::Expect"' 
# perl -MCPAN -e 'install "MIME::Lite"' 
# perl -MCPAN -e 'install "Sort::Array"' 
# perl -MCPAN -e 'install "File::Basename"' 
# perl -MCPAN -e 'install "Net::Nslookup"' 
# perl -MCPAN -e 'install "Digest::MD4"' 
# perl -MCPAN -e 'install "Digest::MD5"'
# perl -MCPAN -e 'install "IO::Socket::SSL"'
# perl -MCPAN -e 'install "CPAN"'
# perl -MCPAN -e 'install "Scalar::Util"'
# perl -MCPAN -e 'install "Net::SSLeay"'
# perl -MCPAN -e 'install "Crypt::SSLeay"'
# perl -MCPAN -e 'install "Crypt::IDEA"'
# perl -MCPAN -e 'install "Digest::SHA"'
# perl -MCPAN -e 'install "Crypt::RSA"'
# perl -MCPAN -e 'install "Crypt::Blowfish"'
# perl -MCPAN -e 'install "Crypt::GPG"'
# perl -MCPAN -e 'install "XML::Parser"'
# perl -MCPAN -e 'install "XMLRPC::Lite"'
# perl -MCPAN -e 'force install "IO::Compress::Gzip"'

##########
#### Merke: $FileTypeHashRef->{ 0 } = FORMATBILD|FORMATMP3 usw
#### Merke: $FileTypeHashRef->{ 1 } = 'jpg|mp3' usw
##########

... [truncated, 671 more lines] ...