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 | 5175d8c924c84645e07029fe4788d9100f6b5afb (patch) | |
tree | 615e02b88ffeba20621c715c2780d556d6bbb2b5 | |
parent | 53b9a3a3cced41f09fda3a37618314168cb2a698 (diff) | |
download | pttbbs-5175d8c924c84645e07029fe4788d9100f6b5afb.tar pttbbs-5175d8c924c84645e07029fe4788d9100f6b5afb.tar.gz pttbbs-5175d8c924c84645e07029fe4788d9100f6b5afb.tar.bz2 pttbbs-5175d8c924c84645e07029fe4788d9100f6b5afb.tar.lz pttbbs-5175d8c924c84645e07029fe4788d9100f6b5afb.tar.xz pttbbs-5175d8c924c84645e07029fe4788d9100f6b5afb.tar.zst pttbbs-5175d8c924c84645e07029fe4788d9100f6b5afb.zip |
*** empty log message ***
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk@533 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
-rw-r--r-- | pttbbs/util/mvdir.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/pttbbs/util/mvdir.pl b/pttbbs/util/mvdir.pl index 1587b799..b88cab28 100644 --- a/pttbbs/util/mvdir.pl +++ b/pttbbs/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); |