I'm currently trying to figure out the correct IP address for the DTU
using the following perl script:
#!/usr/bin/perl
my $line;
my @array;
my $ip;
my $junk;
my $user = $ENV{USER};
open(WHO, "/opt/SUNWut/bin/utwho -c|");
open(LOG, ">>/tmp/log.txt");
while (<WHO>) {
$line = $_;
@array = split (' +\s', $line, 5);
print LOG "User: $user $array[1]\n";
if ($user eq $array[1]) {
($ip, $junk) = split(' ', $array[2], 2);
print LOG "IP: $ip\n";
if ($ip =~ "192.168") {
system("/opt/SUNWut/bin/utswitch -h 192.168.100.12");
}
else {
system("/opt/SUNWut/bin/utswitch -h
sunfire5.engr.colostate.edu");
}
break;
}
}
close(WHO);
close(LOG);
The problem I'm running into is the case with the following two utwho -c
out lines:
2.0 pseudo.00144f946d3e engr85 192.168.102.208
P8-FS.00144f946d3e
10.0 pseudo.00144fd18d32 engr48 129.82.229.249
P8-FS.00144fd18d32
The space in the beginning of the first utwho output is throwing my
whole split return in the dumps. Just wonder if there is a better way
in getting the IP of the DTU you are on when running in kiosk mode? Is
the an environment variable set for the IP of the DTU?
--
C. J. Keist Email: [email protected]
UNIX/Network Manager Phone: 970-491-0630
Engineering Network Services Fax: 970-491-5569
College of Engineering, CSU
Ft. Collins, CO 80523-1301
All I want is a chance to prove 'Money can't buy happiness'
_______________________________________________
SunRay-Users mailing list
[email protected]
http://www.filibeto.org/mailman/listinfo/sunray-users
