diff options
author | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2004-10-17 16:27:38 +0800 |
---|---|---|
committer | in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2004-10-17 16:27:38 +0800 |
commit | 991354d9134797d5055bdf94d67c5e62c0b441a1 (patch) | |
tree | ec91628dd7f83b61ef7ffbc2ce0f26f6dc2b87d3 /not-maintained/ColaBBS_to_PttBBS | |
parent | 025defaad6e3dbad051174af1ba4ce6ec81fa640 (diff) | |
download | pttbbs-991354d9134797d5055bdf94d67c5e62c0b441a1.tar pttbbs-991354d9134797d5055bdf94d67c5e62c0b441a1.tar.gz pttbbs-991354d9134797d5055bdf94d67c5e62c0b441a1.tar.bz2 pttbbs-991354d9134797d5055bdf94d67c5e62c0b441a1.tar.lz pttbbs-991354d9134797d5055bdf94d67c5e62c0b441a1.tar.xz pttbbs-991354d9134797d5055bdf94d67c5e62c0b441a1.tar.zst pttbbs-991354d9134797d5055bdf94d67c5e62c0b441a1.zip |
final commit
git-svn-id: http://opensvn.csie.org/pttbbs/trunk@2259 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
Diffstat (limited to 'not-maintained/ColaBBS_to_PttBBS')
-rw-r--r-- | not-maintained/ColaBBS_to_PttBBS/README | 3 | ||||
-rw-r--r-- | not-maintained/ColaBBS_to_PttBBS/cntDIR.c | 1 | ||||
-rw-r--r-- | not-maintained/ColaBBS_to_PttBBS/cntarticle.pl | 16 | ||||
-rw-r--r-- | not-maintained/ColaBBS_to_PttBBS/cntbrd.c | 1 | ||||
-rw-r--r-- | not-maintained/ColaBBS_to_PttBBS/cnthomeDIR.c | 1 | ||||
-rw-r--r-- | not-maintained/ColaBBS_to_PttBBS/cnthomedir.pl | 1 | ||||
-rw-r--r-- | not-maintained/ColaBBS_to_PttBBS/cntmail.pl | 1 | ||||
-rw-r--r-- | not-maintained/ColaBBS_to_PttBBS/cntpasswd.c | 1 |
8 files changed, 21 insertions, 4 deletions
diff --git a/not-maintained/ColaBBS_to_PttBBS/README b/not-maintained/ColaBBS_to_PttBBS/README index 9e6a2588..1fdd1b87 100644 --- a/not-maintained/ColaBBS_to_PttBBS/README +++ b/not-maintained/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/not-maintained/ColaBBS_to_PttBBS/cntDIR.c b/not-maintained/ColaBBS_to_PttBBS/cntDIR.c index 64de25b3..bdbbe340 100644 --- a/not-maintained/ColaBBS_to_PttBBS/cntDIR.c +++ b/not-maintained/ColaBBS_to_PttBBS/cntDIR.c @@ -1,3 +1,4 @@ +/* $Id$ */ #include "bbs.h" /* usage: apply "mv %1/.DIR %1/.DIR.colabbs; diff --git a/not-maintained/ColaBBS_to_PttBBS/cntarticle.pl b/not-maintained/ColaBBS_to_PttBBS/cntarticle.pl index 0567d378..36419b5a 100644 --- a/not-maintained/ColaBBS_to_PttBBS/cntarticle.pl +++ b/not-maintained/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/not-maintained/ColaBBS_to_PttBBS/cntbrd.c b/not-maintained/ColaBBS_to_PttBBS/cntbrd.c index 23f28849..946018e7 100644 --- a/not-maintained/ColaBBS_to_PttBBS/cntbrd.c +++ b/not-maintained/ColaBBS_to_PttBBS/cntbrd.c @@ -1,3 +1,4 @@ +/* $Id$ */ #include "bbs.h" /* usage: ./cntbrd < ColaBBS/.BOARDS > ~/.BRD */ diff --git a/not-maintained/ColaBBS_to_PttBBS/cnthomeDIR.c b/not-maintained/ColaBBS_to_PttBBS/cnthomeDIR.c index a0ca6c8d..a94cac6e 100644 --- a/not-maintained/ColaBBS_to_PttBBS/cnthomeDIR.c +++ b/not-maintained/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/not-maintained/ColaBBS_to_PttBBS/cnthomedir.pl b/not-maintained/ColaBBS_to_PttBBS/cnthomedir.pl index acb6fd28..3e36fb8e 100644 --- a/not-maintained/ColaBBS_to_PttBBS/cnthomedir.pl +++ b/not-maintained/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/not-maintained/ColaBBS_to_PttBBS/cntmail.pl b/not-maintained/ColaBBS_to_PttBBS/cntmail.pl index a5d6396f..bb67f49a 100644 --- a/not-maintained/ColaBBS_to_PttBBS/cntmail.pl +++ b/not-maintained/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/not-maintained/ColaBBS_to_PttBBS/cntpasswd.c b/not-maintained/ColaBBS_to_PttBBS/cntpasswd.c index ca0f419e..fd9f778a 100644 --- a/not-maintained/ColaBBS_to_PttBBS/cntpasswd.c +++ b/not-maintained/ColaBBS_to_PttBBS/cntpasswd.c @@ -1,3 +1,4 @@ +/* $Id$ */ #include "bbs.h" /* usage: ./cntpasswd < ColaBBS/.PASSWDS > ~/.PASSWDS */ |