Subversion Repositories Spectranet

[/] [trunk/] [tnfs/] [tnfs-perl/] [tnfsd.pl] - Diff between revs 237 and 255

Go to most recent revision | Show entire file | Details | Blame | View Log

Rev 237 Rev 255
Line 403... Line 403...
        # Retrieve the file handle
        # Retrieve the file handle
        my $clientHandle=unpack("C", $msg);
        my $clientHandle=unpack("C", $msg);
        my $fhnd=$FILEHANDLE{$session}->[$clientHandle];
        my $fhnd=$FILEHANDLE{$session}->[$clientHandle];
        if(defined $fhnd)
        if(defined $fhnd)
        {
        {
                closedir($fhnd);
                print("Closed handle $clientHandle\n");
 
                close($fhnd);
                delete $FILEHANDLE{$session}->[$clientHandle];
                delete $FILEHANDLE{$session}->[$clientHandle];
                sendMsg($session, 0x23, 0x00);
                sendMsg($session, 0x23, 0x00);
        }
        }
        else
        else
        {
        {