fixing permissions on scripts
[koha.git] / misc / amazonratings / get_ratings.pl
1 #!/usr/bin/perl
2 # get_ratings.pl
3 #
4 # A script to fetch the ratings of a given title, using the isbn number
5 # Initially just books, but ill expand to handle dvd's and cd's as well
6
7 # uses a new table, ratings, pipe the ratings.sql script into mysql to create the table.
8
9 use warnings;
10 use strict;
11 use HTTP::Cookies;
12 use LWP::UserAgent;
13 use C4::Context;
14
15 my $dbh = C4::Context->dbh();
16
17 my $query =
18 "SELECT isbn,biblioitemnumber,biblionumber FROM biblioitems where isbn is NOT NULL and isbn <> ''
19   group by isbn";
20 my $sth = $dbh->prepare($query);
21 $sth->execute();
22 while ( my $data = $sth->fetchrow_hashref() ) {
23     $data->{'isbn'} =~ s/\-//g;
24     $data->{'isbn'} =~ s/ +//g;
25
26     # append isbn 
27     # isbn must appear without spaces or -
28     my $url = "http://www.amazon.com/exec/obidos/search-handle-url/index%3Dbooks%26field-isbn%3D";
29     $url .= $data->{'isbn'};
30     my $ua      = LWP::UserAgent->new;
31     my $content = $ua->get($url)->content;
32
33     #print $content;
34
35     my $rating;
36
37     if ( $content =~ /alt="(.*?) out of 5 stars"/ ) {
38         $rating = $1;
39
40     }
41     if ($rating) {
42
43        # first check we dont already have a rating, if so, and its different update it
44         # otherwise insert a new rating
45         my $query2 = "SELECT * FROM ratings WHERE biblioitemnumber=?";
46         my $sth2   = $dbh->prepare($query2);
47         $sth2->execute( $data->{'biblioitemnumber'} );
48         if ( my $ratings = $sth2->fetchrow_hashref() ) {
49             if ( $rating ne $ratings->{'rating'} ) {
50                 my $query3 =
51                   "UPDATE ratings SET rating=? WHERE biblioitemnumber=?";
52                 my $sth3 = $dbh->prepare($query3);
53                 $sth3->execute( $rating, $data->{'biblioitemnumber'} );
54                 $sth3->finish();
55             }
56         }
57         else {
58             my $query3 =
59 "INSERT INTO ratings (rating,biblioitemnumber,biblionumber) VALUES (?,?,?)";
60             my $sth3 = $dbh->prepare($query3);
61             $sth3->execute(
62                 $rating, $data->{'biblioitemnumber'},
63                 $data->{'biblionumber'}
64             );
65             $sth3->finish();
66         }
67         $sth2->finish();
68
69     }
70 }