loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

-version 1.267.4.4, 2002/08/30 22:01:31
+version 1.267.4.5, 2002/09/03 01:29:35
  Line 2430  sub dirlist {
      }
  }
+ # --------------------------------------------- GetFileTimestamp
+ # This function utilizes dirlist and returns the date stamp for
+ # when it was last modified.  It will also return an error of -1
+ # if an error occurs
+ sub GetFileTimestamp {
+     my ($studentDomain,$studentName,$filename,$root)=@_;
+     $studentDomain=~s/\W//g;
+     $studentName=~s/\W//g;
+     my $subdir=$studentName.'__';
+     $subdir =~ s/(.)(.)(.).*/$1\/$2\/$3/;
+     my $proname="$studentDomain/$subdir/$studentName";
+     $proname .= '/'.$filename;
+     my @dir = &Apache::lonnet::dirlist($proname, $studentDomain, $studentName,
+                                        $root);
+     my $fileStat = $dir[0];
+     my @stats = split('&', $fileStat);
+     if($stats[0] ne 'empty' && $stats[0] ne 'no_such_dir') {
+         return $stats[9];
+     } else {
+         return -1;
+     }
+ }
  # -------------------------------------------------------- Value of a Condition
  sub directcondval {