[Bio] / FigWebServices / ss_export.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/ss_export.cgi

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

revision 1.3, Thu May 27 18:30:29 2004 UTC revision 1.4, Thu May 27 18:47:05 2004 UTC
# Line 134  Line 134 
134      close($allprot_fh);      close($allprot_fh);
135    
136      my $outname = "$subsystem.$$.tar.gz";      my $outname = "$subsystem.$$.tar.gz";
137      $outname =~ s/[^\w.-_]/_/g;      $outname =~ s/[^\w.-]/_/g;
138    
139      system("tar czf ../$outname .");      system("tar czf ../$outname .");
140      my $size = (stat("../$outname"))[7];      my $size = (stat("../$outname"))[7];

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3