|
version 1.192, 2001/12/21 17:02:35
|
version 1.193, 2001/12/22 21:46:02
|
|
Line 64
|
Line 64
|
| # 12/5 Guy Albertelli |
# 12/5 Guy Albertelli |
| # 12/6,12/7,12/12 Gerd Kortemeyer |
# 12/6,12/7,12/12 Gerd Kortemeyer |
| # 12/18 Scott Harrison |
# 12/18 Scott Harrison |
| # 12/21 Gerd Kortemeyer |
# 12/21,12/22 Gerd Kortemeyer |
| # |
# |
| ### |
### |
| |
|
|
Line 1274 sub del {
|
Line 1274 sub del {
|
| # -------------------------------------------------------------- dump interface |
# -------------------------------------------------------------- dump interface |
| |
|
| sub dump { |
sub dump { |
| my ($namespace,$udomain,$uname)=@_; |
my ($namespace,$udomain,$uname,$regexp)=@_; |
| if (!$udomain) { $udomain=$ENV{'user.domain'}; } |
if (!$udomain) { $udomain=$ENV{'user.domain'}; } |
| if (!$uname) { $uname=$ENV{'user.name'}; } |
if (!$uname) { $uname=$ENV{'user.name'}; } |
| my $uhome=&homeserver($uname,$udomain); |
my $uhome=&homeserver($uname,$udomain); |
| my $rep=reply("dump:$udomain:$uname:$namespace",$uhome); |
if ($regexp) { |
| |
$regexp=&escape($regexp); |
| |
} else { |
| |
$regexp='.'; |
| |
} |
| |
my $rep=reply("dump:$udomain:$uname:$namespace:$regexp",$uhome); |
| my @pairs=split(/\&/,$rep); |
my @pairs=split(/\&/,$rep); |
| my %returnhash=(); |
my %returnhash=(); |
| foreach (@pairs) { |
foreach (@pairs) { |
|
Line 2855 namesp ($udomain and $uname are optional
|
Line 2860 namesp ($udomain and $uname are optional
|
| |
|
| =item * |
=item * |
| |
|
| dump($namespace,$udomain,$uname) : dumps the complete namespace into a hash |
dump($namespace,$udomain,$uname,$regexp) : |
| ($udomain and $uname are optional) |
dumps the complete (or key matching regexp) namespace into a hash |
| |
($udomain, $uname and $regexp are optional) |
| |
|
| =item * |
=item * |
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl