Changeset 2696 for extras/pLoader/trunk/src/Uploader/PWG/WebServices.pm

Timestamp:

Oct 9, 2008, 10:58:41 PM (16 years ago)

Author:

ronosman

Message:

Features added:

• Cancel during upload or file processing
• Auto rotate
• Upload high resolution

File:

• extras/pLoader/trunk/src/Uploader/PWG/WebServices.pm (modified) (6 diffs)

extras/pLoader/trunk/src/Uploader/PWG/WebServices.pm

@@ -25 +25 @@
 use JSON;
 use LWP::UserAgent;
-use Text::ASCIITable;
 use Data::Dumper;
 use Digest::MD5::File qw/file_md5_hex md5_hex/;
 use File::Slurp;
 use Encode qw/encode decode/;
-#use String::Random qw/random_string/;
 use base qw/
            Uploader::Object
@@ -47 +45 @@
            tags
            categories
-           imagefile
-           thumbfile
-           imagename
+           site_high_file
+           site_resized_file
+           site_thumb_file
+           site_image_name
            rank
-           author
-           comment
-           date_creation
+           site_author
+           site_comment
+           site_img_date_creation
            uagent_response
            login_result
            action_result
+           upload_high
       / 
 );
@@ -162 +162 @@
     printf(
         "UploadImage %s\n",
-        $self->imagefile
-    );
+        $self->site_resized_file
+    );
+
     my $file_content = encode_base64(
         read_file(
-            $self->imagefile,
+            $self->site_resized_file,
             binmode => ':raw',
         )
@@ -172 +173 @@
 
     my $file_sum = file_md5_hex(
-        $self->imagefile
+        $self->site_resized_file
     );
  
     my $thumbnail_content = encode_base64(
         read_file(
-            $self->thumbfile,
+            $self->site_thumb_file,
             binmode => ':raw',
         )
@@ -183 +184 @@
 
     my $thumbnail_sum = file_md5_hex(
-        $self->thumbfile
-    );
+            $self->site_thumb_file,
+    );
+
 
     
@@ -194 +196 @@
         thumbnail_content => $thumbnail_content,
         categories        => $self->categories,
-        name              => $self->imagename,
+        name              => $self->site_image_name,
         rank              => $self->rank,
-        author            => $self->author,
-        comment           => $self->comment,
-        date_creation     => $self->date_creation,
+        author            => $self->site_author,
+        comment           => $self->site_comment,
+        date_creation     => $self->site_img_date_creation,
         
     };
+
+    if($self->upload_high){
+        $form->{high_content} = encode_base_64(
+                                     read_file(
+                                         $self->site_high_file,
+                                         binmode => ':raw',
+                                     )
+                                 );
+        $form->{high_sum}     = file_md5_hex(
+                                     $self->site_high_file
+                                 );
+    }
+
 
     my $result = $self->uagent->post(