final commit

git-svn-id: http://opensvn.csie.org/pttbbs/trunk/not-maintained@2259 63ad8ddf-47c3-0310-b6dd-a9e9d9715204

8 files changed, 21 insertions, 4 deletions

diff --git a/ColaBBS_to_PttBBS/README b/ColaBBS_to_PttBBS/README
index 9e6a2588..1fdd1b87 100644
--- a/ColaBBS_to_PttBBS/README
+++ b/ColaBBS_to_PttBBS/README
@@ -5,6 +5,7 @@ to do this. I hacked the data structures with only VERY LITTLE
 information directly from files, and these may NOT work. You sould NOT
 use if you don't have programming background, or contact(make a
 offer?) me in2 _AT_ in2home.org.
+the Id of this file is $Id$ .
 
 please follow the step:
 1. backup your ColaBBS.
@@ -34,3 +35,5 @@ please follow the step:
 	apply "rmdir %1/mail" */*;			\
 	apply "cnthomeDIR < %1/.DIR.colabbs > %1/.DIR";	\
 	cntarticle.pl */*
+8. tranfer man
+   use cntDIR to convert .DIR and cntarticle.pl for articles.
diff --git a/ColaBBS_to_PttBBS/cntDIR.c b/ColaBBS_to_PttBBS/cntDIR.c
index 64de25b3..bdbbe340 100644
--- a/ColaBBS_to_PttBBS/cntDIR.c
+++ b/ColaBBS_to_PttBBS/cntDIR.c
@@ -1,3 +1,4 @@
+/* $Id$ */
 #include "bbs.h"
 /*
     usage: apply "mv %1/.DIR %1/.DIR.colabbs; 
diff --git a/ColaBBS_to_PttBBS/cntarticle.pl b/ColaBBS_to_PttBBS/cntarticle.pl
index 0567d378..36419b5a 100644
--- a/ColaBBS_to_PttBBS/cntarticle.pl
+++ b/ColaBBS_to_PttBBS/cntarticle.pl
@@ -1,12 +1,20 @@
 #!/usr/bin/perl
+# $Id$
 use IO::All;
 die "usage: cntarticle.pl [base dir]"
     if( !@ARGV );
 
-foreach( @ARGV ){
-    print "converting: $_\n";
-    convert($_)
-	foreach( <$_/M.*.A> );
+@proc = @ARGV;
+while( $dir = pop @proc ){
+    print "converting: $dir\n";
+    while( <$dir/*> ){
+	next if( /^\./ );
+	if( -d $_ ){
+	    push @proc, $_;
+	} elsif( /M\..*\.A/ ){
+	    convert($_);
+	}
+    }
 }
 
 sub convert
diff --git a/ColaBBS_to_PttBBS/cntbrd.c b/ColaBBS_to_PttBBS/cntbrd.c
index 23f28849..946018e7 100644
--- a/ColaBBS_to_PttBBS/cntbrd.c
+++ b/ColaBBS_to_PttBBS/cntbrd.c
@@ -1,3 +1,4 @@
+/* $Id$ */
 #include "bbs.h"
 /* usage: ./cntbrd < ColaBBS/.BOARDS > ~/.BRD */
 
diff --git a/ColaBBS_to_PttBBS/cnthomeDIR.c b/ColaBBS_to_PttBBS/cnthomeDIR.c
index a0ca6c8d..a94cac6e 100644
--- a/ColaBBS_to_PttBBS/cnthomeDIR.c
+++ b/ColaBBS_to_PttBBS/cnthomeDIR.c
@@ -1,3 +1,4 @@
+/* $Id$ */
 #include "bbs.h"
 /* please run cnthomedir.pl first!
    cd home/; apply "mv %1/mail/* %1/" * / *
diff --git a/ColaBBS_to_PttBBS/cnthomedir.pl b/ColaBBS_to_PttBBS/cnthomedir.pl
index acb6fd28..3e36fb8e 100644
--- a/ColaBBS_to_PttBBS/cnthomedir.pl
+++ b/ColaBBS_to_PttBBS/cnthomedir.pl
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+# $Id$
 # usage: cd ColaBBS/home; perl cnthomedir.pl
 use IO::All;
 foreach( <*> ){
diff --git a/ColaBBS_to_PttBBS/cntmail.pl b/ColaBBS_to_PttBBS/cntmail.pl
index a5d6396f..bb67f49a 100644
--- a/ColaBBS_to_PttBBS/cntmail.pl
+++ b/ColaBBS_to_PttBBS/cntmail.pl
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+# $Id$
 use IO::All;
 die "usage: cntarticle.pl [base dir]"
     if( !@ARGV );
diff --git a/ColaBBS_to_PttBBS/cntpasswd.c b/ColaBBS_to_PttBBS/cntpasswd.c
index ca0f419e..fd9f778a 100644
--- a/ColaBBS_to_PttBBS/cntpasswd.c
+++ b/ColaBBS_to_PttBBS/cntpasswd.c
@@ -1,3 +1,4 @@
+/* $Id$ */
 #include "bbs.h"
 /* usage: ./cntpasswd < ColaBBS/.PASSWDS > ~/.PASSWDS */