|
chatserver.pl |
#!/usr/local/bin/perl -Tw use Getopt::Std; use IO::Select; use IO::Socket; use strict; my $cmdname = $0; $cmdname =~ s{.*/}{}; my $usage = "Usage: $cmdname [-p port]\n"; my %opts = (); getopts('p:', \%opts); my $port = 11013; $port = $opts{'p'} if defined($opts{'p'}); die $usage unless @ARGV == 0; my $socket = new IO::Socket::INET ( LocalPort => $port, Type => SOCK_STREAM, Listen => SOMAXCONN, Reuse => 1, ); die "Unable to setup socket: $!\n" unless defined $socket; |
Gestartet wird der Dämon nur ggf. mit der Angabe
einer Portnummer, unter der sich die jeweilige
Gesprächsrunde treffen soll.
|
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000 |