From 1562edeb23239f1c4e4daa38f77174d424859684 Mon Sep 17 00:00:00 2001
From: in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>
Date: Thu, 26 Sep 2002 18:16:12 +0000
Subject: mvdir

git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@532 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
---
 util/mvdir.pl | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 util/mvdir.pl

(limited to 'util')

diff --git a/util/mvdir.pl b/util/mvdir.pl
new file mode 100644
index 00000000..1587b799
--- /dev/null
+++ b/util/mvdir.pl
@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+if( !@ARGV ){
+    print "usage: mvdir.pl which prefix from_id to_id\n";
+    exit;
+}
+
+($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";
+
+if( !-e $fromdir ){
+    print "from dir ($fromdir) not found\n";
+    exit;
+}
+
+mkdir $todir;
+chdir $fromdir;
+foreach( <*> ){
+    next if( /^\./ );
+    symlink("$fromdir/$_", "$todir/$_");
+    push @dirs, $_;
+}
+
+unlink "/home/bbs/$which/$prefix";
+symlink($todir, "/home/bbs/$which/$prefix");
+
+foreach( @dirs ){
+    printf("processing %-20s (%04d/%04d)\n", $_, ++$index, $#dirs);
+    unlink "$todir/$_";
+    `mv $fromdir/$_ $todir/$_`;
+}
+
+rmdir "$fromdir";
-- 
cgit v1.2.3