diff options
Diffstat (limited to 'fs_sesmon/FS-SessionClient/fs_sessiond')
| -rw-r--r-- | fs_sesmon/FS-SessionClient/fs_sessiond | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/fs_sesmon/FS-SessionClient/fs_sessiond b/fs_sesmon/FS-SessionClient/fs_sessiond index 74d3aab31..d7284b252 100644 --- a/fs_sesmon/FS-SessionClient/fs_sessiond +++ b/fs_sesmon/FS-SessionClient/fs_sessiond @@ -12,7 +12,7 @@ use vars qw( $Debug ); $Debug = 1; -my $fs_session_socket = "/usr/local/freeside/fs_sessiond_socket"; +my $fs_sessiond_socket = "/usr/local/freeside/fs_sessiond_socket"; $ENV{'PATH'} ='/usr/local/bin:/usr/bin:/usr/ucb:/bin'; $ENV{'SHELL'} = '/bin/sh'; @@ -29,10 +29,10 @@ warn "$me starting\n" if $Debug; #nothing to read from server warn "$me creating $fs_sessiond_socket\n" if $Debug; -my $uaddr = sockaddr_un($fs_signupd_socket); +my $uaddr = sockaddr_un($fs_sessiond_socket); my $proto = getprotobyname('tcp'); socket(Server,PF_UNIX,SOCK_STREAM,0) or die "socket: $!"; -unlink($fs_signup_socket); +unlink($fs_sessiond_socket); bind(Server, $uaddr) or die "bind: $!"; listen(Server,SOMAXCONN) or die "listen: $!"; @@ -44,8 +44,8 @@ for ( ; $paddr = accept(Client,Server); close Client) { if ( $command eq 'login' || $command eq 'logout' || $command eq 'portnum' ) { warn "$me reading data from local client\n" if $Debug; - my @data, $dos; - push @data, scalar(<Client>) until $dos++ == 99 || $data[$#data] != "END\n"; + my( @data, $dos ); + push @data, scalar(<Client>) until $dos++ == 99 || $data[$#data] eq "END\n"; if ( $dos == 99 ) { warn "$me WARNING: DoS attempt!" } else { |