Diff for /loncom/lond between versions 1.178.2.4 and 1.178.2.7

version 1.178.2.4, 2004/02/24 16:51:40 version 1.178.2.7, 2004/03/08 21:54:05
Line 1360  sub IncrementUserValueHandler { Line 1360  sub IncrementUserValueHandler {
     my $cmd         = shift;      my $cmd         = shift;
     my $tail        = shift;      my $tail        = shift;
     my $client      = shift;      my $client      = shift;
     my $userinput   = shift;      my $userinput   = "$cmd:$tail";
   
     my ($udom,$uname,$namespace,$what) =split(/:/,$tail);      my ($udom,$uname,$namespace,$what) =split(/:/,$tail);
     $namespace=~s/\//\_/g;      $namespace=~s/\//\_/g;
Line 1391  sub IncrementUserValueHandler { Line 1391  sub IncrementUserValueHandler {
  Reply( $client, "ok\n", $userinput);   Reply( $client, "ok\n", $userinput);
     } else {      } else {
  Failure($client, "error: ".($!+0)." untie(GDBM) failed ".   Failure($client, "error: ".($!+0)." untie(GDBM) failed ".
  "while attempting put\n", $userinput);   "while attempting inc\n", $userinput);
     }      }
  } else {   } else {
     Failure($client, "error: ".($!+0)." tie(GDBM) Failed ".      Failure($client, "error: ".($!+0)." tie(GDBM) Failed ".
     "while attempting put\n", $userinput);      "while attempting inc\n", $userinput);
  }   }
     } else {      } else {
  Failure($client, "refused\n", $userinput);   Failure($client, "refused\n", $userinput);
Line 1672  RegisterHandler("eget", \&GetProfileEncr Line 1672  RegisterHandler("eget", \&GetProfileEncr
 #     0   - Exit server.  #     0   - Exit server.
 #  #
 #  #
 sub DeletProfileEntry {  
   sub DeleteProfileEntry {
     my $cmd      = shift;      my $cmd      = shift;
     my $tail     = shift;      my $tail     = shift;
     my $client   = shift;      my $client   = shift;
Line 1870  sub DumpWithRegexp { Line 1871  sub DumpWithRegexp {
     my %hash;      my %hash;
     if (tie(%hash,'GDBM_File',"$proname/$namespace.db",      if (tie(%hash,'GDBM_File',"$proname/$namespace.db",
     &GDBM_READER(),0640)) {      &GDBM_READER(),0640)) {
  study($regexp);  
  while (my ($key,$value) = each(%hash)) {   while (my ($key,$value) = each(%hash)) {
     if ($regexp eq '.') {      if ($regexp eq '.') {
  $qresult.=$key.'='.$value.'&';   $qresult.=$key.'='.$value.'&';
Line 2029  sub RestoreHandler { Line 2029  sub RestoreHandler {
   
   
 }  }
 RegisterHandler("restor", \&RestoreHandler, 0,1,0);  RegisterHandler("restore", \&RestoreHandler, 0,1,0);
   
 #  #
 #   Add a chat message to to a discussion board.  #   Add a chat message to to a discussion board.

Removed from v.1.178.2.4  
changed lines
  Added in v.1.178.2.7


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>