Return to telnetbbs.pl CVS log | Up to [Local Repository] / telnetbbs |
version 1.10, 2010/12/17 20:15:24 | version 1.11, 2010/12/20 20:51:39 |
---|---|
Line 206 print "Using node: $node\n"; | Line 206 print "Using node: $node\n"; |
my @dbt = <DBT>; | my @dbt = <DBT>; |
close( DBT ); | close( DBT ); |
my $bpn = $BASE_PORT + $BBS_NODE; | my $bpn = $BASE_PORT + $BBS_NODE - 1; |
$DBCONF =~ s/__NODE__/$BBS_NODE/g; | $DBCONF =~ s/__NODE__/$BBS_NODE/g; |
open( DBC, ">$DBCONF" ); | open( DBC, ">$DBCONF" ); |
foreach( @dbt ) | foreach( @dbt ) |