Moderatore: Staff
Non hai una postepay?Loris ha scritto:Il server virtuale costa 35 euro al mese circa, appena ho un momento verifico il discorso delle donazioni con Paypal, non essendo un circolo o club con una regolamentazione interna mi vengono alcuni dubbi e vorrei evitare problemi...
corretto un bug (ho scritto il coso al volo di notte dopo aver riaddormentato il bimbo che aveva male alle gengive (sta mettendo i dentini) quindi avevo scritto un paio di boiate), ecco la versione funzionante:Loris ha scritto:questo fine settimana mi metto sotto con il ChangeLog
Codice: Seleziona tutto
#!/usr/bin/perl
use strict;
use warnings;
use Digest::MD5 qw(md5 md5_hex md5_base64);
use Encode;
my $baseentrylink='http://www.slacky.it/changelog.php?entry=';
my $url=$ARGV[0];
my $title=$ARGV[1];
my $entriesdir=$ARGV[2];
die "Usage: $0 url rss-title entries-dir" unless ($ARGV[2]);
my @changelog=`wget -O - $url 2>/dev/null`;
my @entry;
my $entrystring;
my $md5cs;
my $descstring;
print "
<rss version="2.0">
<channel>
<title>$title</title>
<link>http://www.slacky.it/rss/</link>
<description>Slackware ChangeLog</description>
<language>en-us</language>
<managingEditor>info\@slacky.it</managingEditor>
<docs>http://blogs.law.harvard.edu/tech/rss</docs>
";
print "\t<item>\n";
foreach(@changelog) {
s/\r//;
if( m/--------------------------/ ) {
$md5cs=md5_hex(Encode::encode_utf8($entrystring));
print "\t\t<description>\n\t\t\t$descstring\t\t\t\n\t\t</description>\n";
print "\t\t<link>".$baseentrylink.$md5cs."</link>\n";
print "\t\t<guid isPermaLink="false">$md5cs</guid>\n";
print "\t</item>\n";
open(ENTRIESDIR,">$entriesdir/$md5cs") || die("Error: can't open the entry file $entriesdir/$md5cs!");
print ENTRIESDIR "$entrystring";
close(ENTRIESDIR);
$entrystring='';
$descstring='';
print "\t<item>\n";
next;
}
$entrystring.=$_;
if( m/[A-Z][a-z][a-z]\s+[A-Z][a-z][a-z]\s+\d+\s+\d+:\d+:\d+\s+[A-Za-z]+\s+\d+\n*/ ) {
chomp();
print "\t\t<title>$_</title>\n";
} elsif( m/^[^\s]/) {
$descstring.="\t\t\t$_";
}
}
$md5cs=md5_hex(Encode::encode_utf8($entrystring));
print "\t\t<description>\n\t\t\t$descstring\t\t\t\n\t\t</description>\n";
print "\t\t<link>".$baseentrylink.$md5cs."</link>\n";
print "\t\t<guid isPermaLink="false">$md5cs</guid>\n";
print "\t</item>\n";
print "
</channel>\n
</rss>";
Perfetto grazie mille, sei molto gentile...masalapianta ha scritto:corretto un bug (ho scritto il coso al volo di notte dopo aver riaddormentato il bimbo che aveva male alle gengive (sta mettendo i dentini) quindi avevo scritto un paio di boiate), ecco la versione funzionante
quoto, conviene usare gli strumenti piu' adatti per fare certe cose piuttosto che trasformare la home in un blob pieno di roba (rendendola di fatto poco usabile); coi feed rss inoltre e' possibile impostare script che mandino mail, facciano partire popup, ecc.. (ovviamente buona parte di queste cose son gia implementate nei feedreader piu' completi);Loris ha scritto:Per il discorso pacchetti nuovi... perché non usate gli RSS ? sono super comodi e non serve neppure visualizzare l'home page...
Vabbè la mia memoria è andata un po' a farsi benedire)
