[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.25, Wed Mar 24 00:05:40 2004 UTC revision 1.26, Tue Mar 30 16:44:51 2004 UTC
# Line 539  Line 539 
539      my $line = <IN>;      my $line = <IN>;
540      chop $line;      chop $line;
541      ($user,$who,$date) = split(/\t/,$line);      ($user,$who,$date) = split(/\t/,$line);
542      &FIG::verify_dir("$FIG_Config::data/Assignments/$user");      $userR = $user;
543        $userR =~ s/^master://;
544        &FIG::verify_dir("$FIG_Config::data/Assignments/$userR");
545      my $file = &FIG::epoch_to_readable($date) . ":$who";      my $file = &FIG::epoch_to_readable($date) . ":$who";
546      $file =~ s/\//-/g;      $file =~ s/\//-/g;
547      open(OUT,">$FIG_Config::data/Assignments/$user/$file")      open(OUT,">$FIG_Config::data/Assignments/$userR/$file")
548          || die "could not open $FIG_Config::data/Assignments/$user/$file";          || die "could not open $FIG_Config::data/Assignments/$userR/$file";
549      while (defined($line = <IN>))      while (defined($line = <IN>))
550      {      {
551          print OUT $line;          print OUT $line;
552      }      }
553      close(IN);      close(IN);
554      close(OUT);      close(OUT);
555      if (! -s "$FIG_Config::data/Assignments/$user/$file") { unlink("$FIG_Config::data/Assignments/$user/$file") }      if (! -s "$FIG_Config::data/Assignments/$userR/$file") { unlink("$FIG_Config::data/Assignments/$userR/$file") }
556  }  }
557    
558  =pod  =pod

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3