Navigation

Changeset 137

Timestamp:

03/23/06 17:33:12 (3 years ago)

Author:

ludo

Message:

display tried ip addresses on error (from r3134)

Files:

r106	r137
103	103
104	104	# Try 1st the IP
	105	$ips = "";
105	106	$ip = $ether["$mac"]["ip"];
106	107	if (!stristr($ip, "dynami")) {
107	108	scanRunVNC($ip, $type, $ssh);
	109	$ips .= $ip;
108	110	}
109	111	# Then DNS
…	…
114	116	if ($ip != $name) {
115	117	scanRunVNC($ip, $type, $ssh);
	118	$ips .= " ".$ip;
116	119	}
117		# and nmblookupheader("Location: ".$_SERVER['HTTP_REFERER']);
	120
	121	# and nmblookup
118	122	$ret = exec("/usr/bin/nmblookup $name 2>&1");
119	123	preg_match("/(\d+\.\d+\.\d+\.\d+) /", $ret, $match);
…	…
121	125	if ($ip != "") {
122	126	scanRunVNC($ip, $type, $ssh);
	127	$ips .= " ".$ip;
	128	}
	129
	130	# and net lookup
	131	$ret = exec("/usr/bin/net lookup host $name 2>&1");
	132	preg_match("/^(\d+\.\d+\.\d+\.\d+)/", $ret, $match);
	133	$ip = $match[1];
	134	if ($ip != "") {
	135	scanRunVNC($ip, $type, $ssh);
	136	$ips .= " ".$ip;
123	137	}
124	138
…	…
130	144	if (strcasecmp($cols[5], $mac) == 0) {
131	145	scanRunVNC($cols[7], $type, $ssh);
	146	$ips .= " ".$ip;
132	147	}
133	148	}
…	…
137	152	echo perl_exec("lbs_header.cgi", array("remote_control", $text{'index_title'}, "index"));
138	153	$t = tmplInit(array("main" => "main.tpl", "erreur" => "erreur.tpl"));
	154	$t->set_var("IPS", $ips);
139	155	$t->pparse("out", "erreur");
140	156	echo perl_exec("lbs_footer.cgi", array("2"));