diff options
author | piaip <piaip@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2009-10-06 11:51:56 +0800 |
---|---|---|
committer | piaip <piaip@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2009-10-06 11:51:56 +0800 |
commit | c5e1a71ebe811f3f1f505a07332af612581dc4df (patch) | |
tree | 97d31f47bf35e5e13407af942af00ca66feb5c7a /not-maintained/ColaBBS_to_PttBBS/cnthomedir.pl | |
parent | f1a1d28128b14e6fb891ece172940ebca408527a (diff) | |
download | pttbbs-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.pl | 15 |
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"; -} |