cgi-bin/update.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 use CGI qw/:standard/;
   6
   7 my $out = `cd .. && make update 2>&1`;
   8 my $ret = $?;
   9
  10 print header;
  11 print start_html("Update");
  12 print br;
  13
  14 print "Hello world\n";
  15 print $ret;
  16 print $out;
  17
  18 print end_html;