mirrors/scst
1
0
Fork 0
mirror of https://github.com/SCST-project/scst.git synced 2026-05-17 02:31:27 +00:00
Code Issues Packages Projects Releases Wiki Activity

- Finish -list_sessions.

Browse Source 
git-svn-id: http://svn.code.sf.net/p/scst/svn/trunk@2001 d57e44dd-8a1f-0410-8b47-8ef2f437770f
This commit is contained in:
Mark Buechler
2010-08-25 19:44:51 +00:00
parent f6f3e8f03e
commit 92467af270
2 changed files with 38 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
scstadmin/scstadmin.sysfs/scst-0.9.00/lib/SCST/SCST.pm
View File

@@ -3241,6 +3241,7 @@ sub sessions {
}
foreach my $attribute (readdir($pHandle)) {
next if (($attribute eq '.') || ($attribute eq '..'));
my $pPath = mkpath($sPath, $attribute);
if ($attribute eq 'luns') {

37
scstadmin/scstadmin.sysfs/scstadmin
View File

@@ -2148,7 +2148,44 @@ sub listTargets {
}
sub listSessions {
my $drivers = $SCST->drivers();
foreach my $driver (@{$drivers}) {
my $targets = $SCST->targets($driver);
foreach my $target (@{$targets}) {
my $had_sessions = FALSE;
print "Driver/Target: $driver/$target\n\n";
my $sessions = $SCST->sessions($driver, $target);
foreach my $session (keys %{$sessions}) {
print "\tSession: $session\n\n";
my %attributes;
foreach my $attr (keys %{$$sessions{$session}}) {
if ($attr eq 'luns') {
foreach my $lun (keys %{$$sessions{$session}->{'luns'}}) {
$attributes{"LUN $lun"}->{'value'} =
$$sessions{$session}->{'luns'}->{$lun};
}
} else {
$attributes{$attr}->{'value'} = $$sessions{$session}->{$attr};
}
}
listAttributes(\%attributes, TRUE);
print "\n";
$had_sessions = TRUE;
}
if (!$had_sessions) {
print "\t(no sessions)\n\n";
}
}
}
}
sub listGroup {