Patch is here:
--- dylan.pl.txt 2003-04-25 14:53:48.000000000 +0200
+++ dylan.pl.new 2003-04-25 15:09:57.000000000 +0200
@@ -2,7 +2,7 @@
use strict;
use LWP::Simple qw(head get);
-use MD5;
+use Digest::MD5 qw(md5_hex);
<code>
@@ -13,13 +13,17 @@
main();
-
+if(system(mozilla => -remote => 'ping()')) {
+ my $pid = fork;
+ die "Couldn't fork: $!" if not defined $pid;
+ exec { 'mozilla' } 'mozilla' if $pid == 0;
+}
sub main {
my $ext = ".snapshot";
my $daysLifetime = 14;
my $secondsDelay = 60 * 10;
- my $commandShow = q{START %s};
+ my $commandShow = q{mozilla -remote "openurl(%s, new-tab)"};
my @aUrl = (
"http://www.classy.dk/",
"http://www.tmtm.com/nothing/",
@@ -52,10 +56,10 @@
my @aChanged;
for my $url (@$raUrl) {
my $text = get($url) or warn("Could not fetch ($url)\n"), nex
+t;
- my $fileMd5 = MD5->hexhash($text) . $ext;
+ my $fileMd5 = md5_hex($text) . $ext;
if(! -r $fileMd5) {
- open(my $fh, "> $fileMd5") or warn("Could not create ($fi
+leMd5)\n"), next;
+ open(my $fh, ">", $fileMd5) or warn("Could not create ($f
+ileMd5)\n"), next;
close($fh);
push(@aChanged, $url);