Danke, bitte fertiges GPL-Script (dailystrips) testen!

[Jeena Paradies]

Hallo,

Vielen dank euch allen für die Hilfe, jetzt ist im endeffekt so etwas daraus geworden:

 if(open($old_feed, "<$options{'feed'}")) {  
  while(<$old_feed>) {  
   $old_items .= $_;  
  }  
  my @old_items = ($old_items =~ /<item>.*?<\/item>/sg);  
  for(my $i = 0; $i < @old_items; $i++) {  
   if(@old_items[$i] =~ /<guid isPermaLink="false">dailystrip-$short_date<\/guid>/sg) {  
    delete @old_items[$i];  
   }  
  }  
  if(@old_items > 14) {  
   pop(@old_items);  
  }  
  $old_items = "  " . join("  \n  ", @old_items);  
  close($old_feed);  
 }

Und das funktioniert auch prima :-)

Wenn jetzt jemand noch Lust hätte die Feed-Funktionalität des dailystrips zu überprüfen, ich habe das veränderte Paket, auf meinem Webspace temporär hochgeladen:

http://jeenaparadies.net/t/self/dailystrips-1.1.0.tar.gz

um sich auch einen Feed erstellen zu lassen ruft man das ganze dann so auf:

tux:~ jeena$ dailystrips userfriendly dilbert --feed /pfad/zu/daily-feed.xml

Wenn das so alles fehlerfrei funktioniert werde ich die Änderungen dem Orginalautor zukommen lassen und hoffe dass er das dann auch übernimmt. Wenn nicht dann werde ich das wohl unter einem anderen Namen bei mir irgendwo veröffentlichen müssen (GPL erlaubt das ja).

Da das meine ersten gehversuche mit Perl überhaupt sind kann ich mir nicht sicher sein, dass das auch alles so funktioniert wie ich mir das gedacht habe, auch wenn ich es ausgiebig getestet habe ;-).

Grüße
Jeena Paradies