Changeset 1547
- Timestamp:
- Oct 3, 2010, 4:09:50 AM (10 years ago)
- Location:
- cpc/trunk/project/batch/documents
- Files:
-
- 1 deleted
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
cpc/trunk/project/batch/documents/download_docs.pl
r1397 r1547 51 51 } 52 52 if (-e "$type/$file") { 53 next; 53 system("grep -e 'pas encore édité' $type/$file > /dev/null"); 54 if ($? != 0) { 55 next; 56 } 54 57 } 55 58 if (!($type =~ /(^$)/)) { … … 59 62 print FILE $a->content; 60 63 close FILE; 61 rename "$type/$file.tmp", "$type/$file"; 62 print "$type/$file\n"; 64 system("grep -e 'pas encore édité' $type/$file.tmp > /dev/null"); 65 if ($? != 0 || !(-e "$type/$file")) { 66 rename "$type/$file.tmp", "$type/$file"; 67 print "$type/$file\n"; 68 } else { 69 unlink("/$type/$file.tmp"); 70 } 63 71 } 64 72 $a->back();
Note: See TracChangeset
for help on using the changeset viewer.