[Netcomics-cvs] netcomics/lib unitedmedia,1.32,1.33

[Sven H. <ha...@us...>]

Update of /cvsroot/netcomics/netcomics/lib
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv3264

Modified Files:
	unitedmedia 
Log Message:
UnitedMedia now back with Zoom instead of Full.

Index: unitedmedia
===================================================================
RCS file: /cvsroot/netcomics/netcomics/lib/unitedmedia,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -d -r1.32 -r1.33
--- unitedmedia	10 Nov 2009 16:15:29 -0000	1.32
+++ unitedmedia	10 Nov 2009 16:52:34 -0000	1.33
@@ -32,17 +32,42 @@
 
     my $baseurl = "http://www.comics.com";
 
+    #Design:
+    #
+    #First use a function to determine if the specified date exists,
+    #then have it return just a hash to update the rli with the correct info.
+
+
     my $rec = {
 	'title' => $title,
 	'author' => $author,
-	'type' => 'gif',
 	'main' => "$baseurl/$fp/",
 	'archives' => "$baseurl/$fp/",
 	'base' => $baseurl,
 	'pagebase' => $baseurl,
-	'exprbase' => "",
-	'exprs' => ["(http://[.\\d\\w]*/dyn/str_strip/\\d+[.\\d\\w]*\\.full\\.(gif|jpg|png))"],
+#	'exprbase' => "",
+#	'exprs' => ["(http://[.\\d\\w]*/dyn/str_strip/\\d+[.\\d\\w]*\\.full\\.(gif|jpg|png))"],
 	'page' => strftime("/$fp/%Y-%m-%d/",@ltime),
+        'func' => sub {
+            $_ = shift;
+            my @relurls = ();
+            if (m%(http://[.\d\w]*/dyn/str_strip/\d+[.\d\w]*\.full\.(gif|jpg|png))%) {
+                my $tmp = $1;
+		$tmp =~ s/full/zoom/;
+                my $type = $1 if ($tmp =~ m%\.(\w+)$%);
+                push @relurls, {
+		    'pagebase' => "",
+                    'page' => $tmp,
+                    'comic' => $tmp,
+                    'type' => $type,
+                    'func' => undef,
+                };
+		print "$tmp, $type\n";
+            }
+            return @relurls;
+        },
+
+
 	'size' => $size,
     };