Changeset 737

Timestamp:

11/16/08 20:25:41 (3 years ago)

Author:

OlivierRaginel

Message:

Item38: Force sandbox usage for html2twiki

File:

• trunk/KoalaSkin/bin/savemulti (modified) (1 diff)

trunk/KoalaSkin/bin/savemulti

@@ -104 +104 @@
       # Added by FredericLuddeni - 11 FEV 2004    
       # Run html to twiki parser !!!
-      open(ENTREE, ">/tmp/twikitemp$$.txt");
-      print ENTREE ("$text");
-      close(ENTREE);
-      $text = `./html2twiki /tmp/twikitemp$$.txt`;
-      unlink("/tmp/twikitemp$$.txt");
+      my $sandbox =  $TWiki::sharedSandbox || $TWiki::sandbox;
+      my $filename = $sandbox->normalizeFileName( "/tmp/twikitemp$$.txt" );
+      open ENTREE, "> $filename" or die "Can't write to $filename: $!";
+      print ENTREE $text;
+      close ENTREE;
+      ($text) = $sandbox->sysCommand(`./html2twiki `.$filename);
+      unlink $filename;
     }