Changeset 35 for trunk

Timestamp:

11/08/05 18:17:29 (19 years ago)

Author:

thauvin

Message:

• add logfile support

Location:

trunk/soft/scripts

Files:

• transfert (modified) (7 diffs, 1 prop)
• transfert-config (modified) (1 diff, 1 prop)

trunk/soft/scripts/transfert

@@ -8 +8 @@
 use Config::IniFiles;
 use Mail::Sendmail;
+use POSIX qw(strftime);
 
 # 0 .. 6 => debug, info, report, warn, error, die
@@ -18 +19 @@
     'nomail' => \my $nomail,
     'mailto' => \my $mailto,
+    'logfile=s' => \my $logfile,
 );
 
@@ -23 +25 @@
 my $maillog; # mail => { level =>, msg => @}
 my $logcallback = undef;
+my $loghandle = \*STDERR;
 
 if (!$configfile) {
@@ -39 +42 @@
     loging(6, "Can't open %s", $configfile);
     exit(1);
+}
+
+$logfile ||= $config->val('default', 'logfile');
+if ($logfile) {
+    loging(0, "Openning log file %s (%s)", strftime($logfile, gmtime), $logfile);
+    if (!open($loghandle, '> ' . strftime($logfile, gmtime))) {
+        $loghandle = \*STDERR;
+        loging(5, "Can't open log file %s (%s)", strftime($logfile, gmtime), $logfile);
+    }
 }
 
@@ -64 +76 @@
 
 loging(0, "End of transfert, exiting");
+close($loghandle);
 exit(0);
 
-#########
+#################
+# MAIN LOOP END #
+#################
 
 sub loging {
@@ -76 +91 @@
         }
         if (!$logcallback || $debug) {
-            print STDERR "[$level] $msg\n";
+            print $loghandle "[$level] $msg\n";
         }
     }
@@ -136 +151 @@
     }
 }
+
+__END__
+
+=head1 CHANGELOG
+
+    $Log$
+    Revision 1.2  2005/11/08 17:17:29  thauvin
+    - add logfile support
+

trunk/soft/scripts/transfert-config

@@ -1 @@
-$Id$
+# $Id$
 
 [default]