save(/home/jj/DICI/dici.log)
cginame(/home/jj/public_html/bin/dici)
formtitle(Dici Terminology)
uploaddir(/home/jj/DICI/POOL)
feedback(d)
inv(um)

{ 
 *name                             ;
 *numero                           ; 
 lang ;
 terminology                   : file    ;
 _imgs    (imagefolder.zip)    : file    
}

##

sub um{ my $p = shift;
  arrumaFiles($p);
  unzip("_imgs");
  if( $p->{terminology} ){""}
  else {"Nada submetido?"}
}

sub d{ my $p=shift;   # fields: number, lang, terminology
    my $ldir= "dici-pool";
    my $outdir= "/home/jj/public_html/$ldir";         #out base dir
    my $udir= "http://natura.di.uminho.pt/~jj/$ldir"; #out base url 
    my $stud = $p->{numero};                          #user id

    my $indir= $act->{uploaddir1};                    #subm. dir
    my $lang="$p->{lang}" || "PT";
    my $ERR = "";

    ### Input processing
    executa( "cd $indir ;
              dici -lang=$lang terminology > _t.tex 2> _t.err ;
              HOME=/var/www /home/jj/bin/jpdf  -q _t.tex");

    ### copy to Output-dir
    executa( "cp $indir/terminology  $outdir/$stud.dici" );
    executa( "cp $indir/_t.pdf $outdir/$stud.pdf" );

    if (-s "$indir/_t.err"){             ## if errors in dici
       executa( "cp $indir/_t.err $outdir/$stud.err" );
       $ERR = "<a href='$udir/$stud.err'> $stud.err </a>";
    }

    ### Feedback
    "ok<br>
      Results:
      <a href='$udir/$stud.dici'>submeted terminology</a> |
      <a href='$udir/$stud.pdf'>PDF: $stud.pdf </a> |
      $ERR\n</pre>\n<hr/>"
}