[LON-CAPA-dev] Re: [LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

[Gerd Kortemeyer]

Thirty minutes is indeed far too much buffer time!!! Instructors often change
deadlines, etc, to satisfy courses if something goes kaputt. This needs to stay in
the 5 minute realm.

Matthew Brian Hall wrote:

> 30 minutes?  Instructors already complain about 5 minutes...
>
> >
> > albertel        Thu Dec  5 18:27:46 2002 EDT
> >
> >   Modified files:
> >     /loncom/lonnet/perl    lonnet.pm
> >   Log:
> >   - if the student doen't even have a resourcedata.db remeber this and don't k
> eep trying to get one, this is a big speed win
> >
> >
> > Index: loncom/lonnet/perl/lonnet.pm
> > diff -u loncom/lonnet/perl/lonnet.pm:1.307 loncom/lonnet/perl/lonnet.pm:1.308
> > --- loncom/lonnet/perl/lonnet.pm:1.307    Thu Dec  5 18:13:54 2002
> > +++ loncom/lonnet/perl/lonnet.pm    Thu Dec  5 18:27:46 2002
> > @@ -1,7 +1,7 @@
> >  # The LearningOnline Network
> >  # TCP networking package
> >  #
> > -# $Id: lonnet.pm,v 1.307 2002/12/05 23:13:54 albertel Exp $
> > +# $Id: lonnet.pm,v 1.308 2002/12/05 23:27:46 albertel Exp $
> >  #
> >  # Copyright Michigan State University Board of Trustees
> >  #
> > @@ -80,7 +80,8 @@
> >  qw(%perlvar %hostname %homecache %badServerCache %hostip %iphost %spareid %ho
> stdom
> >     %libserv %pr %prp %metacache %packagetab %titlecache
> >     %courselogs %accesshash $processmarker $dumpcount
> > -   %coursedombuf %coursehombuf %courseresdatacache %domaindescription);
> > +   %coursedombuf %coursehombuf %courseresdatacache
> > +   %studentresdatacache %domaindescription);
> >  use IO::Socket;
> >  use GDBM_File;
> >  use Apache::Constants qw(:common :http);
> > @@ -2848,25 +2849,32 @@
> >          my $courselevelm=$courseid.'.'.$mapparm;
> >
> >  # ----------------------------------------------------------- first, check us
> er
> > -        my %resourcedata=&get('resourcedata',
> > -                  [$courselevelr,$courselevelm,$courselevel],
> > -                 $udom,$uname);
> > -        my ($tmp)=keys(%resourcedata);
> > -        if (($tmp!~/^error\:/) && ($tmp!~/^con_lost/)) {
> > -        if ($resourcedata{$courselevelr}) {
> > -            return $resourcedata{$courselevelr}; }
> > -        if ($resourcedata{$courselevelm}) {
> > -            return $resourcedata{$courselevelm}; }
> > -        if ($resourcedata{$courselevel}) {
> > -            return $resourcedata{$courselevel}; }
> > -        } else {
> > -        if ($tmp!~/No such file/) {
> > -            &logthis("<font color=blue>WARNING:".
> > -                 " Trying to get resource data for ".
> > -                 $uname." at ".$udom.": ".
> > -                 $tmp."</font>");
> > -        } elsif ($tmp =~ /^(con_lost|no_such_host)/) {
> > -          return $tmp;
> > +        #most student don't have any data set, check if there is some data
> > +            #every thirty minutes
> > +        if (!exists($studentresdatacache{$uname.'_'.$udom})
> > +        || $studentresdatacache{$uname.'_'.$udom} > (time+1800)) {
> > +        my %resourcedata=&get('resourcedata',
> > +                      [$courselevelr,$courselevelm,$courselevel],
> > +                      $udom,$uname);
> > +        my ($tmp)=keys(%resourcedata);
> > +        if (($tmp!~/^error\:/) && ($tmp!~/^con_lost/)) {
> > +            if ($resourcedata{$courselevelr}) {
> > +            return $resourcedata{$courselevelr}; }
> > +            if ($resourcedata{$courselevelm}) {
> > +            return $resourcedata{$courselevelm}; }
> > +            if ($resourcedata{$courselevel}) {
> > +            return $resourcedata{$courselevel}; }
> > +        } else {
> > +            if ($tmp!~/No such file/) {
> > +            &logthis("<font color=blue>WARNING:".
> > +                 " Trying to get resource data for ".
> > +                 $uname." at ".$udom.": ".
> > +                 $tmp."</font>");
> > +            } elsif ($tmp=~/error:No such file/) {
> > +            $studentresdatacache{$uname.'_'.$udom}=time;
> > +            } elsif ($tmp =~ /^(con_lost|no_such_host)/) {
> > +            return $tmp;
> > +            }
> >          }
> >          }
> >
> >
> >
> > _______________________________________________
> > LON-CAPA-cvs mailing list
> > LON-CAPA-cvs@mail.lon-capa.org
> > http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
> >
>
> --
> ------------------------------------------------------------------
> Matthew Hall           LON-CAPA developer         hallmat3@msu.edu
> 123 North Kedzie Hall                    Michigan State University
> ------------------------------------------------------------------
>
> _______________________________________________
> LON-CAPA-dev mailing list
> LON-CAPA-dev@mail.lon-capa.org
> http://mail.lon-capa.org/mailman/listinfo/lon-capa-dev