summaryrefslogtreecommitdiffstats
path: root/not-maintained/ColaBBS_to_PttBBS/cnthomedir.pl
diff options
context:
space:
mode:
authorpiaip <piaip@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2009-10-06 11:51:56 +0800
committerpiaip <piaip@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2009-10-06 11:51:56 +0800
commitc5e1a71ebe811f3f1f505a07332af612581dc4df (patch)
tree97d31f47bf35e5e13407af942af00ca66feb5c7a /not-maintained/ColaBBS_to_PttBBS/cnthomedir.pl
parentf1a1d28128b14e6fb891ece172940ebca408527a (diff)
downloadpttbbs-c5e1a71ebe811f3f1f505a07332af612581dc4df.tar
pttbbs-c5e1a71ebe811f3f1f505a07332af612581dc4df.tar.gz
pttbbs-c5e1a71ebe811f3f1f505a07332af612581dc4df.tar.bz2
pttbbs-c5e1a71ebe811f3f1f505a07332af612581dc4df.tar.lz
pttbbs-c5e1a71ebe811f3f1f505a07332af612581dc4df.tar.xz
pttbbs-c5e1a71ebe811f3f1f505a07332af612581dc4df.tar.zst
pttbbs-c5e1a71ebe811f3f1f505a07332af612581dc4df.zip
* move 'not-maintained' to branch directory
git-svn-id: http://opensvn.csie.org/pttbbs/trunk@4904 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
Diffstat (limited to 'not-maintained/ColaBBS_to_PttBBS/cnthomedir.pl')
-rw-r--r--not-maintained/ColaBBS_to_PttBBS/cnthomedir.pl15
1 files changed, 0 insertions, 15 deletions
diff --git a/not-maintained/ColaBBS_to_PttBBS/cnthomedir.pl b/not-maintained/ColaBBS_to_PttBBS/cnthomedir.pl
deleted file mode 100644
index 64695a21..00000000
--- a/not-maintained/ColaBBS_to_PttBBS/cnthomedir.pl
+++ /dev/null
@@ -1,15 +0,0 @@
-#!/usr/bin/perl
-# $Id$
-# usage: cd ColaBBS/home; perl cnthomedir.pl
-use IO::All;
-`mkdir -p ~/home/$_` foreach( 'a'..'z', 'A'..'Z' );
-
-foreach( <*> ){
- next if( !-d $_ || /\./ || /^[A-Za-z]$/ );
- $USERDATA < io("$_/USERDATA.DAT");
- ($userid) = $USERDATA =~ /^(\w+)/;
- $c = substr($userid, 0, 1);
-
- `mv ~/home/$c/$userid ~/tmp/; mv $_ ~/home/$c/$userid`;
- print "$_ => $userid\n";
-}