001 #!/usr/local/bin/perl -w
002 use strict;
003 use Tk;
004 use Tk::JPEG;
005 use POE;
006 use LWP::UserAgent::POE;
007 use Net::Amazon;
008 use Net::Amazon::Request::UPC;
009 use MIME::Base64;
010 use Rose::DB::Object::Loader;
011 use Log::Log4perl qw(:easy);
012 
013 my @MODES = qw(books music dvd);
014 
015 my $UA = LWP::UserAgent::POE->new();
016 
017 my $loader = Rose::DB::Object::Loader->new(
018   db_dsn => 
019     "dbi:SQLite:dbname=articles.dat",
020   db_options   => {
021     AutoCommit => 1, RaiseError => 1 },
022 );
023 $loader->make_classes();
024 
025 my $top = $poe_main_window;
026 $top->configure(-title     => "UPC Reader", 
027                 -background=> "#a2b2a3");
028 $top->geometry("200x300");
029 
030 my $FOOTER = $top->Label();
031 $FOOTER->configure(-text => 
032                    "Scan next item");
033 
034 my $BYWHO = $top->Label();
035 my $UPC   = $top->Label();
036 my $PHOTO = $top->Photo(-format => 'jpeg');
037 my $photolabel = 
038              $top->Label(-image => $PHOTO);
039 my $entry = $top->Entry(
040             -textvariable => \my $UPC_VAR);
041 
042 my $PRODUCT = $top->Label();
043 
044 $entry->focus();
045 
046 for my $w ($entry, $photolabel, $PRODUCT, 
047            $BYWHO, $UPC, $FOOTER) {
048   $w->pack(-side => 'top', -expand => 1, 
049            -fill => "x" );
050 }
051 
052 $entry->bind("<Return>", \&scan_done);
053 
054 my $session = POE::Session->create(
055   inline_states => { 
056     _start => sub{
057       $poe_kernel->delay("_start", 60);
058   } 
059 });
060 
061 POE::Kernel->run();
062 
063 ###########################################
064 sub scan_done {
065 ###########################################
066   $PHOTO->blank();
067   $PRODUCT->configure(-text => "");
068   $FOOTER->configure(-text => 
069                      "Processing ...");
070   $BYWHO->configure(-text => "");
071   $UPC->configure(-text => $UPC_VAR);
072   resp_process(
073           amzn_fetch( $UPC_VAR ) );
074   $UPC_VAR = "";
075 }
076 
077 ###########################################
078 sub amzn_fetch {
079 ###########################################
080   my($upc) = @_;
081 
082   my $resp;
083 
084   my $amzn = Net::Amazon->new(
085       token => 'XXXXXXXXXXXXXXXXXXXX',
086       ua    => $UA,
087   );
088 
089   for my $mode (@MODES) {
090 
091     my $req = 
092       Net::Amazon::Request::UPC->new(
093           upc  => $upc,
094           mode => $mode,
095       );
096 
097      $resp = $amzn->request($req);
098 
099      if($resp->is_success()) {
100          return($resp, $mode, $upc);
101          last;
102      }
103 
104      WARN "Nothing found in mode '$mode'";
105   }
106   return $resp;
107 }
108 
109 ###########################################
110 sub resp_process {
111 ###########################################
112   my($resp, $mode, $upc) = @_;
113 
114   if($resp->is_error()) {
115     $PRODUCT->configure(
116                  -text => "NOT FOUND");
117     return 0;
118   }
119 
120   my ($property) = $resp->properties();
121   my $imgurl = $property->ImageUrlMedium();
122   img_display( $imgurl );
123 
124   my $a = Article->new();
125   $a->upc($upc);
126   $a->type($mode);
127   $a->title( $property->Title() );
128 
129   if($mode eq "books") {
130     $a->bywho( $property->author() );
131   } elsif( $mode eq "music") {
132     $a->bywho( $property->artist() );
133   } else {
134     $a->bywho( "" );
135   }
136 
137   $BYWHO->configure(-text => $a->bywho() );
138   $PRODUCT->configure( 
139                     -text => $a->title() );
140 
141   if($a->load( speculative => 1 )) {
142       $PRODUCT->configure(
143                 -text => "ALREADY EXISTS");
144   } else {
145     $a->save();
146   }
147 
148   $FOOTER->configure(
149                 -text => "Scan next item");
150   return 1;
151 }
152 
153 ###########################################
154 sub img_display {
155 ###########################################
156   my($imgurl) = @_;
157   
158   my $imgresp = $UA->get( $imgurl );
159 
160   if($imgresp->is_success()) {
161     $PHOTO->configure( -data => 
162      encode_base64( $imgresp->content() ));
163   }
164 }