diff -u -rN PowerEdge-RAC-0.15-ori/examples/experimental.pl PowerEdge-RAC-0.15/examples/experimental.pl
--- PowerEdge-RAC-0.15-ori/examples/experimental.pl 2003-01-08 01:31:27.000000000 +0100
+++ PowerEdge-RAC-0.15/examples/experimental.pl 2003-07-14 10:54:47.000000000 +0200
@@ -1,8 +1,17 @@
#!/usr/bin/perl -w
use strict;
-use PowerEdge::RAC;
+use PowerEdge::RAC qw(prompt);
+
+my $ip = prompt('Enter the RAC card\'s IP address : ','192.168.1.122');
+my $user = prompt('Enter the RAC username : ', 'root');
+my $pass = prompt('Enter the RAC password : ', 'calvin');
+
+my $server = new PowerEdge::RAC(
+ host => $ip,
+ user => $user,
+ password => $pass,
+);
-my $server = new PowerEdge::RAC(host => '192.168.1.120');
print $server->sysinfo();
# For testing only, uses internal functions
diff -u -rN PowerEdge-RAC-0.15-ori/examples/power_off.pl PowerEdge-RAC-0.15/examples/power_off.pl
--- PowerEdge-RAC-0.15-ori/examples/power_off.pl 2003-06-16 15:49:04.000000000 +0200
+++ PowerEdge-RAC-0.15/examples/power_off.pl 2003-07-14 10:47:29.000000000 +0200
@@ -3,7 +3,14 @@
use PowerEdge::RAC qw(prompt);
my $ip = prompt('Enter the RAC card\'s IP address : ','192.168.1.122');
-my $server = new PowerEdge::RAC(host => $ip);
+my $user = prompt('Enter the RAC username : ', 'root');
+my $pass = prompt('Enter the RAC password : ', 'calvin');
+
+my $server = new PowerEdge::RAC(
+ host => $ip,
+ user => $user,
+ password => $pass,
+);
$| = 1;
diff -u -rN PowerEdge-RAC-0.15-ori/examples/power_on.pl PowerEdge-RAC-0.15/examples/power_on.pl
--- PowerEdge-RAC-0.15-ori/examples/power_on.pl 2003-06-16 15:46:47.000000000 +0200
+++ PowerEdge-RAC-0.15/examples/power_on.pl 2003-07-14 10:50:00.000000000 +0200
@@ -3,7 +3,14 @@
use PowerEdge::RAC qw(prompt);
my $ip = prompt('Enter the RAC card\'s IP address : ','192.168.1.122');
-my $server = new PowerEdge::RAC(host => $ip);
+my $user = prompt('Enter the RAC username : ', 'root');
+my $pass = prompt('Enter the RAC password : ', 'calvin');
+
+my $server = new PowerEdge::RAC(
+ host => $ip,
+ user => $user,
+ password => $pass,
+);
$| = 1;
diff -u -rN PowerEdge-RAC-0.15-ori/examples/preserve_session.pl PowerEdge-RAC-0.15/examples/preserve_session.pl
--- PowerEdge-RAC-0.15-ori/examples/preserve_session.pl 2003-01-08 01:33:39.000000000 +0100
+++ PowerEdge-RAC-0.15/examples/preserve_session.pl 2003-07-14 10:59:07.000000000 +0200
@@ -1,11 +1,17 @@
#!/usr/bin/perl -w
use strict;
-use PowerEdge::RAC;
+use PowerEdge::RAC qw(prompt);
-# change this to your RAC's ip address
-my $ip = '192.168.1.120';
+my $ip = prompt('Enter the RAC card\'s IP address : ','192.168.1.122');
+my $user = prompt('Enter the RAC username : ', 'root');
+my $pass = prompt('Enter the RAC password : ', 'calvin');
+
+my $server = new PowerEdge::RAC(
+ host => $ip,
+ user => $user,
+ password => $pass,
+);
-my $server = new PowerEdge::RAC(host => $ip);
my $sid = $server->establish_session();
print $server->sessions();
@@ -14,9 +20,10 @@
my $s = new PowerEdge::RAC(
host => $ip,
+# user => $user,
+# password => $pass,
session_id => $sid,
);
print $s->arp();
print $s->sessions();
-
diff -u -rN PowerEdge-RAC-0.15-ori/examples/setup_monitor.pl PowerEdge-RAC-0.15/examples/setup_monitor.pl
--- PowerEdge-RAC-0.15-ori/examples/setup_monitor.pl 2003-06-16 05:24:22.000000000 +0200
+++ PowerEdge-RAC-0.15/examples/setup_monitor.pl 2003-07-14 11:10:27.000000000 +0200
@@ -197,7 +197,7 @@
it should be put somewhere in the documentroot of a webserver.
};
-my $outdir = File::Spec->catdir('/var/www/html/sensors/', $prefix);
+my $outdir = File::Spec->catdir('/www/htdocs/sensors/', $prefix);
if (-d $outdir) {
print qq{
I see you already have a directory $outdir
@@ -359,7 +359,7 @@
#!/usr/bin/rrdcgi
-Sensor readings for host: DESCRIPTION
+Sensor readings for DESCRIPTION