#!/usr/bin/perl

# Kludged netflix scraper for use with PHP
# Oscar F Hills - 6/11/04
# http://www.ofhills.com/blog/
# modified to return outstanding movie queue
# Brett Engle - 6/14/04
# http://brettly.net/


use strict;
use LWP::UserAgent;
use HTTP::Cookies;



my $queue = 'http://www.netflix.com/Queue';

my $session_id = $ARGV[0];

    my $jar = HTTP::Cookies->new;
    $jar->set_cookie(0, 'NetflixShopperId', $session_id, '/', '.netflix.com');
    my $req = HTTP::Request->new(GET => $queue);
    $jar->add_cookie_header($req);
    my $ua = LWP::UserAgent->new;
    $ua->agent('NetflixCheck/1.0');
    my $res = $ua->request($req);
    my $c = $res->content;
    my $out = '';
    
    
    while ($c =~ m!ss=or><td class=qo(.*?)\d</td></tr>!sg) {
        my $rec = $1;
	$rec .= substr($c, pos($c)-11,1);
        my @rec = $rec =~ m!eid=(.*?)">!sg;
        my $mid = $1;
        $mid =~ s!&lnkctr=RecListStar!!sg;
        my $url = "http://www.netflix.com/MovieDisplay?"."movieid=".$mid;
        $rec[6] = "http://a408.g.akamai.net/f/408/1284/24h/image.netflix.com/NetFlix_Assets/boxshots/small/".$mid.".jpg";
        $rec =~ m!\d\d\d\d\">(.*?)</a>.*?s=c>(.*?)</td>.*?s=e>(.*?)</td>!sg;
        
        $rec[2] = $1;        
        $rec[3] = $2;
        $rec[4] = $3;
	$rec =~ m!an=2>(.*?)&nbsp\;!sg;
	my $tstr = $1;
	$tstr =~ m!(\d\d.\d\d.\d\d)$!sg;
        $rec[5] = $1;
	$rec =~ m!(\d\d.\d\d.\d\d)$!sg;
        $rec[7] = $1;
        
       
	print $url."%".$rec[2]."%".$rec[3]."%".$rec[4]."%".$rec[5]."%".$rec[6]."%";
     }