loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

-version 1.728, 2006/04/07 22:42:32
+version 1.729, 2006/04/18 18:11:16
  Line 85  delayed.
  # --------------------------------------------------------------------- Logging
+ {
+     my $logid;
+     sub instructor_log {
+ 	my ($hash_name,$storehash,$delflag,$uname,$udom)=@_;
+ 	$logid++;
+ 	my $id=time().'00000'.$$.'00000'.$logid;
+ 	return &Apache::lonnet::put('nohist_'.$hash_name,
+ 				    {
+ 					$id.'_exe_uname' => $env{'user.name'},
+ 					$id.'_exe_udom'  => $env{'user.domain'},
+ 					$id.'_exe_time'  => time(),
+ 					$id.'_exe_ip'    => $ENV{'REMOTE_ADDR'},
+ 					$id.'_delflag'   => $delflag,
+ 					$id.'_logentry'  => $storehash,
+ 					$id.'_uname'     => $uname,
+ 					$id.'_udom'      => $udom,
+ 				    },
+ 				    $env{'course.'.$env{'request.course.id'}.'.domain'},
+ 				    $env{'course.'.$env{'request.course.id'}.'.num'}
+ 				    );
+     }
+ }
  sub logtouch {
      my $execdir=$perlvar{'lonDaemons'};