[Netcomics-cvs] netcomics/lib sinf,NONE,1.1 keenspot,1.42,1.43

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

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

Modified Files:
	keenspot 
Added Files:
	sinf 
Log Message:
New sinfest module. Remove from keenspot. Adapt Makefile.PL


--- NEW FILE: sinf ---
#-*-Perl-*-

$hof{"sinf"} = 0;

# Sinfest
# http://www.sinfest.net/comikaze/comics/2009-06-15.gif
sub sinf {
    my $time = shift(@_);
    my @ltime = gmtime($time);
    #first comic on January 17, 2000
    my $date = strftime("%Y%m%d",@ltime);
    return undef unless $date > 20000117;

    my $rec = {
	'title' => "Sinfest",
	'author' => "Tatsuya Ishida",
	'type' => 'gif',
	'main' => "http://www.sinfest.net",
	'archives' => "http://www.sinfest.net/archive.php",
	'base' => "http://www.sinfest.net/comikaze/comics/",
	'page' => strftime("%Y-%m-%d.gif", @ltime),
#	'size' => [703,276],
    };

    return $rec;
}

1;

Index: keenspot
===================================================================
RCS file: /cvsroot/netcomics/netcomics/lib/keenspot,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -d -r1.42 -r1.43
--- keenspot	24 Nov 2008 02:51:12 -0000	1.42
+++ keenspot	27 Jun 2009 00:54:11 -0000	1.43
@@ -3,7 +3,7 @@
 foreach (qw(avalon ashfield alice banditb boxjam crfh cotc menagerie ccs elf
    evjake exploit funny gpf greystone helpdesk walky joeav krazyl lwibh
    lostfound  bayside rad greytown mp mcs newshounds nukees ozy pentasmal rpg
-   rwaffles ssdd schlock sheldon sinf soap suburban sp twolumps wander wendy
+   rwaffles ssdd schlock sheldon soap suburban sp twolumps wander wendy
    cutewendy youdamn chopping fatjc kpanic)) {
    $hof{"$_"} = 0;
 }
@@ -1850,33 +1850,33 @@
     return keenspot($title,$author,$date,$url,$index);
 }
 
-#Sinfest
-sub sinf {
-    my $time = shift;
-    my @ltime = gmtime($time);
-    my @ltime2 = gmtime(time);
-    my $date = strftime("%Y%m%d", @ltime);
-    my $date2 = strftime("%Y%m%d", @ltime2);
-
-   # Last updated July 5, 2001
-    my @missing = (20000131,20000222,20000223,20000224,20000225,20000226,
-      20000227,20000228,20000229);
-    my @extra = ();
-
-    #Everyday until present
-    return undef if 
-      (($date < 20000117) || #first comic on January 17, 2000
-      (($date >= 20000117 && $date <= $date2) &&
-      ($ltime[6] !~ /[0123456]/)) ||
-      grep(/$date/,@missing));
-
-    my $title = "Sinfest";
-    my $author = "Tatsuya Ishida";
-    my $url = "http://www.sinfest.net";
-    my $index = undef;
-    
-    return keenspot($title,$author,$date,$url,$index);
-}
+##Sinfest
+#sub sinf {
+#    my $time = shift;
+#    my @ltime = gmtime($time);
+#    my @ltime2 = gmtime(time);
+#    my $date = strftime("%Y%m%d", @ltime);
+#    my $date2 = strftime("%Y%m%d", @ltime2);
+#
+#   # Last updated July 5, 2001
+#    my @missing = (20000131,20000222,20000223,20000224,20000225,20000226,
+#      20000227,20000228,20000229);
+#    my @extra = ();
+#
+#    #Everyday until present
+#    return undef if 
+#      (($date < 20000117) || #first comic on January 17, 2000
+#      (($date >= 20000117 && $date <= $date2) &&
+#      ($ltime[6] !~ /[0123456]/)) ||
+#      grep(/$date/,@missing));
+#
+#    my $title = "Sinfest";
+#    my $author = "Tatsuya Ishida";
+#    my $url = "http://www.sinfest.net";
+#    my $index = undef;
+#    
+#    return keenspot($title,$author,$date,$url,$index);
+#}
 
 #Soap on a Rope
 sub soap {