From 505cb0c31b99c3e893262d5babe6755bb4bfd9ee Mon Sep 17 00:00:00 2001
From: in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>
Date: Thu, 13 Nov 2003 12:20:10 +0000
Subject: fix from address

git-svn-id: http://opensvn.csie.org/pttbbs/trunk/pttbbs@1327 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
---
 util/tarqueue.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'util')

diff --git a/util/tarqueue.pl b/util/tarqueue.pl
index 0edf5bc0..292fa32f 100644
--- a/util/tarqueue.pl
+++ b/util/tarqueue.pl
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+# $Id$
 use lib '/home/bbs/bin/';
 use LocalVars;
 use strict;
@@ -38,6 +39,7 @@ sub ProcessBoard
 	      tarsource  => "boards/". substr($board, 0, 1). "/$board",
 	      mailto     => "$board的板主$owner <$email>",
 	      subject    => "$board的看板備份",
+	      from       => "$board的板主$owner <$owner.bbs\@$MYHOSTNAME>",
 	      body       =>
 	    "\n\n\t $owner 您好，收到這封信，表示您已經收到看板備份。\n\n".
 	    "\t謝謝您的耐心等待，以及使用 $hostname的看板備份系統，\n\n".
@@ -50,6 +52,7 @@ sub ProcessBoard
 	      tarsource  => "man/boards/". substr($board, 0, 1). "/$board",
 	      mailto     => "$board的板主$owner <$email>",
 	      subject    => "$board的精華區備份",
+	      from       => "$board的板主$owner <$owner.bbs\@$MYHOSTNAME>",
 	      body       =>
 	    "\n\n\t $owner 您好，收到這封信，表示您已經收到精華區備份。\n\n".
 	    "\t謝謝您的耐心等待，以及使用 $hostname的看板備份系統，\n\n".
@@ -66,7 +69,7 @@ sub MakeMail
     my $sender;
     `$TAR zcf $arg->{tartarget} $arg->{tarsource}`;
     $sender = new Mail::Sender{smtp => $SMTPSERVER,
-			       from => 'pttadmin <in2@ptt2.csie.ntu.edu.tw>'};
+			       from => $arg->{from}};
     $sender->MailFile({to         => $arg->{mailto},       
 		       subject    => $arg->{subject},
 		       msg        => $arg->{body},
-- 
cgit v1.2.3