view_lint.pl

   1 #!/usr/bin/env perl
   2 use POSIX;
   3 use File::Temp qw/tempfile/;
   4
   5 my $u=shift;
   6
   7 my (undef,$weblint_temp) = tempfile();
   8 my (undef,$wget_temp) = tempfile();
   9 warn "$weblint_temp, $wget_temp\n";
  10 unless(my $wlpid = fork) {
  11     open \*STDOUT, '>', $weblint_temp;
  12     system qw|weblint --context 3 |, $u
  13         and die 'error running weblint';
  14     print "*** weblint done ***\n";
  15     POSIX::_exit(0);
  16 } else {
  17     system 'wget', -O => $wget_temp, $u
  18         and die "error running wget ($!)";
  19     waitpid $wlpid, 0;
  20 }
  21
  22 system "$ENV{EDITOR} $weblint_temp $wget_temp"
  23     and die "$! executing \$ENV{EDITOR} '$ENV{EDITOR}'";
  24
  25 for ($weblint_temp, $wget_temp) {
  26     unlink $_
  27         or warn "$! unlinking $_\n";
  28 }