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

Diff for /telnetbbs/telnetbbs.pl between versions 1.1 and 1.2

version 1.1, 2010/01/06 05:19:47 version 1.2, 2010/01/06 13:33:19
Line 35  use threads::shared; Line 35  use threads::shared;
 my %opts    = &fetchOptions( );  my %opts    = &fetchOptions( );
 my $pidFile = "/var/run/telnetbbs.pid";  my $pidFile = "/var/run/telnetbbs.pid";
 my $EOL     = "\015\012";  my $EOL     = "\015\012";
   my $BBS_NAME = "Hell's Dominion BBS";
   
 ##  ##
 ## Check that we are 'root'   ## Check that we are 'root' 
Line 91  sub startNetServer Line 92  sub startNetServer
 {  {
         my $hostConnection;          my $hostConnection;
         my $childPID;          my $childPID;
         my $port = $opts{'port'};          my $port = $opts{'port'} || 23;
         my $node = 1;          my $node = 1;
   
         my $server = IO::Socket::INET->new(           my $server = IO::Socket::INET->new( 
Line 124  sub startNetServer Line 125  sub startNetServer
                 ##                  ##
                 $hostConnection->autoflush( 1 );                  $hostConnection->autoflush( 1 );
   
                 print $hostConnection "Welcome to Hell's Dominion BBS!" . $EOL;                  print $hostConnection "Welcome to $BBS_NAME!" . $EOL;
                 print $hostConnection "Starting BBS on node $node...$EOL";                  print $hostConnection "Starting BBS on node $node...$EOL";
   
                 ##                  ##
Line 319  sub fetchOptions { Line 320  sub fetchOptions {
         &GetOptions(          &GetOptions(
                         "help|?"        => \$opts{'help'},                          "help|?"        => \$opts{'help'},
                         "man"           => \$opts{'man'},                          "man"           => \$opts{'man'},
                         "port:i"                => \$opts{'port'},                          "port:i"        => \$opts{'port'},
                    ) || &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 331  __END__ Line 332  __END__
   
 =head1 NAME  =head1 NAME
   
 masterbuild.pl - blurb  telnetbbs.pl - A telnet server designed to launch a multi-node BBS.
   
 =head1 SYNOPSIS  =head1 SYNOPSIS
   
 masterbuild.pl [options]  telnetbbs.pl [options]
   
  Options:   Options:
         --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.
   
 =head1 DESCRIPTION  =head1 DESCRIPTION
   
Removed from v.1.1  
changed lines
  Added in v.1.2

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