1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
package network::smb; # $Id$
use strict;
use diagnostics;
use common;
use network::network;
use network::smbnfs;
our @ISA = 'network::smbnfs';
sub to_fstab_entry {
my ($class, $e) = @_;
$class->to_fstab_entry_raw($e, 'smbfs');
}
sub from_dev {
my ($class, $dev) = @_;
$dev =~ m|//(.*?)/(.*)|;
}
sub to_dev_raw {
my ($class, $server, $name) = @_;
'//' . $server . '/' . $name;
}
sub check {
my ($class, $in) = @_;
$class->raw_check($in, 'samba-client', '/usr/bin/nmblookup');
}
sub find_servers {
my (undef, @l) = `nmblookup "*"`;
s/\s.*\n// foreach @l;
my @servers = grep { network::network::is_ip($_) } @l;
my %servers;
$servers{$_}{ip} = $_ foreach @servers;
my ($ip);
foreach (`nmblookup -A @servers`) {
if (my $nb = /^Looking up status of (\S+)/ .. /^$/) {
if ($nb == 1) {
$ip = $1;
} else {
/<00>/ or next;
$servers{$ip}{/<GROUP>/ ? 'group' : 'name'} ||= lc first(/(\S+)/);
}
}
}
values %servers;
}
sub find_exports {
my ($class, $server) = @_;
my @l;
my $name = $server->{name} || $server->{ip};
my $ip = $server->{ip} ? "-I $server->{ip}" : '';
my $group = $server->{group} ? " -W $server->{group}" : '';
# WARNING: using smbclient -L is ugly. It can't handle more than 15
# characters shared names
foreach (`smbclient -U% -L $name $ip$group`) {
chomp;
s/^\t//;
my ($name, $type, $comment) = unpack "A15 A10 A*", $_;
if ($name eq '---------' && $type eq '----' && $comment eq '-------' .. /^$/) {
push @l, { name => $name, type => $type, comment => $comment, server => $server }
if $type eq 'Disk' && $name !~ /\$$/;
}
}
@l;
}
1;
|
