#!/usr/bin/perl

use strict;
use CGI::Auto;

my %grep= (
  command => "grep -i [%pattern%] [%file%]",
  title => "Grep Command using CGI::Auto",
  description => "Grep  searches the named input FILEs (or standard input if no files are
       named, or the file name - is given) for lines containing a match to the
       given PATTERN.  By default, grep prints the matching lines.",
  dir => {
  		work => "/Library/WebServer/Documents/temp",
  		download => "/Library/WebServer/Documents/temp", 
  		url_down=>"http://localhost/temp"
  		},
#  email => {smtp =>'natura.di.uminho.pt',from => 'a35816@alunos.uminho.pt', type=>'link'},
	output => {type => "zip", name => "resultado.zip"},
  args => {
    pattern => {type => "textfield",name => "Pattern to Search", prototype => "string"},
    file  => {type => "upload", name => "File to process..."}
        }
);

auto(%grep);