[BACK]Return to telnetbbs.pl CVS log [TXT] [DIR] Up to [Local Repository] / telnetbbs

Diff for /telnetbbs/telnetbbs.pl between versions 1.8 and 1.9

version 1.8, 2010/12/16 21:38:46 version 1.9, 2010/12/16 21:53:41
Line 182  sub startNetServer Line 182  sub startNetServer
                 my $lock_file = "";                  my $lock_file = "";
                 foreach (1 .. $MAX_NODE)                  foreach (1 .. $MAX_NODE)
                 {                  {
                         next if ( -f $LOCK_PATH."/".$BBS_NAME."_node".$_.".lock" );                          $lock_file = $LOCK_PATH . "/" . $BBS_NAME . 
                                        "_node" . $_ . ".lock";
                           next if ( -f $lock_file );
   
                         ##                          ##
                         ## Create node lock file                          ## Create node lock file
                         ##                          ##
                         $lock_file = $LOCK_PATH."/".$BBS_NAME."_node".$_.".lock";  
                         open LOCK, ">$lock_file";                          open LOCK, ">$lock_file";
                         close( LOCK );                          close( LOCK );
                         $node = $BBS_NODE = $_;                          $node = $BBS_NODE = $_;
Line 451  sub processExists Line 452  sub processExists
 }  }
   
 ###############################################################################  ###############################################################################
   ##
   ## %config_hash = &fetchConfig( );
   ##
   ##  This reads in a file in the format of "key = value" and stores them
   ## in to a hash of $hash{$key} = $value.  Lines starting with '#' are 
   ## considered comments and ignored.
   ##
 ###############################################################################  ###############################################################################
 sub fetchConfig   sub fetchConfig 
 {  {
Line 478  sub fetchConfig Line 486  sub fetchConfig
 }  }
   
 ###############################################################################  ###############################################################################
   ##
   ## my $file = &fetchConfig( );
   ##
   ##  This function will look for 'telnetbbs.conf' or whatever was specified
   ##  on the command line.  It will search the @paths below for the default
   ##  filename if none is specifed.
   ##
 ###############################################################################  ###############################################################################
 sub findConfig  sub findConfig
 {  {
Removed from v.1.8  
changed lines
  Added in v.1.9

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>