SF.net SVN: ledger-smb:[3658] trunk/scripts/file.pl

[..hidden..]

Revision: 3658
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3658&view=rev
Author:   einhverfr
Date:     2011-08-15 23:30:23 +0000 (Mon, 15 Aug 2011)

Log Message:
-----------
fixing bug 3387888

Modified Paths:
--------------
    trunk/scripts/file.pl

Modified: trunk/scripts/file.pl
===================================================================
--- trunk/scripts/file.pl	2011-08-15 23:27:49 UTC (rev 3657)
+++ trunk/scripts/file.pl	2011-08-15 23:30:23 UTC (rev 3658)
@@ -90,6 +90,11 @@
     } else {
         use File::MimeInfo;
         $file->file_name($fnames[0]);
+        if (!$file->file_name){
+             $request->error($request->{_locale}->text(
+                  'No file uploaded'
+             ));
+        }
         $file->get_mime_type;
         my $fh = $request->{_request}->upload('upload_data');
         my $fdata = join ("", <$fh>);


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.