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";
-}