Re: nocat with samba

>Morning

Perl Version 5.8.1
Authen::SMB Version 0.91-1


Thanks you all for you help so-far in resolving this problem with Authen::Smb.

I've trace the error to:

Wed Jan 19 12:29:18 2005] [error] [client 10.x.x.x] [2005-01-19 12:29:18] 
Use of uninitialized value in substr at 
/usr/lib/perl5/site_perl/5.8.1/i586-linux-thread-multi/Authen/Smb.pm line 
29, <FILE> line 1., referer: https://x.x.x.x.x/cgi-
[Wed Jan 19 12:29:18 2005] [error] [client x.x.x.x] [2005-01-19 12:29:18] 
Samba returned 1 for user


Line 29 of smb.pm is,  $args[$i] = substr($args[$i], 0, 80);

$VERSION = '0.91';

sub authen {
   my @args = @_;

   # Truncate everything to length 80 to avoid poor coding practices in the
   # smbvalid.a (buffer overflows) PMK--fixme in smbvalid.a when possible.
   for my $i ( 0..$#args ) {
     $args[$i] = substr($args[$i], 0, 80);
   }

   my($username, $password, $server, $backup, $domain) = @args;

   my $res = Valid_User($username, $password, $server, $backup, $domain);
   $res
}

Have any comes across this error?

Dan