summaryrefslogtreecommitdiffstats
path: root/util/tarqueue.pl
diff options
context:
space:
mode:
Diffstat (limited to 'util/tarqueue.pl')
-rw-r--r--util/tarqueue.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/util/tarqueue.pl b/util/tarqueue.pl
index 20bda9f1..f3463f30 100644
--- a/util/tarqueue.pl
+++ b/util/tarqueue.pl
@@ -35,7 +35,7 @@ sub ProcessBoard
$now, $owner, $board, $bakboard, $bakman, $email);
MakeMail({tartarget => "$TMP/$board.tgz",
- tarsource => "boards/$board/* boards/$board/.DIR",
+ tarsource => "boards/". substr($board, 0, 1). "/$board",
mailto => "$board的版主$owner <$email>",
subject => "$board的看版備份",
body =>
@@ -47,7 +47,7 @@ sub ProcessBoard
}) if( $bakboard );
MakeMail({tartarget => "$TMP/man.$board.tgz",
- tarsource => "man/boards/$board/* man/boards/$board/.DIR",
+ tarsource => "man/boards/". substr($board, 0, 1). "/$board",
mailto => "$board的版主$owner <$email>",
subject => "$board的精華區備份",
body =>