Mercurial > org-tools

comparison auto-weave.pl @ 16:f433fae15c50

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
made auto-weave work on all projects
author Robert McIntyre <rlm@mit.edu>
date Wed, 02 Nov 2011 05:01:57 -0700
parents 6ef9ccf7a17e
children 6da973a6b93d
comparison
equal deleted inserted replaced
15:6ef9ccf7a17e 16:f433fae15c50
5 my $mech = WWW::Mechanize::Firefox->new(); 5 my $mech = WWW::Mechanize::Firefox->new();
6 6
7 my $inotify = new Linux::Inotify2 7 my $inotify = new Linux::Inotify2
8 or die "unable to create new inotify object: $!"; 8 or die "unable to create new inotify object: $!";
9 9
10 @org_files = glob("./org/*.org");
11 10
12 $" = "\n"; 11 $org_files = `find /home/r/proj -name "*.org" -print0`;
13 print "@org_files\n"; 12 @org_files = split /\0/, $org_files;
14 13
14 #@org_files = glob("./org/*.org");
15
16 for $file(@org_files){print "$file\n";}
15 $ignore_next = 0; 17 $ignore_next = 0;
16 18
17 19
18 foreach(@org_files){ 20 foreach(@org_files){
19 # add watchers 21 # add watchers