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.43 by tdb, Tue Dec 18 03:51:11 2001 UTC vs.
Revision 1.44 by tdb, Tue Dec 18 04:07:17 2001 UTC

#	Line 33 | Line 33 | use vars qw (
33		$fqdn
34		$pidfile
35		$retry_wait
36	+	$ostype
37		@data
38		);
39
#	Line 46 | Line 47 | $filter_manager_port = $ARGV[1];
47		$seq_no = 1;
48		$retry_wait = 60;
49
50	+	# work out our platform, if we can.
51	+	$ostype = `uname -s`;
52	+	chomp $ostype;
53	+	$ostype = "unknown" if not defined $ostype;
54	+
55		# write our PID to a file
56		# use home dir by default
57		#$pidfile = $ENV{"HOME"};
#	Line 266 | Line 272 | sub send_udp_packet() {
272		opendir PLUGINS, $plugins_dir;
273		my(@plugins) = readdir PLUGINS;
274		foreach my $plugin (@plugins) {
275	<	push @data, `$plugins_dir/$plugin` if -x "$plugins_dir/$plugin" && -f "$plugins_dir/$plugin";
275	>	push @data, `$plugins_dir/$plugin $ostype` if -x "$plugins_dir/$plugin" && -f "$plugins_dir/$plugin";
276		}
277
278		# get some extra data

Diff Legend

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