Dev to 4.0.11
[usit-rt.git] / share / html / REST / 1.0 / Forms / ticket / comment
index d511c46..b50135f 100644 (file)
@@ -56,6 +56,7 @@ use MIME::Entity;
 use LWP::MediaTypes;
 use RT::Interface::REST;
 use File::Temp qw(tempfile);
+my @tmp_files;
 
 $RT::Logger->debug("Got ticket id=$id for comment");
 $RT::Logger->debug("Got args @{[keys(%changes)]}.");
@@ -106,6 +107,7 @@ foreach my $att (@atts) {
         my $buf;
         my ($w, $tmp) = tempfile();
         my $info = $cgi->uploadInfo($fh);
+        push @tmp_files, $tmp;
 
         while (sysread($fh, $buf, 8192)) {
             syswrite($w, $buf);
@@ -151,5 +153,7 @@ if ($changes{Status}) {
 }
 
 OUTPUT:
+
+unlink @tmp_files;
 return [ $c, $o, $k, $e ];
 </%INIT>