diff options
Diffstat (limited to 'not-maintained/ColaBBS_to_PttBBS/cnthomedir.pl')
| -rw-r--r-- | not-maintained/ColaBBS_to_PttBBS/cnthomedir.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/not-maintained/ColaBBS_to_PttBBS/cnthomedir.pl b/not-maintained/ColaBBS_to_PttBBS/cnthomedir.pl index 3e36fb8e..64695a21 100644 --- a/not-maintained/ColaBBS_to_PttBBS/cnthomedir.pl +++ b/not-maintained/ColaBBS_to_PttBBS/cnthomedir.pl @@ -2,8 +2,10 @@ # $Id$ # usage: cd ColaBBS/home; perl cnthomedir.pl use IO::All; +`mkdir -p ~/home/$_` foreach( 'a'..'z', 'A'..'Z' ); + foreach( <*> ){ - next if( !-d $_ || /\./ ); + next if( !-d $_ || /\./ || /^[A-Za-z]$/ ); $USERDATA < io("$_/USERDATA.DAT"); ($userid) = $USERDATA =~ /^(\w+)/; $c = substr($userid, 0, 1); |