From af82c7af0d9f6834866ad4a68ef3253c664878a7 Mon Sep 17 00:00:00 2001 From: in2 Date: Mon, 30 Sep 2002 05:42:58 +0000 Subject: *** empty log message *** git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@533 63ad8ddf-47c3-0310-b6dd-a9e9d9715204 --- util/mvdir.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'util/mvdir.pl') 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); -- cgit v1.2.3