[Netcomics-cvs] netcomics/lib keenspot,1.40,1.41

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

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

Modified Files:
	keenspot 
Log Message:
fixed crfh

Index: keenspot
===================================================================
RCS file: /cvsroot/netcomics/netcomics/lib/keenspot,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -d -r1.40 -r1.41
--- keenspot	24 Nov 2008 02:17:38 -0000	1.40
+++ keenspot	24 Nov 2008 02:38:48 -0000	1.41
@@ -43,9 +43,9 @@
 		my @relurls = ();
 		#repeatedly match and replace.  
         while (1) {
-			if ($text =~ s/src=".*?(\/((comics)|(strips))\/.*?$date:??[a-zA-Z_0-9\-\+]*\.((:?jpg)|(:?gif)|(:?png)|(:?swf)))"//i) {
+			if ($text =~ s/src=".*?(\/(comics|strips|\d+)\/.*?$date:??[a-zA-Z_0-9\-\+]*\.((:?jpg)|(:?gif)|(:?png)|(:?swf)))"//i) {
 				my $file = $1;
-				my $type = $5;
+				my $type = $4;
 				push(@relurls,$file) unless grep(/$file/, @relurls);
 				$rec->{'type'} = $type;
 			} else {