\n";
if ( $FrameName eq 'mainleft' && $ShowMonthStats ) {
print( $frame? "| " : "" );
print
"$Message[128]";
print( $frame? " |
\n" : " " );
}
my %menu = ();
my %menulink = ();
my %menutext = ();
# When
%menu = (
'month' => $ShowMonthStats ? 1 : 0,
'daysofmonth' => $ShowDaysOfMonthStats ? 2 : 0,
'daysofweek' => $ShowDaysOfWeekStats ? 3 : 0,
'hours' => $ShowHoursStats ? 4 : 0
);
%menulink = (
'month' => 1,
'daysofmonth' => 1,
'daysofweek' => 1,
'hours' => 1
);
%menutext = (
'month' => $Message[162],
'daysofmonth' => $Message[138],
'daysofweek' => $Message[91],
'hours' => $Message[20]
);
ShowMenuCateg(
'when', $Message[93],
'menu4.png', $frame,
$targetpage, $linkanchor,
$NewLinkParams, $NewLinkTarget,
\%menu, \%menulink,
\%menutext
);
# Who
%menu = (
'countries' => $ShowDomainsStats ? 1 : 0,
'alldomains' => $ShowDomainsStats ? 2 : 0,
'visitors' => $ShowHostsStats ? 3 : 0,
'allhosts' => $ShowHostsStats ? 4 : 0,
'lasthosts' => ( $ShowHostsStats =~ /L/i ) ? 5 : 0,
'unknownip' => $ShowHostsStats ? 6 : 0,
'logins' => $ShowAuthenticatedUsers ? 7 : 0,
'alllogins' => $ShowAuthenticatedUsers ? 8 : 0,
'lastlogins' => ( $ShowAuthenticatedUsers =~ /L/i ) ? 9 : 0,
'emailsenders' => $ShowEMailSenders ? 10 : 0,
'allemails' => $ShowEMailSenders ? 11 : 0,
'lastemails' => ( $ShowEMailSenders =~ /L/i ) ? 12 : 0,
'emailreceivers' => $ShowEMailReceivers ? 13 : 0,
'allemailr' => $ShowEMailReceivers ? 14 : 0,
'lastemailr' => ( $ShowEMailReceivers =~ /L/i ) ? 15 : 0,
'robots' => $ShowRobotsStats ? 16 : 0,
'allrobots' => $ShowRobotsStats ? 17 : 0,
'lastrobots' => ( $ShowRobotsStats =~ /L/i ) ? 18 : 0,
'worms' => $ShowWormsStats ? 19 : 0
);
%menulink = (
'countries' => 1,
'alldomains' => 2,
'visitors' => 1,
'allhosts' => 2,
'lasthosts' => 2,
'unknownip' => 2,
'logins' => 1,
'alllogins' => 2,
'lastlogins' => 2,
'emailsenders' => 1,
'allemails' => 2,
'lastemails' => 2,
'emailreceivers' => 1,
'allemailr' => 2,
'lastemailr' => 2,
'robots' => 1,
'allrobots' => 2,
'lastrobots' => 2,
'worms' => 1
);
%menutext = (
'countries' => $Message[148],
'alldomains' => $Message[80],
'visitors' => $Message[81],
'allhosts' => $Message[80],
'lasthosts' => $Message[9],
'unknownip' => $Message[45],
'logins' => $Message[94],
'alllogins' => $Message[80],
'lastlogins' => $Message[9],
'emailsenders' => $Message[131],
'allemails' => $Message[80],
'lastemails' => $Message[9],
'emailreceivers' => $Message[132],
'allemailr' => $Message[80],
'lastemailr' => $Message[9],
'robots' => $Message[53],
'allrobots' => $Message[80],
'lastrobots' => $Message[9],
'worms' => $Message[136]
);
ShowMenuCateg(
'who', $Message[92],
'menu5.png', $frame,
$targetpage, $linkanchor,
$NewLinkParams, $NewLinkTarget,
\%menu, \%menulink,
\%menutext
);
# Navigation
$linetitle = &AtLeastOneNotNull(
$ShowSessionsStats,
$ShowPagesStats,
$ShowFileTypesStats,
$ShowFileSizesStats,
$ShowOSStats,
$ShowBrowsersStats,
$ShowScreenSizeStats
);
if ($linetitle) {
print ""
. ( $menuicon
? "![](\"$DirIcons/other/menu2.png\") "
: "" )
. "$Message[72]: | \n";
}
if ($linetitle) {
print( $frame? "
\n" : "" );
}
if ($ShowSessionsStats) {
print( $frame? " | | " : "" );
print
"$Message[117]";
print( $frame? " |
\n" : " " );
}
if ($ShowFileTypesStats) {
print( $frame? "| " : "" );
print
"$Message[73]";
print( $frame? " |
\n" : " " );
}
if ($ShowPagesStats) {
print( $frame? "| " : "" );
print
"$Message[29]\n";
print( $frame? " |
\n" : " " );
}
if ($ShowPagesStats) {
print( $frame
? " ![\"...\"](\"$DirIcons/other/page.png\") "
: "" );
print "$Message[80]\n";
print( $frame? " |
\n" : " " );
}
if ( $ShowPagesStats =~ /E/i ) {
print( $frame
? "| "
: "" );
print "$Message[104]\n";
print( $frame? " |
\n" : " " );
}
if ( $ShowPagesStats =~ /X/i ) {
print( $frame
? "| "
: "" );
print "$Message[116]\n";
print( $frame? " |
\n" : " " );
}
if ($ShowOSStats) {
print( $frame? "| " : "" );
print
"$Message[59]";
print( $frame? " |
\n" : " " );
}
if ($ShowOSStats) {
print( $frame
? "| "
: "" );
print "$Message[58]\n";
print( $frame? " |
\n" : " " );
}
if ($ShowOSStats) {
print( $frame
? "| "
: "" );
print "$Message[0]\n";
print( $frame? " |
\n" : " " );
}
if ($ShowBrowsersStats) {
print( $frame? "| " : "" );
print
"$Message[21]";
print( $frame? " |
\n" : " " );
}
if ($ShowBrowsersStats) {
print( $frame
? "| "
: "" );
print "$Message[58]\n";
print( $frame? " |
\n" : " " );
}
if ($ShowBrowsersStats) {
print( $frame
? "| "
: "" );
print "$Message[0]\n";
print( $frame? " |
\n" : " " );
}
if ($ShowScreenSizeStats) {
print( $frame? "| " : "" );
print
"$Message[135]";
print( $frame? " |
\n" : " " );
}
if ($linetitle) { print( $frame? "" : "\n" ); }
# Referers
%menu = (
'referer' => $ShowOriginStats ? 1 : 0,
'refererse' => $ShowOriginStats ? 2 : 0,
'refererpages' => $ShowOriginStats ? 3 : 0,
'keys' => ( $ShowKeyphrasesStats || $ShowKeywordsStats )
? 4
: 0,
'keyphrases' => $ShowKeyphrasesStats ? 5 : 0,
'keywords' => $ShowKeywordsStats ? 6 : 0
);
%menulink = (
'referer' => 1,
'refererse' => 2,
'refererpages' => 2,
'keys' => 1,
'keyphrases' => 2,
'keywords' => 2
);
%menutext = (
'referer' => $Message[37],
'refererse' => $Message[126],
'refererpages' => $Message[127],
'keys' => $Message[14],
'keyphrases' => $Message[120],
'keywords' => $Message[121]
);
ShowMenuCateg(
'referers', $Message[23],
'menu7.png', $frame,
$targetpage, $linkanchor,
$NewLinkParams, $NewLinkTarget,
\%menu, \%menulink,
\%menutext
);
# Others
%menu = (
'filetypes' => ( $ShowFileTypesStats =~ /C/i ) ? 1 : 0,
'misc' => $ShowMiscStats ? 2 : 0,
'errors' => ( $ShowHTTPErrorsStats || $ShowSMTPErrorsStats )
? 3
: 0,
'clusters' => $ShowClusterStats ? 5 : 0
);
%menulink = (
'filetypes' => 1,
'misc' => 1,
'errors' => 1,
'clusters' => 1
);
%menutext = (
'filetypes' => $Message[98],
'misc' => $Message[139],
'errors' =>
( $ShowSMTPErrorsStats ? $Message[147] : $Message[32] ),
'clusters' => $Message[155]
);
foreach ( keys %TrapInfosForHTTPErrorCodes ) {
$menu{"errors$_"} = $ShowHTTPErrorsStats ? 4 : 0;
$menulink{"errors$_"} = 2;
$menutext{"errors$_"} = $Message[31];
}
ShowMenuCateg(
'others', $Message[2],
'menu8.png', $frame,
$targetpage, $linkanchor,
$NewLinkParams, $NewLinkTarget,
\%menu, \%menulink,
\%menutext
);
# Extra/Marketing
%menu = ();
%menulink = ();
%menutext = ();
my $i=1;
foreach ( 1 .. @ExtraName - 1 ) {
$menu{"extra$_"} = $i++;
$menulink{"extra$_"} = 1;
$menutext{"extra$_"} = $ExtraName[$_];
$menu{"allextra$_"} = $i++;
$menulink{"allextra$_"} = 2;
$menutext{"allextra$_"} = $Message[80];
}
ShowMenuCateg(
'extra', $Message[134],
'', $frame,
$targetpage, $linkanchor,
$NewLinkParams, $NewLinkTarget,
\%menu, \%menulink,
\%menutext
);
print "\n";
}
else {
# Menu Applet
if ($frame) { }
else { }
}
#print ($frame?"":"
\n");
print "
\n";
}
# Print Back link
elsif ( !$HTMLOutput{'main'} ) {
print "\n";
$NewLinkParams =~ s/(^|&|&)hostfilter=[^&]*//i;
$NewLinkParams =~ s/(^|&|&)urlfilter=[^&]*//i;
$NewLinkParams =~ s/(^|&|&)refererpagesfilter=[^&]*//i;
$NewLinkParams =~ s/(&|&)+/&/i;
$NewLinkParams =~ s/^&//;
$NewLinkParams =~ s/&$//;
if ( !$DetailedReportsOnNewWindows
|| $FrameName eq 'mainright'
|| $QueryString =~ /buildpdf/i )
{
print "| $Message[76] |
\n";
}
else {
print
"| $Message[118] |
\n";
}
print "
\n";
print "\n";
}
}
# Call to plugins' function AddHTMLMenuFooter
foreach my $pluginname ( keys %{ $PluginsLoaded{'AddHTMLMenuFooter'} } ) {
# my $function="AddHTMLMenuFooter_$pluginname()";
# eval("$function");
my $function = "AddHTMLMenuFooter_$pluginname";
&$function();
}
# Exit if left frame
if ( $FrameName eq 'mainleft' ) {
&html_end(0);
exit 0;
}
# FirstTime LastTime
my $FirstTime = 0;
my $LastTime = 0;
foreach my $key ( keys %FirstTime ) {
my $keyqualified = 0;
if ( $MonthRequired eq 'all' ) { $keyqualified = 1; }
if ( $key =~ /^$YearRequired$MonthRequired/ ) { $keyqualified = 1; }
if ($keyqualified) {
if ( $FirstTime{$key}
&& ( $FirstTime == 0 || $FirstTime > $FirstTime{$key} ) )
{
$FirstTime = $FirstTime{$key};
}
if ( $LastTime < ( $LastTime{$key} || 0 ) ) {
$LastTime = $LastTime{$key};
}
}
}
# TotalVisits TotalUnique TotalPages TotalHits TotalBytes TotalHostsKnown TotalHostsUnknown
$TotalUnique = $TotalVisits = $TotalPages = $TotalHits = $TotalBytes = 0;
$TotalNotViewedPages = $TotalNotViewedHits = $TotalNotViewedBytes = 0;
$TotalHostsKnown = $TotalHostsUnknown = 0;
my $beginmonth = $MonthRequired;
my $endmonth = $MonthRequired;
if ( $MonthRequired eq 'all' ) { $beginmonth = 1; $endmonth = 12; }
for ( my $month = $beginmonth ; $month <= $endmonth ; $month++ ) {
my $monthix = sprintf( "%02s", $month );
$TotalHostsKnown += $MonthHostsKnown{ $YearRequired . $monthix }
|| 0; # Wrong in year view
$TotalHostsUnknown += $MonthHostsUnknown{ $YearRequired . $monthix }
|| 0; # Wrong in year view
$TotalUnique += $MonthUnique{ $YearRequired . $monthix }
|| 0; # Wrong in year view
$TotalVisits += $MonthVisits{ $YearRequired . $monthix }
|| 0; # Not completely true
$TotalPages += $MonthPages{ $YearRequired . $monthix } || 0;
$TotalHits += $MonthHits{ $YearRequired . $monthix } || 0;
$TotalBytes += $MonthBytes{ $YearRequired . $monthix } || 0;
$TotalNotViewedPages += $MonthNotViewedPages{ $YearRequired . $monthix }
|| 0;
$TotalNotViewedHits += $MonthNotViewedHits{ $YearRequired . $monthix }
|| 0;
$TotalNotViewedBytes += $MonthNotViewedBytes{ $YearRequired . $monthix }
|| 0;
}
# TotalHitsErrors TotalBytesErrors
my $TotalHitsErrors = 0;
my $TotalBytesErrors = 0;
foreach ( keys %_errors_h ) {
# print "xxxx".$_." zzz".$_errors_h{$_};
$TotalHitsErrors += $_errors_h{$_};
$TotalBytesErrors += $_errors_k{$_};
}
# TotalEntries (if not already specifically counted, we init it from _url_e hash table)
if ( !$TotalEntries ) {
foreach ( keys %_url_e ) { $TotalEntries += $_url_e{$_}; }
}
# TotalExits (if not already specifically counted, we init it from _url_x hash table)
if ( !$TotalExits ) {
foreach ( keys %_url_x ) { $TotalExits += $_url_x{$_}; }
}
# TotalBytesPages (if not already specifically counted, we init it from _url_k hash table)
if ( !$TotalBytesPages ) {
foreach ( keys %_url_k ) { $TotalBytesPages += $_url_k{$_}; }
}
# TotalKeyphrases (if not already specifically counted, we init it from _keyphrases hash table)
if ( !$TotalKeyphrases ) {
foreach ( keys %_keyphrases ) { $TotalKeyphrases += $_keyphrases{$_}; }
}
# TotalKeywords (if not already specifically counted, we init it from _keywords hash table)
if ( !$TotalKeywords ) {
foreach ( keys %_keywords ) { $TotalKeywords += $_keyword
porn-sites-list.com
porn-stars.org
porn-stud-search.org
pornevalution.com
porngrub.com
pornlane.com
porno-v.com
pornogratis.bz
pornosexbest.com
pornostars.cc
pornovideos-versand.com
pornstar4all.com
pornwww.com
poster-shop.us
postersshop.us
power-rico.de
pregnant-sex-free.us
prepaylegalinsurance.com
prescription-drugs.st
prescriptions.md
preteen-models.biz
preteen-sex.info
preteen-young.net
prettypiste.com
princeofprussia.org
printerinkseller.com
prism-lupus.org
privacy-online.biz
private-krankenversicherung-uebersicht.com
private-network.net
privatediet.com
pro-collegefootballbetting.com
pro-rolex-replica-watches
pro-rolex-replica-watches.com
product-paradise.com
projector-me.com
prom-prepared.com
promindandbody.com
propecia-depot.com
propecia-for-hair-loss.com
propecia-for-hair-loss.net
propecia-info.net
propecia-store.com
propecia.bravehost.com
propeciaonline.biz
propeciapower.com
prosearchs.com
pryporn.com
pseudobreccia60.tripod.com.ve
psites.biz
psites.net
psites.org
psites.us
psxtreme.com
psychexams.net
psychexams.org
punksongslyrics.com
puppyduk.com
pureteenz.com
pushline.com
pussy-cum.us
pussy-d.com
pussy-movies.us
qinsi.com
qqba.com
quangoweb.com
quick-drugs.biz
quick-drugs.com
quickdomainnameregistration.com
quickie-quotes.com
r-300.com
r-3100.com
r-400.com
r-4100.com
r00m.com
racconti-gay.org
radsport-artikel.de
raf-ranking.com
ragazze.bz
rampantrabbitvibrator.co.uk
randyblue.info
randysrealtyreview.com
rape--stories
rape-fantasy-pics.com
rape-stories.biz
rapestoriespics
rapid-merchant-account.com
rapid.myserver.org
ratenkredit-center.de
ratenkredit-shop.de
raw-pussy.us
rbfanz.com
real-online-poker
real-sex.us
realestateslaws.com
realisticforeignpolicy.org
reality-xxx.biz
reallyhot.org
realmilfgangbang.biz
realtickling.com
rebjorn.co.uk
redcentre.org
redi.tk
refinance-mortgage-home-equity-loan.com
reggaeboyzfanz.com
registerxonline.com
registrarprice.com
reglament-np.ru
reisen-domain.de
relievepain.org
rent-games-movies.com
rental-2004.com
rentalcarsplus.com
repair-restore-bad-credit-report-identity-theft.com
repaircreditonline.net
repondeurs-logos-mobile.com
republika.pl
reservedining.net
reservedining.org
restaurant-l.de
rethyassociates.net
rethyassociates.org
reviewonlinedating.com
rhinoslinks.com
rhinosthumbs.com
ricettegolose.com
richshemales.com
rifp.org
rightdebt.com
ringsignaler-ikon-spel.com
ringtone-logo-game.com
ringtoner-logoer-spill.com
ringtonespy.com
rittenhouse.ca
rmg.com.cn
robinson-entertainment.com
robosapiensource
robosapiensource.com
roboticmilking.com
romane-buecher.de
romeo-ent.com
ronnieazza.com
rossmann.de
roulette---online.com
roulette-w.com
royaladult.com
royalfreehost.com/teen/amymiller
royalmailhotel.com
ru21.to
ruitai88.com
rulo.biz
rx-central.net
rx-lexapro.biz
rx-pills-r.us
rx-store.com # Catchall for many spam sites
rxpainrelief.net
rxpills.biz
rxweightloss.org
rydoncycles.co.uk
s-fuck.com
s-sites.net
safecreditonline.com
sailor-moon-hentai.org
sailor-moon-hentai.us
salcia.co.uk
salute-bellezza.net
salute-bellezza.org
salute-benessere.org
salute-e-benessere.net
salute-igiene.com
salute-malattie.com
salute-malattie.net
samiuls.com
sandhillaudio.com
sandrabre.de
sapphicerotica.biz
sarennasworld.com
sat-direct.net
satellite-direct-for-you.com
satellite-network-tv.com
satellite-D•äE•äG•äH•ä t.com
sedonaretreat.org
seekartist.com
seeker-milf.com
seitensprung-gratis.com
selectedsex.com
selena-u.ru
selten-angeklickt.de
semax14.info
semax15.info
semax16.info
sempo-tahoe.com
senior.mine.nu
seoy.com
servepics.com
servicesdating.net
sesso-gratis.cc
sesso-online.net
sessoanalex.com
sessox.biz
seven-card-stud.biz
seven-card-stud.us
sewilla.de
sex-4you.org
sex-bondagenet.org
sex-friend.info
sex-livecam-erotik.net
sex-lover.org
sex-manga.us
sex-mates.info
sex-photos.org
sex-pic-sex.com
sex-pussy.us
sex-toys-next-day.com
sex4dollar.com
sexadultdating.com
sexbrides.com
sexchat.ccx
sexcia.com
sexe.vc
sexglory.com
sexiestserver.com
sexingitup.com
sexmuch.com
sexo9.com
sexplanets.com
sexschlucht.de
sexshop-sexeshop.com
sexshop.tk
sextoysportal.com
sextoyssexvideos.com
sexual-shemales.com
sexual-story.blogspot.com
sexushost.com
sexvoyager.com
sexwebclub.com
sexwebsites.com
sexy-ass.us
sexy-babes.us
sexy-celebrity-photos.com
sexy-girls.org
sexy-lesbian.us
sexy-pussy.us
sexynudea.com
sfondi--gratis.com
sfondi-desktop-gratis.com
shadowbaneguides.net
shannon-e.co.uk
shareint-store.com
shemale-cum-tgp.com
shemale-girls.com
shemalesex.biz
shemalesland.com
shemalezhost.com
shemalki.com
shfx-bj.com
shhilight.com
shirts-t-shirts.com
shop-opyt.com
shop.tc
shop24x7.net
shopping-liste.de
shoppingideen-xxl.de
shoppyix.com
showsontv.com
sicarrow.co.uk
silky-smooth-pussy.com
simon-scans.com
simple-pharmacy.com
simplemeds.com
simpsonowen.co.uk
sindyhalliday.com
sinfree.net
site-mortgage.com
sitesarchive.com
siti-porno.us
ski-resorts-guide.com
skidman.com
slatersdvds.co.uk
slng.de
slot-machines-slots.com
slotmachinesguide.net
slots-8.com
slots-w.com
slotsjockey.com
slowdownrelax.com
slut-wife-story.blogspot.com
slutcities.com
small-business-grants.biz
smallbusinessgrants.biz
smart-debt-consolidation-and-credit-services.com
smartdot.com
smartonlineshop.com
smerfy.pl
sms-sms-sms.org
sms-sprueche-4fun.de
sms-sprueche.com
sms.pl
smutwebsites.com
sneakysleuth.com
socoplan.org
sofort-mitgewinnen.de
sofortkredit-tipps.de
soft-industry.com
soft.center.prv.pl
software-einkaufsmarkt.de
software-linkliste.de
software-review-center.org
software.thedir.net
softwaredevelopmentindia.com
soittoaanet-logot-peli.com
sol-web.de
soma-cheap-soma.com
soma-solution.com
soma-web.com
soma.st
somacheap
somaspot.com
sommerreisen-2004.de
sonderpreis.de.com
sonnerie-compositeur.com
sonnerie-hifi-sms.com
sonnerie-logo-jeu.com
sonnerie-logo-sonneries.com
sonnerie-logos-sonneries.com
sonnerie-logos.be
sonnerie-max.com
sonnerie-portable-composer.com
sonnerie-portable.be
sonnerie-sonneries-logo.com
sonnerie-sonneries-logos.com
sonnerie-sonneries.net
sonnerie.net
son!$HTMLOutput{'allemailr'} && !$HTMLOutput{'lastemailr'} ) {
&BuildKeyList( $MaxNbOf{'EMailsShown'}, $MinHit{'EMail'}, \%_emailr_h,
\%_emailr_h );
}
if ( $HTMLOutput{'allemailr'} ) {
&BuildKeyList( $MaxRowsInHTMLOutput, $MinHit{'EMail'}, \%_emailr_h,
\%_emailr_h );
}
if ( $HTMLOutput{'lastemailr'} ) {
&BuildKeyList( $MaxRowsInHTMLOutput, $MinHit{'EMail'}, \%_emailr_h,
\%_emailr_l );
}
foreach my $key (@keylist) {
my $newkey = $key;
if ( length($key) > $MaxLengthOfShownEMail ) {
$newkey = substr( $key, 0, $MaxLengthOfShownEMail ) . "...";
}
my $bredde_h = 0;
my $bredde_k = 0;
if ( $max_h > 0 ) {
$bredde_h = int( $BarWidth * $_emailr_h{$key} / $max_h ) + 1;
}
if ( $max_k > 0 ) {
$bredde_k = int( $BarWidth * $_emailr_k{$key} / $max_k ) + 1;
}
print "";
my $direction = IsLocalEMail($key);
if ( $direction > 0 ) {
print "| $newkey | <- | | ";
}
if ( $direction == 0 ) {
print
"$newkey | ";
}
if ( $direction < 0 ) {
print " | -> | $newkey | ";
}
if ( $ShowEMailReceivers =~ /H/i ) {
print "$_emailr_h{$key} | ";
}
if ( $ShowEMailReceivers =~ /B/i ) {
print ""
. Format_Bytes( $_emailr_k{$key} ) . " | ";
}
if ( $ShowEMailReceivers =~ /M/i ) {
print ""
. Format_Bytes( $_emailr_k{$key} / ( $_emailr_h{$key} || 1 ) )
. " | ";
}
if ( $ShowEMailReceivers =~ /L/i ) {
print ""
. ( $_emailr_l{$key} ? Format_Date( $_emailr_l{$key}, 1 ) : '-' )
. " | ";
}
print "
\n";
#$total_p += $_emailr_p{$key};
$total_h += $_emailr_h{$key};
$total_k += $_emailr_k{$key};
$count++;
}
$rest_p = 0; # $rest_p=$TotalPages-$total_p;
$rest_h = $TotalHits - $total_h;
$rest_k = $TotalBytes - $total_k;
if ( $rest_p > 0 || $rest_h > 0 || $rest_k > 0 )
{ # All other receiver emails
print
"| $Message[2] | ";
if ( $ShowEMailReceivers =~ /H/i ) { print "$rest_h | "; }
if ( $ShowEMailReceivers =~ /B/i ) {
print "" . Format_Bytes($rest_k) . " | ";
}
if ( $ShowEMailReceivers =~ /M/i ) {
print ""
. Format_Bytes( $rest_k / ( $rest_h || 1 ) ) . " | ";
}
if ( $ShowEMailReceivers =~ /L/i ) { print " | "; }
print "
\n";
}
&tab_end();
}
#------------------------------------------------------------------------------
# MAIN
#------------------------------------------------------------------------------
( $DIR = $0 ) =~ s/([^\/\\]+)$//;
( $PROG = $1 ) =~ s/\.([^\.]*)$//;
$Extension = $1;
$DIR ||= '.';
$DIR =~ s/([^\/\\])[\\\/]+$/$1/;
$starttime = time();
# Get current time (time when AWStats was started)
( $nowsec, $nowmin, $nowhour, $nowday, $nowmonth, $nowyear, $nowwday, $nowyday )
= localtime($starttime);
$nowweekofmonth = int( $nowday / 7 );
$nowweekofyear =
int( ( $nowyday - 1 + 6 - ( $nowwday == 0 ? 6 : $nowwday - 1 ) ) / 7 ) + 1;
if ( $nowweekofyear > 52 ) { $nowweekofyear = 1; }
$nowdaymod = $nowday % 7;
$nowwday++;
$nowns = Time::Local::timegm( 0, 0, 0, $nowday, $nowmonth, $nowyear );
if ( $nowdaymod <= $nowwday ) {
if ( ( $nowwday != 7 ) || ( $nowdaymod != 0 ) ) {
$nowweekofmonth = $nowweekofmonth + 1;
}
}
if ( $nowdaymod > $nowwday ) { $nowweekofmonth = $nowweekofmonth + 2; }
# Change format of time variables
$nowweekofmonth = "0$nowweekofmonth";
if ( $nowweekofyear < 10 ) { $nowweekofyear = "0$nowweekofyear"; }
if ( $nowyear < 100 ) { $nowyear += 2000; }
else { $nowyear += 1900; }
$nowsmallyear = $nowyear;
$nowsmallyear =~ s/^..//;
if ( ++$nowmonth < 10 ) { $nowmonth = "0$nowmonth"; }
if ( $nowday < 10 ) { $nowday = "0$nowday"; }
if ( $nowhour < 10 ) { $nowhour = "0$nowhour"; }
if ( $nowmin < 10 ) { $nowmin = "0$nowmin"; }
if ( $nowsec < 10 ) ics.homeftp.org
storiespics.homeip.net
storiespics.homelinux.com
storiespics.homelinux.net
storiespics.homelinux.org
storiespics.homeunix.com
storiespics.homeunix.net
storiespics.homeunix.org
striemline.de
stripclubexposed.info
strivectinsd.com
stunningsextoys.com
styrax-benzoin.com
success-biz-replica.com
suma-eintragen.de
sumaeintrag-xxl.de
sunbandits.com
sunnyby.com
suonerie-center.com
suonerie-download.com
suonerie-loghi-gratis.com
suonerieloghix.com
suoneriex.net
suoyan.com
super-bowl-bet.biz
super-celebs.com
super-cialis.com
superbowl--betting.com
superdolphins.org
superpornlist.com
surfe-und-staune.de
susiewildin.com
sutra-sex.com
suttonjames.net
suttonjames.org
svitonline.com
swedenet.com
swedenetwork.com
sweet-horny.com
sweetbuyz.com
sweethotgirls.com
sweetteenbodies.com
swinger-story.blogspot.com
swingersadult.net
swingersunidos.com
sydney-harbour.info
sylphiel.org
sylviapanda.com
sysaud.com
t35.com
t3n.org
tabsinc.com
take-credit-cards.com
taliesinfellows.org
talktobabes.com
tanganyikan-cichlids.co.uk
tapbuster.co.uk
taremociecall.com
targetindustries.net
targetingpain.net
tattoo-entwuerfe.de
tatuaggi-gratis.com
tatuaggi-piercing.org
tatuaggi-tribali.com
tatuaggi.cc
tatuaggi.us
tatuaggitribali.com
tclighting.net
tclighting.org
tdk-n.com
teambeck.org
teamregules.com
tecrep-inc.net
tecrep-inc.org
teddbot.com
teddnetwork.com
teen-babes.us
teen-boys-fuck-paysite.com
teen-d.com
teen-hentai.us
teen-movie.us
teen-porn-movie.net
teen-sex-porn-models.com
teen-video.us
teen-xxx.us
teenagerzone.com
teenbrazil.info
teenbrazil.ws
teens.wox.org
teensluts.org
teentopanga.name
teenxxxpix.net
telechargement-logiciel.com
terminator-sales.com
terra.es/personal2/dee7boquo
terra.es/personal2/markus69
testi-canzoni.com
testi-canzoni.net
testi-musicali.com
testi-musicali.net
testi.cc
tests-shop.com
tette.bz
tettone.cc
texas--hold--em
texas--hold-em
texas--holdem
texas-hold-em
texas-holdem
texas-poker
texasproptax.com
tgplist.us
thatwhichis.com
the-boys-first-time.net
the-boysfirsttime.com
the-date.com
the-first-time-auditions
the-hun-site.com
the-hun-yellow-page-tgp.com
the-pill-bottle.com
the-proxy.com
the1930shome.co.uk
thebans.com
theblackfoxes.com
theceleb.com
thecraftersgallery.com
thefreecellphone.com
thehadhams.net
themadpiper.net
thepornhost.com
thepurplepitch.com
therosygarden.com
thesoftwaregarage.co.uk
thespecialweb.com
thewebbrains.com
thorcarlson.com
thumbscape.com
ticket-marktplatz.de
tickets4events.de
tiere-futter.de
tiffany-towers.com
tigerspice.com
tikattack.com
timescooter.com
tina4re.com
tips-1a.de
tits-center.com
tits-cumshots.net
tm258.com
tmsathai.org
tofik.pl
tokyojoes.info
tonos-celulares.com.mx
tonos-nokia.com.m
Orgonox: Startseite
