bitjoe - Contrib - OptimalSettings - AlleOnlineShops - SOURCE CODE

#!/usr/bin/perl -I/server/phexproxy/PhexProxy

use strict;

#########################################
##### Author:		Sebastian Enger / B.Sc
##### CopyRight:	BitJoe GmbH
##### LastModified	26.1.2008
##### Function:		Hauptdatei fr PhexProxy
##### 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 = "7";				

system("renice $ServicePriority $$");
system("clear");

# signal handler installieren
$SIG{'TERM'} = $SIG{'INT'} = $SIG{'QUIT'} = $SIG{'HUP'} = sub { die "Signal Handler: $0 has been killed \n";  };

### TODO: Encoding unicode  / zeile 499
use Encode;
use Socket;
use DB_File;
use IO::Select;
use IO::Socket;
use Fcntl ':flock';
use Time::HiRes;
use Data::Dumper;
use PhexProxy::IO;
use PhexProxy::SMS;
use PhexProxy::Mail;
use PhexProxy::Gzip;
use PhexProxy::Time;
use PhexProxy::Phex;
use PhexProxy::Daemon;
use PhexProxy::Logging;
use PhexProxy::CheckSum;
use PhexProxy::PhexSortRank;
use PhexProxy::CryptoLibrary;
use PhexProxy::LicenceManagement;
# use Math::BigFloat;			# perl -MCPAN -e 'force install "Math::BigFloat"'


my $IO						= PhexProxy::IO->new();
my $SMS						= PhexProxy::SMS->new();
my $GZIP					= PhexProxy::Gzip->new();
my $MAIL					= PhexProxy::Mail->new();

... [truncated, 778 more lines] ...