diff options
Diffstat (limited to 'addon/js_upload/file-uploader/server/perl.cgi')
| -rw-r--r-- | addon/js_upload/file-uploader/server/perl.cgi | 62 |
1 files changed, 0 insertions, 62 deletions
diff --git a/addon/js_upload/file-uploader/server/perl.cgi b/addon/js_upload/file-uploader/server/perl.cgi deleted file mode 100644 index c66f1aa1a..000000000 --- a/addon/js_upload/file-uploader/server/perl.cgi +++ /dev/null @@ -1,62 +0,0 @@ -#!/usr/bin/perl - - use strict; - use CGI::Carp qw(fatalsToBrowser); - - use Digest::MD5; - - my $uploaddir = '/folder/to/save/in/ajax_upload/tmp_uploads'; - - my $maxFileSize = 0.5 * 1024 * 1024; # 1/2mb max file size... - - use CGI; - my $IN = new CGI; - - my $file = $IN->param('POSTDATA'); - my $temp_id = $IN->param('temp_id'); - - # make a random filename, and we guess the file type later on... - my $name = Digest::MD5::md5_base64( rand ); - $name =~ s/\+/_/g; - $name =~ s/\//_/g; - - my $type; - if ($file =~ /^GIF/) { - $type = "gif"; - } elsif ($file =~ /PNG/) { - $type = "png"; - } elsif ($file =~ /JFIF/) { - $type = "jpg"; - } - - if (!$type) { - print qq|{ "success": false, "error": "Invalid file type..." }|; - print STDERR "file has been NOT been uploaded... \n"; - } - - print STDERR "Making dir: $uploaddir/$temp_id \n"; - - mkdir("$uploaddir/$temp_id"); - - open(WRITEIT, ">$uploaddir/$name.$type") or die "Cant write to $uploaddir/$name.$type. Reason: $!"; - print WRITEIT $file; - close(WRITEIT); - - my $check_size = -s "$uploaddir/$name.$type"; - - print STDERR qq|Main filesize: $check_size Max Filesize: $maxFileSize \n\n|; - - print $IN->header(); - if ($check_size < 1) { - print STDERR "ooops, its empty - gonna get rid of it!\n"; - print qq|{ "success": false, "error": "File is empty..." }|; - print STDERR "file has been NOT been uploaded... \n"; - } elsif ($check_size > $maxFileSize) { - print STDERR "ooops, its too large - gonna get rid of it!\n"; - print qq|{ "success": false, "error": "File is too large..." }|; - print STDERR "file has been NOT been uploaded... \n"; - } else { - print qq|{ "success": true }|; - - print STDERR "file has been successfully uploaded... thank you.\n"; - }
\ No newline at end of file |