bitjoe - Contrib - Mutella - SOURCE CODE

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


use MutellaProxy::LicenceManagement;

my $LICENCE		= MutellaProxy::LicenceManagement->new();
my ( @IOReadFromClient );

$IOReadFromClient[0] = ''; 
$IOReadFromClient[1] = '';
$IOReadFromClient[2] = '';
$IOReadFromClient[3] = 'TESTLICENCE';

$LICENCE->CheckLicence( \@IOReadFromClient );

#!/usr/bin/perl -IMutellaProxy

# Todos: 
#	--> Funktion Wrapper: Aufruf/Absetzen eines Commandos; sollte dies nicht erfolgreich sein, 
#			ruft sich die Funktion rekursiv wieder auf -->mit kleinem Timeout zwischendurch: select(undef, undef, undef, 0.25);
#	--> alles in Module und OO-Style packen
#	--> keine Hacks verwenden
#	--> Referenen benutzen und so Speicher sparen!
#   --> Caching von bereits angefragenen Suchergebnisse
#   --> Agrep als Aprox match fr caching
##########################################################

# modules: predeclare our used modules

#use strict;
#use MD5;	# client auth ID

# fr den server
use IO::Socket;
use IO::File;
use IO::Select;

# fr den rest
use Getopt::Std;
use Data::Dumper;
use Net::hostent;
use MutellaProxy::IO;
use MutellaProxy::Parser;
use MutellaProxy::Daemon;
use MutellaProxy::IOParser;
use MutellaProxy::SortRank;
use Digest::MD5 qw(md5 md5_hex md5_base64);

# use IO::Handle;
# STDERR->autoflush(1);

# modules: end

#use constant CRLF => '\015\012';
use constant CRLF => "\r\n";

##########################################################

# objects: generate

my $IO			= MutellaProxy::IO->new();
my $PARSER		= MutellaProxy::Parser->new();
my $IOPARSER	= MutellaProxy::IOParser->new();
my $SORTRANK	= MutellaProxy::SortRank->new();


... [truncated, 323 more lines] ...

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

##########################################################
# tod: client has requested: eventuell rauslassen, wenn ResultCleaner.pm funzt
##########################################################

use strict;

# fr den server
use IO::Socket;
use IO::File;
use IO::Select;
use Net::hostent;

# fr die parameter
use Getopt::Std;

# debug
use Data::Dumper;

# mutella
use MutellaProxy::IO;
use MutellaProxy::Parser;
use MutellaProxy::Daemon;
use MutellaProxy::Mutella;
use MutellaProxy::Logging;
use MutellaProxy::Mutella;
use MutellaProxy::SortRank;
use MutellaProxy::ResultCache;
use MutellaProxy::ResultCleaner;
use MutellaProxy::LicenceManagement;
			
# md5
# later: use MutellaProxy::MD5->new()
# use Digest::MD5 qw(md5 md5_hex md5_base64);
use Digest::MD5 qw( md5_hex );
use constant CRLF => "\r\n";

##########################################################

my $IO				= MutellaProxy::IO->new();
my $PARSER			= MutellaProxy::Parser->new();
my $LOGGING			= MutellaProxy::Logging->new();
my $MUTELLA			= MutellaProxy::Mutella->new();
my $SORTRANK		= MutellaProxy::SortRank->new();
my $CACHE			= MutellaProxy::ResultCache->new();
my $CLEANER			= MutellaProxy::ResultCleaner->new();
my $LICENCE			= MutellaProxy::LicenceManagement->new();

##############

... [truncated, 396 more lines] ...

#!/usr/bin/perl -IMutellaProxy

# Todos: 
#	--> Funktion Wrapper: Aufruf/Absetzen eines Commandos; sollte dies nicht erfolgreich sein, 
#			ruft sich die Funktion rekursiv wieder auf -->mit kleinem Timeout zwischendurch: select(undef, undef, undef, 0.25);
#	--> alles in Module und OO-Style packen
#	--> keine Hacks verwenden
#	--> Referenen benutzen und so Speicher sparen!
#   --> Caching von bereits angefragenen Suchergebnisse
#   --> Agrep als Aprox match fr caching
##########################################################

# modules: predeclare our used modules

#use strict;
#use MD5;	# client auth ID
use IO::Socket;
use Getopt::Std;
use Data::Dumper;
use Net::hostent;
use MutellaProxy::IO;
use MutellaProxy::Parser;
use MutellaProxy::IOParser;
#use POE::Component::Server::TCP;
#use POE::Component::Client::TCP;
# use IO::Handle;
# STDERR->autoflush(1);

# modules: end

use constant CRLF => '\015\012';

##########################################################

# objects: generate

my $IO			= MutellaProxy::IO->new();
my $PARSER		= MutellaProxy::Parser->new();
my $IOPARSER	= MutellaProxy::IOParser->new();

# objects: end

###########################################################

# mutelle: commands

use constant HELP_COMMAND	=> "help"	."\n";
use constant INFO_COMMAND	=> "info"	."\n";
use constant HOSTS_COMMAND	=> "hosts"	."\n";
use constant FIND_COMMAND	=> "find ";	# done - simple version ohne size filter

... [truncated, 128 more lines] ...

# schluckt 500 mb ram^^
my @array = (0..10000000);

print "sleeping\n";
sleep 20;