#!/usr/bin/perl
#-->cgi:/home/jj/public_html/bin/d12
#-->dir:/tmp/lixo
#-->local_publish:/home/jj/public_html/ttt

use strict;
use CGI::Auto;

CGI::Auto::auto(title       => "Current processes + download",
   command     => "ps aux > [%outfile(ps.txt)]",
   type        => "batch",
   email       => { type => "attach" },
   email_from  => 'jj-ps@di.uminho.pt',
   local_publish => "/home/jj/public_html/ttt",
   web_publish => "http://natura.di.uminho.pt/~jj/ttt",
##   email_body =>  q{ver [% web_publish %]/[% output_file %]},
   debug       => 1,
   ##output    => ['out']
);