| Server IP : 82.208.35.60 / Your IP : 216.73.216.238 Web Server : Apache/2.4.55 (FreeBSD) OpenSSL/1.1.1q-freebsd PHP/7.3.31 System : FreeBSD server7.d2m.cz 12.4-RELEASE-p9 FreeBSD 12.4-RELEASE-p9 GENERIC amd64 User : studiokobylisy_cz ( 1008) PHP Version : 7.3.31 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/ports/www/amphetadesk/files/ |
Upload File : |
--- 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.