[Netcomics-cvs] netcomics/lib unitedmedia,1.34,1.35

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

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

Modified Files:
	unitedmedia 
Log Message:
Fix dilbert, SF#2897401

Index: unitedmedia
===================================================================
RCS file: /cvsroot/netcomics/netcomics/lib/unitedmedia,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -d -r1.34 -r1.35
--- unitedmedia	10 Nov 2009 16:55:05 -0000	1.34
+++ unitedmedia	14 Nov 2009 00:51:42 -0000	1.35
@@ -62,7 +62,17 @@
                     'type' => $type,
                     'func' => undef,
                 };
-            }
+            } elsif (m%(/dyn/str_strip/\d+/\d+/\d+/\d+/\d+/\d+/\d+/\d+/\d+[.\d\w]*\.strip(\.sunday)?\.(gif|jpg|png))%) {
+		my $tmp = $1;
+	        my $type = $1 if ($tmp =~ m%\.(\w+)$%);
+                push @relurls, {
+                    'page' => $tmp,
+                    'comic' => $tmp,
+                    'type' => $type,
+                    'func' => undef,
+                };
+
+	    }
             return @relurls;
         },
 
@@ -276,8 +286,7 @@
     $rec->{'base'} = $baseurl;
     $rec->{'pagebase'} = undef;
     $rec->{'exprbase'} = undef;
-    $rec->{'exprs'} = ["(/dyn/str_strip/\\d+/\\d+/\\d+/\\d+/\\d+/\\d+/\\d+/\\d+/\\d+[.\\d\\w]*\\.strip(\\.sunday)?\\.(gif|jpg|png))"],
-    $rec->{'page'} = strftime("/strips/comic/%Y-%m-%d/",@ltime),
+    $rec->{'page'} = strftime("/strips/comic/%Y-%m-%d/",@ltime);
 
     return $rec;
 }