loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

-version 1.1230, 2013/07/09 00:17:27
+version 1.1231, 2013/07/25 19:11:12
  Line 1578  sub idput {
      }
  }
+ # ---------------------------------------- Delete unwanted IDs from ids.db file
+ sub iddel {
+     my ($udom,$idshashref,$uhome)=@_;
+     my %result=();
+     unless (ref($idshashref) eq 'HASH') {
+         return %result;
+     }
+     my %servers=();
+     while (my ($id,$uname) = each(%{$idshashref})) {
+         my $uhom;
+         if ($uhome) {
+             $uhom = $uhome;
+         } else {
+             $uhom=&homeserver($uname,$udom);
+         }
+         if ($uhom ne 'no_host') {
+             if ($servers{$uhom}) {
+                 $servers{$uhom}.='&'.&escape($id);
+             } else {
+                 $servers{$uhom}=&escape($id);
+             }
+         }
+     }
+     foreach my $server (keys(%servers)) {
+         $result{$server} = &critical('iddel:'.$udom.':'.$servers{$server},$uhome);
+     }
+     return %result;
+ }
  # ------------------------------dump from db file owned by domainconfig user
  sub dump_dom {
      my ($namespace, $udom, $regexp) = @_;