--- build/Net-Netflix-0.03/lib/Net/Netflix.pm	2005-03-19 18:43:43.000000000 -0800
+++ /opt/local/lib/perl5/site_perl/5.8.8/Net/Netflix.pm	2007-11-26 21:48:41.000000000 -0800
@@ -38,15 +38,34 @@
   while ( $body =~ /alt="Next"/i ) {
     $self->{www}->get( "http://www.netflix.com/MoviesYouveSeen?title_sort=t&pageNum=$cur" );
     $body = $self->{www}->content();
-    while ( $body =~ /trkid=\d+">([^<]+).*?2,(\d)/gs ) {
+#    while ( $body =~ /trkid=\d+">([^<]+).*?2,(\d)/gs ) {
+  	while ( $body =~ /trkid=\d+">([^<]+).*?class=star alt="(\d\.\d)/gs ) {
       $ret{ $1 } = $2;
       #print "$1 $2\n";
     }
+		$body = $self->{www}->content();
     ++$cur;
   }
 
   return \%ret;
 }
+
+sub getQueue {
+	my ( $self ) = @_;
+
+	my @ret;
+	my $body = 'alt="Next"';
+	my $cur = 0;
+	
+	$self->{www}->get('http://www.netflix.com/Queue');
+	$body = $self->{www}->content();
+	
+	while ( $body =~ /\?trkid=\d+">([^<]+)/gs ) {
+		push(@ret, $1);
+	}
+
+	return \@ret;
+}
 1;
 
 __END__