#!/opt/perl5/bin/perl -w

sub getdata {
	foreach $f (`remsh $probe ls /var/adm/sa`) {
		chop $f;
	
		print "Reading data: $probe\t$f\n";
	
		open (OUT,">$probe.$f.cpu");
		@data = `remsh $probe /usr/sbin/sar -u -f /var/adm/sa/$f`;
		print OUT @data;
		close(OUT);

		open (OUT,">$probe.$f.buffer");
		@data = `remsh $probe /usr/sbin/sar -b -f /var/adm/sa/$f`;
		print OUT @data;
		close(OUT);

		open (OUT,">$probe.$f.drives");
		@data = `remsh $probe /usr/sbin/sar -d -f /var/adm/sa/$f`;
		print OUT @data;
		close(OUT);

		open (OUT,">$probe.$f.tty");
		@data = `remsh $probe /usr/sbin/sar -y -f /var/adm/sa/$f`;
		print OUT @data;
		close(OUT);

		open (OUT,">$probe.$f.syscall");
		@data = `remsh $probe /usr/sbin/sar -c -f /var/adm/sa/$f`;
		print OUT @data;
		close(OUT);

		open (OUT,">$probe.$f.ss");
		@data = `remsh $probe /usr/sbin/sar -w -f /var/adm/sa/$f`;
		print OUT @data;
		close(OUT);

		open (OUT,">$probe.$f.file");
		@data = `remsh $probe /usr/sbin/sar -a -f /var/adm/sa/$f`;
		print OUT @data;
		close(OUT);

		open (OUT,">$probe.$f.tables");
		@data = `remsh $probe /usr/sbin/sar -v -f /var/adm/sa/$f`;
		print OUT @data;
		close(OUT);

		open (OUT,">$probe.$f.mesg");
		@data = `remsh $probe /usr/sbin/sar -m -f /var/adm/sa/$f`;
		print OUT @data;
		close(OUT);

	}
}

$probe = "m3hs2p0";
getdata;

$probe = "m3hs1p0";
getdata;

#finis
exit(0);