projects
/
HTML5TV.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Sylvain Munaut: Abusing Calypso
[HTML5TV.git]
/
bin
/
calendar.pl
diff --git
a/bin/calendar.pl
b/bin/calendar.pl
index
12242f7
..
2898779
100755
(executable)
--- a/
bin/calendar.pl
+++ b/
bin/calendar.pl
@@
-7,9
+7,24
@@
use lib 'lib';
use HTML5TV::hCalendar;
use File::Slurp;
use XML::FeedPP;
use HTML5TV::hCalendar;
use File::Slurp;
use XML::FeedPP;
+use HTML::ResolveLink;
my $url = 'http://html5tv.rot13.org';
my $url = 'http://html5tv.rot13.org';
+my $style = qq|
+<style type="text/css">
+
+|
+. read_file('www/css/hCalendar.css')
+. qq|
+
+.watch {
+ margin-right: 0.1em;
+}
+
+</style>
+|;
+
my $html = qq|<!DOCTYPE html>
<html>
my $html = qq|<!DOCTYPE html>
<html>
@@
-25,14
+40,9
@@
my $html = qq|<!DOCTYPE html>
<script src="js/jqueryhcal/jqueryhcal.js" type="text/javascript"></script>
<link rel="stylesheet" type="text/css" href="js/jqueryhcal/jqueryhcal.css" />
<script src="js/jqueryhcal/jqueryhcal.js" type="text/javascript"></script>
<link rel="stylesheet" type="text/css" href="js/jqueryhcal/jqueryhcal.css" />
-<link rel="stylesheet" type="text/css" href="hcalendar.css" />
-<style type="text/css">
-
-.watch {
- margin-right: 0.1em;
-}
+<link rel="stylesheet" type="text/css" href="css/hCalendar.css" />
-</style>
+$style
<title>HTML5TV all media available</title>
<title>HTML5TV all media available</title>
@@
-49,6
+59,8
@@
my $feed = XML::FeedPP::RSS->new;
$feed->title( 'HTML5TV' );
$feed->link( $url );
$feed->title( 'HTML5TV' );
$feed->link( $url );
+my $resolver = HTML::ResolveLink->new( base => $url );
+
foreach my $path ( glob 'media/*/hCalendar.html' ) {
next if $path =~ m{_editing};
warn "+ $path\n";
foreach my $path ( glob 'media/*/hCalendar.html' ) {
next if $path =~ m{_editing};
warn "+ $path\n";
@@
-70,7
+82,7
@@
foreach my $path ( glob 'media/*/hCalendar.html' ) {
]
);
]
);
- $vevents->{ $hcal->dtstart_iso } = $html;
+ $vevents->{ $hcal->dtstart_iso
. $media
} = $html;
my $pubDate = $hcal->dtstart_iso;
$pubDate =~ s{^(\d\d\d\d)(\d\d)(\d\d).*$}{$1-$2-$3};
my $pubDate = $hcal->dtstart_iso;
$pubDate =~ s{^(\d\d\d\d)(\d\d)(\d\d).*$}{$1-$2-$3};
@@
-78,7
+90,7
@@
foreach my $path ( glob 'media/*/hCalendar.html' ) {
my $item = $feed->add_item( "$url/$media.html" );
$item->title( $hcal->summary );
$item->pubDate( $pubDate );
my $item = $feed->add_item( "$url/$media.html" );
$item->title( $hcal->summary );
$item->pubDate( $pubDate );
- $item->description( $
html
);
+ $item->description( $
resolver->resolve( $html )
);
}
$feed->to_file( 'www/calendar.xml' );
}
$feed->to_file( 'www/calendar.xml' );