diff options
author | Till Kamppeter <tkamppeter@mandriva.com> | 2002-08-04 00:47:05 +0000 |
---|---|---|
committer | Till Kamppeter <tkamppeter@mandriva.com> | 2002-08-04 00:47:05 +0000 |
commit | 05bd579446396ff6201e77083d882810dcdfdb9f (patch) | |
tree | 176bcf03780f6c48da98bcec09ca02deffbc568c /perl-install/detect_devices.pm | |
parent | 9ece8f5ae9991f844353cd1d7e7a302e118a1c2e (diff) | |
download | drakx-backup-do-not-use-05bd579446396ff6201e77083d882810dcdfdb9f.tar drakx-backup-do-not-use-05bd579446396ff6201e77083d882810dcdfdb9f.tar.gz drakx-backup-do-not-use-05bd579446396ff6201e77083d882810dcdfdb9f.tar.bz2 drakx-backup-do-not-use-05bd579446396ff6201e77083d882810dcdfdb9f.tar.xz drakx-backup-do-not-use-05bd579446396ff6201e77083d882810dcdfdb9f.zip |
Accelerated network scanning for printers by applying "nmap" only to machines which answered to a broadcast ping before.
Completed network/SMB printer auto-detection for recommended mode.
Started network/SMB printer auto-detection for expert mode.
Diffstat (limited to 'perl-install/detect_devices.pm')
-rw-r--r-- | perl-install/detect_devices.pm | 86 |
1 files changed, 81 insertions, 5 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index dad7967b6..cb041df67 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -682,13 +682,88 @@ sub getSMBPrinterShares { return @shares; } -sub whatNetPrinter () { +sub getIPsInLocalNetworks { + + # subroutine determines the list of all hosts reachable in the local + # networks by means of pinging the broadcast addresses. + + # Read the output of "ifconfig" to determine the broadcast addresses of + # the local networks + my $dev_is_localnet = 0; + my @local_bcasts = (); + my $current_bcast = ""; + + if (-x "/sbin/ifconfig") { + local *IFCONFIG_OUT; + open IFCONFIG_OUT, "export LC_ALL=C; /sbin/ifconfig|" or die "Couldn't run \"ifconfig\"!"; + while (my $readline = <IFCONFIG_OUT>) { + # New entry ... + if ($readline =~ /^(\S+)\s/) { + my $dev = $1; + # ... for a local network (eth = ethernet, + # vmnet = VMWare, + # ethernet card connected to ISP excluded)? + $dev_is_localnet = (($dev =~ /^eth/) || ($dev =~ /^vmnet/)); + # delete previous address + $current_bcast = ""; + } + # Are we in the important line now? + if ($readline =~ /\sBcast:([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)\s/) { + # Rip out the broadcast IP address + $current_bcast = $1; + + # Are we in an entry for a local network? + if ($dev_is_localnet == 1) { + # Store current IP address + push @local_bcasts, $current_bcast; + } + } + } + close(IFCONFIG_OUT); + } + + my @addresses; + # Now ping all broadcast addresses + for my $bcast (@local_bcasts) { + local *F; + open F, "ping -w 1 -b -n $bcast | cut -f 4 -d \" \" | sed s/:// | egrep \"^[0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+\" | uniq |" or next; + while (<F>) {chomp; push @addresses, $_;} + close F; + } + + @addresses; +} + +sub whatNetPrinter { + + my ($network, $smb) = @_; + my $i; my @res; + # Which ports should be scanned? + my @portstoscan = (); + if ($smb) { + push @portstoscan, "139"; + } + if ($network) { + push @portstoscan, "4010", "4020", "4030", "5503", "9100-9104"; + } + return () if $#portstoscan < 0; + my $portlist = join (",", @portstoscan); + + # Which hosts should be scanned? + # (Applying nmap to a whole network is very time-consuming, because nmap + # waits for a certain timeout period on non-existing hosts, so we get a + # lists of existing hosts by pinging the broadcast addresses for existing + # hosts and then scanning only them, which is much faster) + my @hostips = getIPsInLocalNetworks(); + return () if $#hostips < 0; + my $hostlist = join (" ", @hostips); + # Scan network for printers local *F; - open F, "export LC_ALL=\"C\"; nmap -p 139,4010,4020,4030,5503,9100-9104 `route | egrep \"^[0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+\" | cut -f 1 -d \" \" | grep -v \"127\\.0\\.0\\.0\" | sed \"s/\\.0\$/\\.*/\"` |" || + open F, "export LC_ALL=\"C\"; nmap -p $portlist $hostlist |" || return @res; my $host = ""; my $ip = ""; @@ -754,9 +829,10 @@ sub whatNetPrinter () { #-MANUFACTURER:Hewlett-Packard; #-DESCRIPTION:HP LaserJet 1100 Printer; #-COMMAND SET:MLC,PCL,PJL; -sub whatPrinter() { - #my @res = (whatParport(), whatUsbport(), whatNetPrinter()); - my @res = (whatParport(), whatUsbport()); +sub whatPrinter { + my ($local, $network, $smb) = @_; + my @res = (($local ? (whatParport(), whatUsbport()) : ()), + ($network || $smb ? whatNetPrinter($network,$smb) : ())); grep { $_->{val}{CLASS} eq "PRINTER"} @res; } |