#! /usr/bin/perl ############################################################### # Name: format_weekly # # Created: 27.2.98 By: Knut A. Mork # # Do: Part of the weekly statistics process # ############################################################### $systempath = "/home/almash/admin/statistics/"; $org_filename = "tmp_week_stat.html"; $filename = "week_stat.html"; $head = "head"; $tail = "tail"; $unsorted_domain = "unsorted_domain"; $sorted_domain = "sorted_domain"; $unsorted_archive = "unsorted_archive"; $sorted_archive = "sorted_archive"; $started_copying = 0; $uns_domain = 0; $uns_archive = 0; open(TMP_FILE, ">$systempath$filename"); open(HEAD, "$systempath$head"); while() { print( TMP_FILE $_); } close(HEAD); open(ORG_FILE, "$systempath$org_filename"); open(UNS_DOMAIN, ">$systempath$unsorted_domain"); while($uns_domain != 2) { $line = ; if( $uns_domain == 1) { if( $line =~ "\<\/PRE\>") { $uns_domain = 2; } else { print(UNS_DOMAIN $line); } } if( $line =~ "\" && $uns_domain == 0) { print(TMP_FILE "


\n"); } elsif( $line =~ /\(.*)\<\/H2\>/ && $uns_domain == 0) { $started_copying = 1; print(TMP_FILE "

$1<\/H3>\n"); } elsif( $started_copying == 1 && $uns_domain == 0) { print(TMP_FILE $line); } if( $line =~ /\|------------------------------------$/ && $uns_domain == 0) { $uns_domain = 1; } } close(UNS_DOMAIN); system("sort -r +3 $systempath$unsorted_domain > $systempath$sorted_domain"); open(SOR_DOMAIN, "$systempath$sorted_domain"); while() { $line = $_; print( TMP_FILE "$line"); } close(SOR_DOMAIN); print( TMP_FILE ""); print( TMP_FILE "


\n"); $line = ; $line = ; $line =~ /\(.*)\<\/H2\>/; print( TMP_FILE "

$1

\n"); $line = ; print( TMP_FILE $line); $line = ; print( TMP_FILE $line); $line = ; print( TMP_FILE $line); open(UNS_ARCHIVE, ">$systempath$unsorted_archive"); while( $uns_archive != 2) { $line = ; if( $line =~ "\<\/PRE\>") { $uns_archive = 2; } else { if( ! ($line =~ /Code / || $line =~ /cgi-bin/ || $line =~ /\/sys\// || $line =~ /\/icons\//)) { print(UNS_ARCHIVE $line); } } } close(UNS_ARCHIVE); system("sort -r +3 $systempath$unsorted_archive > $systempath$sorted_archive"); open(SOR_ARCHIVE, "$systempath$sorted_archive"); while() { print( TMP_FILE $_); } close(SOR_ARCHIVE); print( TMP_FILE "\n"); print( TMP_FILE "


\n"); $line = ; $line = ; print( TMP_FILE $line); $line = ; print( TMP_FILE $line); $line = ; print( TMP_FILE $line); close(ORG_FILE); open(TAIL, "$systempath$tail"); while() { print( TMP_FILE $_); } close(TMP_FILE); system("rm /home/almash/admin/statistics/sorted_*"); system("rm /home/almash/admin/statistics/unsorted_*");