[Netcomics-cvs] netcomics/lib keenspot,1.43,1.44

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

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

Modified Files:
	keenspot 
Log Message:
Add "Menage a 3" to Keenspot.


Index: keenspot
===================================================================
RCS file: /cvsroot/netcomics/netcomics/lib/keenspot,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -d -r1.43 -r1.44
--- keenspot	27 Jun 2009 00:54:11 -0000	1.43
+++ keenspot	6 Aug 2009 16:19:12 -0000	1.44
@@ -2,7 +2,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
+   lostfound  bayside rad greytown mp mcs mena3 newshounds nukees ozy pentasmal rpg
    rwaffles ssdd schlock sheldon soap suburban sp twolumps wander wendy
    cutewendy youdamn chopping fatjc kpanic)) {
    $hof{"$_"} = 0;
@@ -1462,6 +1462,32 @@
     return keenspot($title,$author,$date,$url,$index);
 }
 
+#Menage a 3
+sub mena3 {
+    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);
+
+    my @missing = ();
+    my @extra = ();
+
+    #T-T-Sat
+    return undef if 
+      (($date < 20080517) || #first comic on May 17, 2008
+      (($date >= 20080517 && $date <= $date2) &&
+      ($ltime[6] !~ /[246]/)) ||
+      grep(/$date/,@missing));
+
+    my $title = "Menage a 3";
+    my $author = "Gisele Lagace";
+    my $url = "http://www.menagea3.net";
+    my $index = undef;
+    
+    return keenspot($title,$author,$date,$url,$index);
+}
+
 #News Hounds
 sub newshounds {
     my $time = shift;