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

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

version 1.5, 2010/12/13 05:54:50 version 1.8, 2010/12/16 21:38:46
Line 13  BEGIN { Line 13  BEGIN {
         delete @ENV{qw(IFS CDPATH ENV BASH_ENV PATH)};          delete @ENV{qw(IFS CDPATH ENV BASH_ENV PATH)};
         $ENV{PATH} = "/bin:/usr/bin";          $ENV{PATH} = "/bin:/usr/bin";
         $|++;          $|++;
 # Flip this back on for more detailed error reporting  
 #        $SIG{__DIE__} = sub { require Carp; Carp::confess(@_); }  #        $SIG{__DIE__} = sub { require Carp; Carp::confess(@_); }
       }        }
   
Line 30  use threads; Line 29  use threads;
 use threads::shared;  use threads::shared;
   
 ##  ##
 ## Fetch our command line options  ## Fetch our command line and configuration options
 ##  ##
 my %opts    = &fetchOptions( );  my %opts    = &fetchOptions( );
 my $pidFile = "/var/run/telnetbbs.pid";  my %cfg     = &fetchConfig( );
 my $EOL     = "\015\012";  my $EOL     = "\015\012";
   
 ##   ## 
 ## These will be moved in to a config file  ## These are read in from the config file
 ##  ##
 my $DISPLAY   = ":0.0";  
 my $BBS_NAME  = "Hell's Dominion BBS";  
 my $BBS_NODE  = 0;  my $BBS_NODE  = 0;
 my $DBCONF    = "/tmp/dosbox-__NODE__.conf";  my $pidFile   = $cfg{'pidfile'}    || "/tmp/telnetbbs.pid";
 my $BBS_CMD   = "DISPLAY=$DISPLAY /usr/bin/dosbox -conf ";  my $port      = $opts{'port'}      || $cfg{'port'} || 23;
 my $LOG       = "/var/log/bbs.log";  my $DISPLAY   = $cfg{'display'}    || ":0.0";
 my $MAX_NODE  = 1;  my $BBS_NAME  = $cfg{'bbs_name'}   || "Hell's Dominion BBS";
 my $DOSBOXT   = "dosbox.conf.template";  my $DBCONF    = $cfg{'dosbox_cfg'} || "/tmp/dosbox-__NODE__.conf";
 my $BASE_PORT = 7000;  my $BBS_CMD   = $cfg{'bbs_cmd'}    || "DISPLAY=$DISPLAY /usr/bin/dosbox -conf ";
 my $LOCK_PATH = "/tmp";  my $LOGGING   = $cfg{'logging'}    || 0;
   my $LOG       = $cfg{'log_path'}   || "/tmp/bbs.log";
   my $MAX_NODE  = $cfg{'nodes'}      || 1;
   my $DOSBOXT   = $cfg{'dosboxt'}    || "dosbox.conf.template";
   my $BASE_PORT = $cfg{'base_port'}  || 7000;
   my $LOCK_PATH = $cfg{'lock_path'}  || "/tmp";
   
 ##  ##
 ## Check that we are 'root'   ## Check that we are 'root' 
 ##  ##
 die( "Must be root user to run this.\n" )  die( "Must be root user to run this.\n" )
         if ( getpwuid( $> ) ne "root" );          if ( getpwuid( $> ) ne "root" && $port < 1023 );
   
 ##  ##
 ## Check for a PID  ## Check for a PID
Line 75  local $SIG{HUP}  = $SIG{INT} = $SIG{TERM Line 77  local $SIG{HUP}  = $SIG{INT} = $SIG{TERM
 ##  ##
 ## Open the Log  ## Open the Log
 ##  ##
 #open LOG, ">>$LOG";  open LOG, ">>$LOG" if ( $LOGGING );
 &logmsg( "Starting telnetbbs server" );  &logmsg( "Starting telnetbbs server" );
   
 ##  ##
   ## Display running information
   ##
   &display_config_and_options( \%opts, "Options" );
   &display_config_and_options( \%cfg, "Configuration" );
   
   ##
 ## Start the network server  ## Start the network server
 ##  ##
 my $netThread = threads->create( \&startNetServer( ) );  my $netThread = threads->create( \&startNetServer( ) );
Line 97  while( 1 ) { sleep 1; } Line 105  while( 1 ) { sleep 1; }
 ## Sub-routines begin here  ## Sub-routines begin here
 ##  ##
 ###############################################################################  ###############################################################################
   
   
   ###############################################################################
   ##
   ## &logmsg( "string" );
   ##
   ##  This takes a string and prepends the process name, ID and timestamp
   ##  to the message.  It then displays it to STDOUT and logs it if enabled.
   ##
 ###############################################################################  ###############################################################################
   sub logmsg 
   { 
           my $message = "$0 $$ " . scalar( localtime( ) ) . ":@_\n";
           print STDOUT $message;
           print LOG $message if ( $LOGGING );
   }
   
 sub logmsg { print STDOUT "$0 $$ ", scalar localtime, ":@_\n" }  
   ###############################################################################
   ##
   ## &display_config_and_options( %hash );
   ##
   ##  This will display via Data::Dumper a hash that is passed to it.
   ##  If verbose is enabled it will got to STDOUT and if logging is enabled
   ##  it will be logged.
   ##
   ##  This is called only once during startup.
   ##
   ###############################################################################
   sub display_config_and_options
   {
           my $hr    = shift || 0;
           my $name  = shift || "Unknown";
           my $title = "Displaying $name\n";
   
           return $hr if ( ! $hr );
   
           print LOG $title . Dumper( $hr ) if ( $LOGGING );
           print STDOUT $title . Dumper( $hr ) if ( $opts{'verbose'});
   }
   
 ###############################################################################  ###############################################################################
 ## startNetServer( );  ## startNetServer( );
Line 112  sub startNetServer Line 157  sub startNetServer
 {  {
         my $hostConnection;          my $hostConnection;
         my $childPID;          my $childPID;
         my $port  = $opts{'port'} || 23;  
         my @nodes = ( );          my @nodes = ( );
   
         my $server = IO::Socket::INET->new(           my $server = IO::Socket::INET->new( 
Line 138  sub startNetServer Line 182  sub startNetServer
                 my $lock_file = "";                  my $lock_file = "";
                 foreach (1 .. $MAX_NODE)                  foreach (1 .. $MAX_NODE)
                 {                  {
 print "Searching for lock: " . $LOCK_PATH."/".$BBS_NAME."_node".$_.".lock\n";  
                         next if ( -f $LOCK_PATH."/".$BBS_NAME."_node".$_.".lock" );                          next if ( -f $LOCK_PATH."/".$BBS_NAME."_node".$_.".lock" );
   
                         ##                          ##
Line 149  print "Searching for lock: " . $LOCK_PAT Line 192  print "Searching for lock: " . $LOCK_PAT
                         close( LOCK );                          close( LOCK );
                         $node = $BBS_NODE = $_;                          $node = $BBS_NODE = $_;
                 }                  }
 print "Using lock: " . $LOCK_PATH."/".$BBS_NAME."_node".$node.".lock\n";  
   
                 ##                  ##
                 ## Create our dosbox config                  ## Create our dosbox config
Line 283  sub shutdown Line 325  sub shutdown
         ##          ##
         ## Close Log          ## Close Log
         ##          ##
         close( LOG );          close( LOG ) if ( $LOGGING );
   
         ##                ##      
         ## Remove the PID          ## Remove the PID
Line 291  sub shutdown Line 333  sub shutdown
         unlink( $pidFile );          unlink( $pidFile );
   
         ##          ##
           ## Remove node lock files
           ##
           foreach (1 .. $MAX_NODE)
           {
                   my $node_lock = $LOCK_PATH."/".$BBS_NAME."_node".$_.".lock";
                   unlink( $node_lock ) if ( -f $node_lock );
           }
   
           ##
         ## Wait for the thread to shutdown          ## Wait for the thread to shutdown
         ##          ##
 #       $netThread->detach( );    #       $netThread->detach( );  
Line 399  sub processExists Line 450  sub processExists
         return 0;          return 0;
 }  }
   
   ###############################################################################
   ###############################################################################
   sub fetchConfig 
   {
           my %conf = ( );
           my $cf   = &findConfig;
   
           if ( $cf ) 
           {
                   open( CONF, "<$cf" ) or die ( "Error opening $cf: $!\n" );
                           while( <CONF> ) 
                           {
                                   next if ( $_ =~ m/^#/ );
                                   if ( $_ =~ m/(.*?)=(.*)/ )
                                   {
                                           my $k = $1; my $v = $2;
                                           $k =~ s/\s+//;
                                           $v =~ s/\s+//;
                                           $conf{$k} = $v;
                                   }
                           }
                   close( CONF );
           }
   
           return %conf;
   }
   
   ###############################################################################
   ###############################################################################
   sub findConfig
   {
           my $cf    = 0;
           my @paths = qw| ./ ./.telnetbbs /etc /usr/local/etc |;
   
           return $opts{'config'} if defined $opts{'config'};
   
           foreach ( @paths ) 
           {
                   my $fn = $_ . "/telnetbbs.conf";
                   return $fn if ( -f $fn );
           }
   
           return $cf;
   }
   
 ###############################################################################  ###############################################################################
 ##  ##
Line 411  sub fetchOptions { Line 506  sub fetchOptions {
         my %opts;          my %opts;
   
         &GetOptions(          &GetOptions(
                           "config:s"      => \$opts{'config'},
                         "help|?"        => \$opts{'help'},                          "help|?"        => \$opts{'help'},
                         "man"           => \$opts{'man'},                          "man"           => \$opts{'man'},
                         "port:i"        => \$opts{'port'},                          "port:i"        => \$opts{'port'},
                           "verbose"       => \$opts{'verbose'},
                    ) || &pod2usage( );                     ) || &pod2usage( );
         &pod2usage( ) if defined $opts{'help'};          &pod2usage( ) if defined $opts{'help'};
         &pod2usage( { -verbose => 2, -input => \*DATA } ) if defined $opts{'man'};          &pod2usage( { -verbose => 2, -input => \*DATA } ) if defined $opts{'man'};
Line 432  telnetbbs.pl - A telnet server designed Line 529  telnetbbs.pl - A telnet server designed
 telnetbbs.pl [options]  telnetbbs.pl [options]
   
  Options:   Options:
           --config,c      Specify the configuration file to use
         --help,?        Display the basic help menu          --help,?        Display the basic help menu
         --man,m         Display the detailed man page          --man,m         Display the detailed man page
         --port,p        Port to listen on, default 23.          --port,p        Port to listen on, default 23.
           --verbose,v     Enable verbose output
   
 =head1 DESCRIPTION  =head1 DESCRIPTION
   
Removed from v.1.5  
changed lines
  Added in v.1.8

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