[Bio] / FigKernelPackages / P2Pupdate.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/P2Pupdate.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.20, Wed Jan 21 18:27:29 2004 UTC revision 1.21, Wed Jan 21 20:23:55 2004 UTC
# Line 516  Line 516 
516      chop $line;      chop $line;
517      ($user,$who,$date) = split(/\t/,$line);      ($user,$who,$date) = split(/\t/,$line);
518      &FIG::verify_dir("$FIG_Config::data/Assignments/$user");      &FIG::verify_dir("$FIG_Config::data/Assignments/$user");
519      my $file = "$who-$date";      my $file = &FIG::epoch_to_readable($date) . ":$who";
520      $file =~ s/\//-/g;      $file =~ s/\//-/g;
521      open(OUT,">$FIG_Config::data/Assignments/$user/$file")      open(OUT,">$FIG_Config::data/Assignments/$user/$file")
522          || die "could not open $FIG_Config::data/Assignments/$user/$file";          || die "could not open $FIG_Config::data/Assignments/$user/$file";

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3