diff options
author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2002-09-30 13:42:58 +0800 |
---|---|---|
committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2002-09-30 13:42:58 +0800 |
commit | af82c7af0d9f6834866ad4a68ef3253c664878a7 (patch) | |
tree | f91bd4546b89010b1a4b0610c80f86a4c0bc6e4e /util | |
parent | 1562edeb23239f1c4e4daa38f77174d424859684 (diff) | |
download | pttbbs-af82c7af0d9f6834866ad4a68ef3253c664878a7.tar pttbbs-af82c7af0d9f6834866ad4a68ef3253c664878a7.tar.gz pttbbs-af82c7af0d9f6834866ad4a68ef3253c664878a7.tar.bz2 pttbbs-af82c7af0d9f6834866ad4a68ef3253c664878a7.tar.lz pttbbs-af82c7af0d9f6834866ad4a68ef3253c664878a7.tar.xz pttbbs-af82c7af0d9f6834866ad4a68ef3253c664878a7.tar.zst pttbbs-af82c7af0d9f6834866ad4a68ef3253c664878a7.zip |
*** empty log message ***
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@533 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
Diffstat (limited to 'util')
-rw-r--r-- | util/mvdir.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/util/mvdir.pl b/util/mvdir.pl index 1587b799..b88cab28 100644 --- a/util/mvdir.pl +++ b/util/mvdir.pl @@ -5,10 +5,10 @@ if( !@ARGV ){ } ($which, $prefix, $from_id, $to_id) = @ARGV; -$which = 'man/boards' if( $which eq 'man' ); $fromdir = "/scsi$from_id/bbs/$which/$prefix"; $todir = "/scsi$to_id/bbs/$which/$prefix"; +$sym = ($which eq 'man' ? "/home/bbs/man/boards/$prefix" : "/home/bbs/$which/$prefix"); if( !-e $fromdir ){ print "from dir ($fromdir) not found\n"; @@ -23,8 +23,8 @@ foreach( <*> ){ push @dirs, $_; } -unlink "/home/bbs/$which/$prefix"; -symlink($todir, "/home/bbs/$which/$prefix"); +unlink $sym; +symlink($todir, $sym); foreach( @dirs ){ printf("processing %-20s (%04d/%04d)\n", $_, ++$index, $#dirs); |