Return to log.pm CVS log

Up to [local] / wpscripts / ztransfer

Annotation of wpscripts/ztransfer/log.pm, Revision 1.1

1.1     ! yason       1: #!/usr/bin/perl
        !             2: # $Id: log.pm,v 1.1.1.5 2006/05/17 12:44:35 init Exp $
        !             3: package log;
        !             4:
        !             5: my $DEBUG = 1;
        !             6:
        !             7: my $MAIN_LOG = "/var/log/ztransfer/main.log";
        !             8: my $ERROR_LOG = "/var/log/ztransfer/error.log";
        !             9: my $ZAYAVKI_LOG = "/var/log/ztransfer/zayavki.log";
        !            10: my $JPEGS_LOG = "/var/log/ztransfer/jpegs.log";
        !            11: my $PROBAS_LOG = "/var/log/ztransfer/probas.log";
        !            12: my $TPPS_LOG = "/var/log/ztransfer/tpps.log";
        !            13: my $CRITICAL_LOG = "/var/log/ztransfer/critical.log";
        !            14: my $FILE_LIST = "/var/log/ztransfer/FILES";
        !            15: my $DIFFS_FILE = "/var/log/ztransfer/size_diffs.log";
        !            16: my $CURRENT_FILE = "/var/log/ztransfer/FILE";
        !            17: my $CURRENT_ACTION = "/var/log/ztransfer/ACTION";
        !            18:
        !            19:
        !            20: # functions
        !            21: sub error($)
        !            22: {
        !            23:     open(FILE, ">>$ERROR_LOG") or return();
        !            24:     $_ = shift();
        !            25:     print FILE scalar( localtime() ) . "| $_\n";
        !            26:     print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG);
        !            27:     close(FILE);
        !            28: }
        !            29:
        !            30:
        !            31: sub main($)
        !            32: {
        !            33:     open(FILE, ">>$MAIN_LOG") or return();
        !            34:     $_ = shift();
        !            35:     print FILE scalar( localtime() ) . "| $_\n";
        !            36:     print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG);
        !            37:     close(FILE);
        !            38: }
        !            39:
        !            40:
        !            41: sub zayavki($)
        !            42: {
        !            43:     open(FILE, ">>$ZAYAVKI_LOG") or return();
        !            44:     $_ = shift();
        !            45:     print FILE scalar( localtime() ) . "| $_\n";
        !            46:     print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG);
        !            47:     close(FILE);
        !            48: }
        !            49:
        !            50:
        !            51: sub jpegs($)
        !            52: {
        !            53:     open(FILE, ">>$JPEGS_LOG") or return();
        !            54:     $_ = shift();
        !            55:     print FILE scalar( localtime() ) . "| $_\n";
        !            56:     print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG);
        !            57:     close(FILE);
        !            58: }
        !            59:
        !            60: sub tpps($)
        !            61: {
        !            62:     open(FILE, ">>$TPPS_LOG") or return();
        !            63:     $_ = shift();
        !            64:     print FILE scalar( localtime() ) . "| $_\n";
        !            65:     print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG);
        !            66:     close(FILE);
        !            67: }
        !            68:
        !            69:
        !            70: sub probas($)
        !            71: {
        !            72:     open(FILE, ">>$PROBAS_LOG") or return();
        !            73:     $_ = shift();
        !            74:     print FILE scalar( localtime() ) . "| $_\n";
        !            75:     print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG);
        !            76:     close(FILE);
        !            77: }
        !            78:
        !            79:
        !            80: sub critical($)
        !            81: {
        !            82:     if( open(FILE, ">>$CRITICAL_LOG") )
        !            83:     {
        !            84:        $_ = shift();
        !            85:        print FILE scalar( localtime() ) . "| $_\n";
        !            86:        close(FILE);
        !            87:        print STDOUT scalar( localtime() ) . "| $_\n" if($DEBUG);
        !            88:     }
        !            89:     exit(-1);  # exit program with -1 on *critical* error
        !            90: }
        !            91:
        !            92:
        !            93: sub filelist($)
        !            94: {
        !            95:     my $files_ref = shift;
        !            96:     my @files = @$files_ref;
        !            97:
        !            98:     open(FILE, ">$FILE_LIST") or return();
        !            99:     foreach  $_ (@files)
        !           100:     {
        !           101:        print FILE "$_\n";
        !           102:     }
        !           103:     close(FILE);
        !           104: }
        !           105:
        !           106:
        !           107: sub diff($$$)
        !           108: {
        !           109:     my $path = shift;
        !           110:     my $size_orig = shift;
        !           111:     my $size_arc = shift;
        !           112:     my $diff = $size_orig / $size_arc;
        !           113:
        !           114:     # in human-readable format
        !           115:     # we don't suppose gigabyte archives
        !           116:     $size_orig = ($size_orig > 1048576 ? int($size_orig / 1024 / 1024) . " MB" : int($size_orig / 1024) . " KB");
        !           117:     $size_arc = ($size_arc > 1048576 ? int($size_arc / 1024 / 1024) . " MB" : int($size_arc / 1024) . " KB");
        !           118:
        !           119:     open(FILE, ">>$DIFFS_FILE") or return();
        !           120:     print FILE scalar( localtime() ) . "| $path - original=$size_orig, compressed=$size_arc [diff=$diff]\n";
        !           121:     print STDOUT scalar( localtime() ) . "| $path - original=$size_orig, compressed=$size_arc [diff=$diff]\n" if($DEBUG);
        !           122:     close(FILE);
        !           123:
        !           124: }
        !           125:
        !           126:
        !           127: sub file_work_on($$)
        !           128: {
        !           129:     my $file = shift;
        !           130:     my $action = shift;
        !           131:
        !           132:     open(FILE, ">$CURRENT_FILE") or return();
        !           133:        print FILE $file;
        !           134:     close(FILE);
        !           135:
        !           136:     open(ACT, ">$CURRENT_ACTION") or return();
        !           137:        print ACT $action;
        !           138:     close(ACT);
        !           139:
        !           140: }
        !           141:
        !           142:
        !           143: sub file_work_done()
        !           144: {
        !           145:     # consider this stuff okay, as usually ;-)
        !           146:     #  but in future maybe not to call anything external?
        !           147:     system("/bin/rm $CURRENT_FILE") if(-e $CURRENT_FILE);
        !           148:     system("/bin/rm $CURRENT_ACTION") if(-e $CURRENT_ACTION);
        !           149: }
        !           150:
        !           151:
        !           152: sub stdout($)
        !           153: {
        !           154:     my $message = shift;
        !           155:     print "STDOUT: $message\n";
        !           156: }
        !           157:
        !           158:
        !           159: return(1);