#! /usr/bin/perl -w

use strict;

open IN, '/usr/local/bin/smbstatus -L 2>/dev/null |'
    or die "Cannot open input pipe from smbstatus: $!\n";

while( <IN> ) {
    chomp;
    last if /^-*$/;
}

while( <IN> ) {
    chomp;
    my( $pid, $mode, $rw, $oplock, $rest ) = split(' ', $_, 5);
    my( $name, $dayname, $mon, $day, $timestamp, $year ) =
        ($rest =~ /(.*?)\s+(\S{3})\s+(\S{3})\s+(\d+)\s+(\d+:\d+:\d+)\s+(\d+)$/);
    last unless defined $pid;
    print "[$pid] [$name]\n";
}