aboutsummaryrefslogtreecommitdiffstats
path: root/addon/js_upload/file-uploader/server/perl.cgi
diff options
context:
space:
mode:
authorFabio Comuni <fabrix.xm@gmail.com>2011-09-26 11:42:48 +0200
committerFabio Comuni <fabrix.xm@gmail.com>2011-09-26 11:42:48 +0200
commit5792b3d3580b9f09460305858293398d8d8a9abf (patch)
tree90d60e9db4ed733a60c2890c7305d45ddd48be42 /addon/js_upload/file-uploader/server/perl.cgi
parent991656a3ef396d9a6bd43ddb752627c2880b17ba (diff)
parent428e6766411d2c6708ad25f726c4bcf1d64af1cc (diff)
downloadvolse-hubzilla-5792b3d3580b9f09460305858293398d8d8a9abf.tar.gz
volse-hubzilla-5792b3d3580b9f09460305858293398d8d8a9abf.tar.bz2
volse-hubzilla-5792b3d3580b9f09460305858293398d8d8a9abf.zip
Merge branch 'master' into newui
Diffstat (limited to 'addon/js_upload/file-uploader/server/perl.cgi')
-rw-r--r--addon/js_upload/file-uploader/server/perl.cgi62
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