Fixed 'user_eror' typo for delete in handle_request

Author: Adam Hopkins

Changes

@@ -108,3 +108,6 @@ Revision history for jQuery-File-Upload
 
 0.27
 	filenames now generated using Data::GUID. pre_post and pre_delete can now return errors.
+
+0.28
+	Fixed "user_eror" typo for delete in handle_request

MYMETA.json

@@ -46,5 +46,5 @@
       }
    },
    "release_status" : "stable",
-   "version" : "0.27"
+   "version" : "0.28"
 }

MYMETA.yml

@@ -28,4 +28,4 @@ requires:
   Net::SSH2::SFTP: '0'
   URI: '0'
   perl: '5.006'
-version: '0.27'
+version: '0.28'

Makefile

@@ -62,11 +62,11 @@ DIRFILESEP = /
 DFSEP = $(DIRFILESEP)
 NAME = jQuery::File::Upload
 NAME_SYM = jQuery_File_Upload
-VERSION = 0.27
+VERSION = 0.28
 VERSION_MACRO = VERSION
-VERSION_SYM = 0_27
+VERSION_SYM = 0_28
 DEFINE_VERSION = -D$(VERSION_MACRO)=\"$(VERSION)\"
-XS_VERSION = 0.27
+XS_VERSION = 0.28
 XS_VERSION_MACRO = XS_VERSION
 XS_DEFINE_VERSION = -D$(XS_VERSION_MACRO)=\"$(XS_VERSION)\"
 INST_ARCHLIB = blib/arch
@@ -187,12 +187,15 @@ PERL_ARCHIVE_AFTER =
 
 
 TO_INST_PM = lib/jQuery/File/.DS_Store \
-	lib/jQuery/File/Upload.pm
+	lib/jQuery/File/Upload.pm \
+	num.pl
 
 PM_TO_BLIB = lib/jQuery/File/.DS_Store \
 	blib/lib/jQuery/File/.DS_Store \
 	lib/jQuery/File/Upload.pm \
-	blib/lib/jQuery/File/Upload.pm
+	blib/lib/jQuery/File/Upload.pm \
+	num.pl \
+	$(INST_LIB)/jQuery/File/num.pl
 
 
 # --- MakeMaker platform_constants section:
@@ -262,7 +265,7 @@ RCS_LABEL = rcs -Nv$(VERSION_SYM): -q
 DIST_CP = best
 DIST_DEFAULT = tardist
 DISTNAME = jQuery-File-Upload
-DISTVNAME = jQuery-File-Upload-0.27
+DISTVNAME = jQuery-File-Upload-0.28
 
 
 # --- MakeMaker macro section:
@@ -514,7 +517,7 @@ metafile : create_distdir
 	$(NOECHO) $(ECHO) '  Net::SSH2::SFTP: '\''0'\''' >> META_new.yml
 	$(NOECHO) $(ECHO) '  URI: '\''0'\''' >> META_new.yml
 	$(NOECHO) $(ECHO) '  perl: '\''5.006'\''' >> META_new.yml
-	$(NOECHO) $(ECHO) 'version: '\''0.27'\''' >> META_new.yml
+	$(NOECHO) $(ECHO) 'version: '\''0.28'\''' >> META_new.yml
 	-$(NOECHO) $(MV) META_new.yml $(DISTVNAME)/META.yml
 	$(NOECHO) $(ECHO) Generating META.json
 	$(NOECHO) $(ECHO) '{' > META_new.json
@@ -565,7 +568,7 @@ metafile : create_distdir
 	$(NOECHO) $(ECHO) '      }' >> META_new.json
 	$(NOECHO) $(ECHO) '   },' >> META_new.json
 	$(NOECHO) $(ECHO) '   "release_status" : "stable",' >> META_new.json
-	$(NOECHO) $(ECHO) '   "version" : "0.27"' >> META_new.json
+	$(NOECHO) $(ECHO) '   "version" : "0.28"' >> META_new.json
 	$(NOECHO) $(ECHO) '}' >> META_new.json
 	-$(NOECHO) $(MV) META_new.json $(DISTVNAME)/META.json
 
@@ -891,7 +894,8 @@ ppd :
 pm_to_blib : $(FIRST_MAKEFILE) $(TO_INST_PM)
 	$(NOECHO) $(ABSPERLRUN) -MExtUtils::Install -e 'pm_to_blib({@ARGV}, '\''$(INST_LIB)/auto'\'', q[$(PM_FILTER)], '\''$(PERM_DIR)'\'')' -- \
 	  lib/jQuery/File/.DS_Store blib/lib/jQuery/File/.DS_Store \
-	  lib/jQuery/File/Upload.pm blib/lib/jQuery/File/Upload.pm 
+	  lib/jQuery/File/Upload.pm blib/lib/jQuery/File/Upload.pm \
+	  num.pl $(INST_LIB)/jQuery/File/num.pl 
 	$(NOECHO) $(TOUCH) pm_to_blib
 
 

blib/lib/jQuery/File/Upload.pm

@@ -17,7 +17,7 @@ use Data::GUID;
 #use LWP::UserAgent;
 #use LWP::Protocol::https;
 
-our $VERSION = '0.27';
+our $VERSION = '0.28';
 
 my %errors =  (
 	'_validate_max_file_size' => 'File is too big',

blib/lib/jQuery/File/num.pl

@@ -0,0 +1,32 @@
+#!/usr/bin/perl
+
+my $ids = "3814,4530,4451,5706,6756,6757,6655,6541,6614,6613,4432,6336,6622,6625,6631,6623,6539,6513,6512,6404,6538,5353,6117,6136,6118,3676,5996,5428,3438,6652,3484,4493,3439,6411,6042,5269,6645,6643,6644,6677,6678,6670,6669,6728,6672,6727,6671,6676,6675,6674,6673,5223,5258,4004,5632,6045,3715,4450,5110,6112,5946,5040,5948,6096,6279,5352,5113,5763,6043,6593,6070,6071,5231,6406,6381,6403,6456,6457,6514,6591,6592,6405,6047,6640,6646,6044,6630,6596,5112,6109,6138,6110,6439,6137,5950,5951,6103,6174,6253,6251,6254,6520,6534,6329,6330,6704,5997,6332,6067,5301";
+
+my @ids = split ',', $ids;
+
+#splice @ids, 0, $ARGV[0];
+
+#print "@ids\n";
+#exit;
+
+my %hash;
+#exit;
+my $num_a = 0;
+while(<>) { 
+	next unless /<a href=".*p(\d+)\.htm"/;
+	$hash{$1} = 1;
+	$num_a++;
+}
+
+for(0..$#ids) { 
+		#if($_ % 30 == 1) { 
+		#print "$_: " . $ids[$_] . "\n";
+		#}
+	unless($hash{$ids[$_]}) { 
+		print "DIDN'T FIND $ids[$_]\n";
+	}
+}
+
+
+print "$num_a\n";
+print scalar(@ids) . "\n";

blib/man3/jQuery::File::Upload.3pm

@@ -124,7 +124,7 @@
 .\" ========================================================================
 .\"
 .IX Title "jQuery::File::Upload 3"
-.TH jQuery::File::Upload 3 "2014-07-13" "perl v5.16.2" "User Contributed Perl Documentation"
+.TH jQuery::File::Upload 3 "2014-07-15" "perl v5.16.2" "User Contributed Perl Documentation"
 .\" For nroff, turn off justification.  Always turn off hyphenation; it makes
 .\" way too many mistakes in technical documents.
 .if n .ad l

jQuery-File-Upload-0.28.tar.gz

@@ -17,7 +17,7 @@ use Data::GUID;
 #use LWP::UserAgent;
 #use LWP::Protocol::https;
 
-our $VERSION = '0.27';
+our $VERSION = '0.28';
 
 my %errors =  (
 	'_validate_max_file_size' => 'File is too big',