From 5d1b3b61fce5737953e155ffd12c3f63c031c298 Mon Sep 17 00:00:00 2001
From: in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>
Date: Thu, 23 Jun 2005 17:04:32 +0000
Subject: enhance

git-svn-id: http://opensvn.csie.org/pttbbs/trunk@2863 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
---
 not-maintained/ColaBBS_to_PttBBS/cnthomedir.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'not-maintained/ColaBBS_to_PttBBS/cnthomedir.pl')

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);
-- 
cgit v1.2.3