getbackup.pl

git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@77 63ad8ddf-47c3-0310-b6dd-a9e9d9715204

1 files changed, 31 insertions, 0 deletions

diff --git a/util/getbackup.pl b/util/getbackup.pl
new file mode 100644
index 00000000..5e566066
--- /dev/null
+++ b/util/getbackup.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/perl
+if( !@ARGV ){
+    print "usage:\tgetbackup.pl\tbrd BRDNAME\n";
+    print "\t\t\tman BRDNAME\n";
+    print "\t\t\tusr USERID [all|fav|frlist]\n";
+}
+
+chdir "/home/bbs/backup/";
+
+$prefix = substr($ARGV[1], 0, 1);
+if( $ARGV[0] eq 'usr' ){
+    `rm -Rf home`;
+    `tar zxvf home.$prefix.tgz home/$prefix/$ARGV[1]`;
+    if( $ARGV[2] ne 'all' && $ARGV[2] ne 'fav' && $ARGV[2] ne 'frlist' ){
+	print "usr command '$ARGV[2]' unknown\n";
+	exit;
+    }
+    if( $ARGV[2] eq 'all' ){
+	`rm -Rf /home/bbs/home/$prefix/$ARGV[1]`;
+	`mv home/$prefix/$ARGV[1] /home/bbs/home/$prefix/$ARGV[1]`;
+    }
+    elsif( $ARGV[2] eq 'fav' ){
+	`mv home/$prefix/$ARGV[1]/.fav /home/bbs/home/$prefix/$ARGV[1]/.fav`;
+    }
+    elsif( $ARGV[2] eq 'frlist' ){
+	`mv home/$prefix/$ARGV[1]/overrides /home/bbs/home/$prefix/$ARGV[1]/overrides`;
+    }
+}
+elsif( $ARGV[0] eq 'man' ){
+}
+