ViewVC Help

View File | Revision Log | Show Annotations | Revision Graph | Root Listing

root/i-scream/projects/cms/source/host/ihost-perl/ihost.pl

Comparing projects/cms/source/host/ihost-perl/ihost.pl (file contents):
Revision 1.13 by pjm2, Mon Feb 5 17:14:41 2001 UTC vs.
Revision 1.27 by pjm2, Wed Mar 14 18:00:16 2001 UTC

#	Line 32 | Line 32 | use vars qw (
32		$tcp_port
33		$filter_addr
34		$file_list
35	+	$fqdn
36	+	$pidfile
37		);
38
39		if (@ARGV != 2) {
#	Line 43 | Line 45 | $filter_manager_port = $ARGV[1];
45
46		$seq_no = 1;
47
48	+	# write our PID to a file
49	+	$pidfile = "/var/tmp/ihost.pid";
50	+	&write_pid();
51	+
52		&tcp_configure();
53		&send_udp_packet();
54
#	Line 70 | Line 76 | while (1) {
76		`sleep $delay`;
77		}
78
79	+	# we'll probably never get here...
80	+	`rm -f $pidfile`;
81		exit(0);
82
83
#	Line 85 | Line 93 | sub tcp_configure() {
93		PeerAddr => $filter_manager_addr,
94		PeerPort => $filter_manager_port,
95		Proto => 'tcp'
96	<	);
96	>	) or die "Cannot connect!";
97		if (!defined $sock) {
98		print "IHOST ERROR: Could not connect to $filter_manager_addr:$filter_manager_port.\n";
99		print "Please check that there is an i-scream server at this address.\n";
#	Line 119 | Line 127 | sub tcp_configure() {
127
128		print "File list obtained: $file_list\n";
129
130	+	print $sock "FQDN\n";
131	+	$response = <$sock>;
132	+	chop $response;
133	+	$fqdn = $response;
134	+
135	+	print "FQDN returned: $fqdn\n";
136	+
137		print $sock "UDPUpdateTime\n";
138		$response = <$sock>;
139		chop $response;
#	Line 143 | Line 158 | sub tcp_configure() {
158
159		print $sock "FILTER\n";
160		$response = <$sock>;
161	+	unless (defined($response)) {
162	+	print "Failed: Could not get a filter address from the filter manager.\n";
163	+	exit(1);
164	+	}
165		chop $response;
166		$response =~ /(.*);(.*);(.*)/;
167		($filter_addr, $udp_port, $tcp_port) = ($1, $2, $3);
168	+	unless (defined($filter_addr) && defined($udp_port) && defined($tcp_port)) {
169	+	print "Failed: Filter address response from server did not make sense: $response\n";
170	+	exit(1);
171	+	}
172
173		print "Got filter data ($filter_addr, $udp_port, $tcp_port)\n";
174
#	Line 190 | Line 213 | sub send_udp_packet() {
213		my($disk_info) = "<disk>";
214		my($i) = 0;
215		while (defined $packet{"packet.disk.p$i.attributes.mount"}) {
216	<	$disk_info .= "<p$i>";
217	<	$disk_info .= qq/<name>$packet{"packet.disk.p$i.attributes.name"}<\/name>/;
218	<	$disk_info .= qq/<kbytes>$packet{"packet.disk.p$i.attributes.kbytes"}<\/kbytes>/;
219	<	$disk_info .= qq/<used>$packet{"packet.disk.p$i.attributes.used"}<\/used>/;
220	<	$disk_info .= qq/<avail>$packet{"packet.disk.p$i.attributes.avail"}<\/avail>/;
221	<	$disk_info .= qq/<mount>$packet{"packet.disk.p$i.attributes.mount"}<\/mount>/;
222	<	$disk_info .= "</p$i>";
216	>	$disk_info .= "<p$i";
217	>	$disk_info .= " name=\"" . $packet{"packet.disk.p$i.attributes.name"} . "\"";
218	>	$disk_info .= " kbytes=\"" . $packet{"packet.disk.p$i.attributes.kbytes"} . "\"";
219	>	$disk_info .= " used=\"" . $packet{"packet.disk.p$i.attributes.used"} . "\"";
220	>	$disk_info .= " avail=\"" . $packet{"packet.disk.p$i.attributes.avail"} . "\"";
221	>	$disk_info .= " mount=\"" . $packet{"packet.disk.p$i.attributes.mount"} . "\"";
222	>	$disk_info .= "></p$i>";
223		++$i;
224		}
225		$disk_info .= "</disk>";
226
227	<	print "$disk_info\n";
227	>	my($ip) = inet_ntoa(scalar(gethostbyname(hostname())) || 'localhost');
228
206	–	my($hostname) = hostname();
207	–	$hostname =~ s/\..*$//g;
208	–	`cat /etc/resolv.conf` =~ /domain\s+([^\s]+)/;
209	–	my($domainname) = $1;
210	–	my($machine_name) = "$hostname.$domainname";
211	–	my($ip) = inet_ntoa(scalar(gethostbyname($hostname)) || 'localhost');
212	–
229		# Build the XML packet this way, as we can clearly
230		# see the structure and contents... I like this ;-)
231		# [Note that the server rejects UDP packets that are
232		# larger than 8196 bytes]
233		my($xml) = <<EOF;
234
235	<	<packet seq_no="$seq_no" machine_name="$machine_name" date="$date" type="data" ip="$ip">
235	>	<packet seq_no="$seq_no" machine_name="$fqdn" date="$date" type="data" ip="$ip">
236		<load>
237		<load1>$packet{"packet.load.load1"}</load1>
238		<load5>$packet{"packet.load.load5"}</load5>
#	Line 263 | Line 279 | EOF
279
280		# Make the packet smaller by stripping out newlines and leading spaces.
281		$xml =~ s/\n\s*//g;
282	<
282	>
283		my($sock) = new IO::Socket::INET (
284		PeerPort => $udp_port,
285		PeerAddr => $filter_addr,
286		Proto => 'udp'
287	<	) or die "Socket: $!\n";
287	>	) or die "Could not send UDP: $!\n";
288
289		print $sock $xml or die "Could not send UDP packet: $!\n";
290		close($sock);
#	Line 292 | Line 308 | sub send_tcp_heartbeat() {
308		PeerAddr => $filter_addr,
309		PeerPort => $tcp_port,
310		Proto => 'tcp'
311	<	);
311	>	) or return;
312		if (!defined $sock) {
313		print "IHOST WARNING: Failed to deliver a heartbeat to the i-scream filter.\n";
314	+	&tcp_configure();
315		return;
316		}
317
#	Line 303 | Line 320 | sub send_tcp_heartbeat() {
320
321		print $sock "HEARTBEAT\n";
322		$response = <$sock>;
323	+	return if (!defined $response);
324		chop $response;
325		if (!$response eq "OK") {
326		close($sock);
327		print "Server gave wrong response to HEARTBEAT: $response\n";
328	+	&tcp_configure();
329		return;
330		}
331
332		print $sock "CONFIG\n";
333		$response = <$sock>;
334	+	return if (!defined $response);
335		chop $response;
336		if (!$response eq "OK") {
337		close($sock);
338		print "Server gave wrong response to CONFIG: $response\n";
339	+	&tcp_configure();
340		return;
341		}
342
343		print $sock "$file_list\n";
344		$response = <$sock>;
345	+	return if (!defined $response);
346		chop $response;
347		if (!$response eq "OK") {
348		close($sock);
349		print "Server gave wrong response to file list: $response\n";
350	+	&tcp_configure();
351		return;
352		}
353
354		print $sock "$last_modified\n";
355		$response = <$sock>;
356	+	return if (!defined $response);
357		chop $response;
358		if ($response eq "ERROR") {
359		close($sock);
360	+	print "Server configuration changed.  Reconfiguring with filter manager.\n";
361		&tcp_configure();
362		return;
363		}
364		if (!$response eq "OK") {
365		close($sock);
366		print "Server gave wrong response to HEARTBEAT: $response\n";
367	+	&tcp_configure();
368		return;
369		}
370
371		print $sock "ENDHEARTBEAT\n";
372		$response = <$sock>;
373	+	return if (!defined $response);
374		chop $response;
375		if (!$response eq "OK") {
376		close($sock);
377		print "Server gave wrong response to ENDHEARTBEAT: $response\n";
378	+	&tcp_configure();
379		return;
380		}
381
382		close($sock);
383		print "^";
384	+
385	+	return;
386	+	}
387	+
388	+	#-----------------------------------------------------------------------
389	+	# write_pid
390	+	# Writes the PID (process ID) of this instance to $pidfile.
391	+	# This is then used by a seperate script to check (and restart) ihost.
392	+	#-----------------------------------------------------------------------
393	+	sub write_pid() {
394	+	open PID, ">$pidfile";
395	+	print PID $$;
396	+	close PID;
397
398		return;
399		}

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines