CVS: spip/ecrire inc_meta.php3,1.21,1.22

Update of /home/spip-cvs/spip/ecrire
In directory miel:/tmp/cvs-serv5562/ecrire

Modified Files:
  inc_meta.php3
Log Message:
patch Yves Grenier <grenier.yves@wanadoo.fr>
pour espace disque insuffisant

Index: inc_meta.php3

RCS file: /home/spip-cvs/spip/ecrire/inc_meta.php3,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- inc_meta.php3 20 Feb 2004 21:38:48 -0000 1.21
+++ inc_meta.php3 1 Mar 2004 21:57:30 -0000 1.22
@@ -73,12 +73,16 @@
   $s .= '?'.'>';

   $fichier_meta_cache = ($flag_ecrire ? '' : 'ecrire/') . 'data/inc_meta_cache.php3';
- $f = @fopen($fichier_meta_cache.'-'.@getmypid(), "wb");
+ $fichier_meta_cache_w = $fichier_meta_cache.'-'.@getmypid();
+ $f = @fopen($fichier_meta_cache_w, "wb");
   if ($f) {
- @fputs($f, $s);
+ $r = @fputs($f, $s);
     @fclose($f);
     @unlink($fichier_meta_cache);
- @rename($fichier_meta_cache.'-'.@getmypid(), $fichier_meta_cache);
+ if ($r != strlen($s))
+ @rename($fichier_meta_cache_w, $fichier_meta_cache);
+ else
+ @unlink($fichier_meta_cache_w);
   } else {
     global $connect_statut;
     if ($connect_statut == '0minirezo')