Mercurial > org-tools
changeset 11:24ff8a9c76c4
all day for three lines
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Tue, 25 Oct 2011 08:00:48 -0700 |
parents | 83e16df2288a |
children | 737c903fc815 |
files | auto-weave.pl |
diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
1.1 --- a/auto-weave.pl Tue Oct 25 07:52:02 2011 -0700 1.2 +++ b/auto-weave.pl Tue Oct 25 08:00:48 2011 -0700 1.3 @@ -1,8 +1,8 @@ 1.4 #!/usr/bin/perl 1.5 1.6 use Linux::Inotify2; 1.7 -use AnyEvent; 1.8 - 1.9 +use WWW::Mechanize::Firefox; 1.10 +my $mech = WWW::Mechanize::Firefox->new(); 1.11 1.12 my $inotify = new Linux::Inotify2 1.13 or die "unable to create new inotify object: $!"; 1.14 @@ -40,6 +40,7 @@ 1.15 $path =~ s|org|html|g; 1.16 print ("$path\n"); 1.17 #system ("firefox $path"); 1.18 + $mech->get($path); 1.19 $ignore_next = 1; 1.20 1.21 });