diff options
Diffstat (limited to 'www/amphetadesk/files/patch-lib::AmphetaDesk::ChannelsList.pm')
| -rw-r--r-- | www/amphetadesk/files/patch-lib::AmphetaDesk::ChannelsList.pm | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/www/amphetadesk/files/patch-lib::AmphetaDesk::ChannelsList.pm b/www/amphetadesk/files/patch-lib::AmphetaDesk::ChannelsList.pm new file mode 100644 index 000000000000..7ac4b6817145 --- /dev/null +++ b/www/amphetadesk/files/patch-lib::AmphetaDesk::ChannelsList.pm @@ -0,0 +1,23 @@ +--- lib/AmphetaDesk/ChannelsList.pm.orig Tue Oct 11 01:12:48 2005 ++++ lib/AmphetaDesk/ChannelsList.pm Tue Oct 11 01:35:03 2005 +@@ -18,6 +18,7 @@ + use strict; $|++; + use AmphetaDesk::Settings; + use AmphetaDesk::Utilities; ++use AmphetaDesk::WWW; + use XML::Parser; + require Exporter; + use vars qw( @ISA @EXPORT ); +@@ -103,6 +104,12 @@ + # my logfile is aroused. + note("Loading our channel list from " . + get_setting("names_file_services_channels") . "."); ++ ++ # fetch updated version if none exists locally ++ if (! -e (get_setting("files_services_channels")) ) { ++ my $l = new AmphetaDesk::WWW; ++ $l->getstore( "http://www.disobey.com/amphetadesk/lists/services-channels-recent.xml", (get_setting("files_services_channels")) ); ++ } + + # get an new instance of the parser, + # register handlers, then parse. |