#! /usr/bin/perl
use strict;

$ARGV[0] =~ m/^(\d\d?\d?\.\d\d?\d?\.\d\d?\d?\.\d\d?\d?)-(.+)$/;
my $ip = $1;
my $share = $2;
if (!$ip) {
        exit(1);
}
my $name;
foreach (`nmblookup -A $ip`) {
        if (m/^\t(.*[^\s])\s*<00> -  /) {
                $name=$1;
        }
}
if (!$name) {
        exit(1);
}
$name =~ s/ /\\ /g;
$share =~ s/ /\\ /g;
print "-fstype=smbfs,guest,ip=$ip ://$name/$share\n";