version 1.18, 2022/02/01 23:13:21
|
version 1.19, 2022/02/14 02:48:49
|
Line 1044 sub get_dom {
|
Line 1044 sub get_dom {
|
return $qresult; |
return $qresult; |
} |
} |
|
|
|
sub store_dom { |
|
my ($userinput) = @_; |
|
my ($cmd,$dom,$namespace,$rid,$what) =split(/:/,$userinput); |
|
my $hashref = &tie_domain_hash($dom,$namespace,&GDBM_WRCREAT(),"S","$rid:$what") or |
|
return "error: ".($!+0)." tie(GDBM) Failed while attempting $cmd"; |
|
$hashref->{"version:$rid"}++; |
|
my $version=$hashref->{"version:$rid"}; |
|
my $allkeys=''; |
|
my @pairs=split(/\&/,$what); |
|
foreach my $pair (@pairs) { |
|
my ($key,$value)=split(/=/,$pair); |
|
$allkeys.=$key.':'; |
|
$hashref->{"$version:$rid:$key"}=$value; |
|
} |
|
my $now = time; |
|
$hashref->{"$version:$rid:timestamp"}=$now; |
|
$allkeys.='timestamp'; |
|
$hashref->{"$version:keys:$rid"}=$allkeys; |
|
&untie_user_hash($hashref) or |
|
return "error: ".($!+0)." untie(GDBM) Failed while attempting $cmd"; |
|
return 'ok'; |
|
} |
|
|
|
sub restore_dom { |
|
my ($userinput) = @_; |
|
my ($cmd,$dom,$namespace,$rid) = split(/:/,$userinput); |
|
my $hashref = &tie_domain_hash($dom,$namespace,&GDBM_READER()) or |
|
return "error: ".($!+0)." tie(GDBM) Failed while attempting $cmd"; |
|
my $qresult=''; |
|
if (ref($hashref)) { |
|
chomp($rid); |
|
my $version=$hashref->{"version:$rid"}; |
|
$qresult.="version=$version&"; |
|
my $scope; |
|
for ($scope=1;$scope<=$version;$scope++) { |
|
my $vkeys=$hashref->{"$scope:keys:$rid"}; |
|
my @keys=split(/:/,$vkeys); |
|
my $key; |
|
$qresult.="$scope:keys=$vkeys&"; |
|
foreach $key (@keys) { |
|
$qresult.="$scope:$key=".$hashref->{"$scope:$rid:$key"}."&"; |
|
} |
|
} |
|
$qresult=~s/\&$//; |
|
} |
|
&untie_user_hash($hashref) or |
|
return "error: ".($!+0)." untie(GDBM) Failed while attempting $cmd"; |
|
return $qresult; |
|
} |
|
|
sub crslti_itemid { |
sub crslti_itemid { |
my ($cdom,$cnum,$url,$method,$params,$loncaparev) = @_; |
my ($cdom,$cnum,$url,$method,$params,$loncaparev) = @_; |
unless (ref($params) eq 'HASH') { |
unless (ref($params) eq 'HASH') { |