Changeset 41

Timestamp:

11/21/05 20:11:49 (19 years ago)

Author:

thauvin

Message:

• add signature in mail

File:

• trunk/soft/scripts/transfert (modified) (2 diffs, 1 prop)

trunk/soft/scripts/transfert

@@ -308 +308 @@
         $mail{message} .= "$_\n" foreach (@{$maillog->{$mailto}});
         $mail{message} .= $config->val('default', 'mailfooter', '');
+        my $hostname = `hostname`; chomp($hostname);
+        $mail{message} .= sprintf(
+            "\n-- \nMail sent by transfert bot on %s\n%s\n",
+            $hostname,
+            q$Id$,
+        );
         
         sendmail(%mail) or loging(5, "Can't sent mail to %s: %s", $mailto, $Mail::Sendmail::error);
@@ -322 +328 @@
 
     $Log$
+    Revision 1.8  2005/11/21 19:11:49  thauvin
+    - add signature in mail
+
     Revision 1.7  2005/11/21 18:44:07  thauvin
     - put relative path to file for md5sum