Simulation Asimut

#!/usr/local/bin/perl -w use CGI; #start_multipart_form(); $query = new CGI; $TMP="/tmp/ExecAsimut.$$" ; mkdir ($TMP , 0777) ; print "Content-type: text/html\n\n"; #while (($key, $val) = each %ENV) { # print "$key = $val
\n"; #} print "\n"; print "\n"; print " Simulation Asimut\n"; print "\n"; print "\n"; print "

\n";

       # Read a text file and print it out
 #                 while (<$filename>) {
  #                   print "$_
\n\n";
   #               }

#                 $type = $query->uploadInfo($filename)->{'Content-Type'};
#                 unless ($type eq 'text/html') {
#                    die "HTML FILES ONLY!";
#                 }                 
                 
$filename = $query->param('vbe');
#print "

$filename
\n\n";

# Copy a binary file to somewhere safe
                  open (OUTFILE,">>$TMP/description.vbe");
                  while ($bytesread=read($filename,$buffer,1024)) {
                     print OUTFILE $buffer;
                  }
                  close (OUTFILE);

$filename = $query->param('pat');
                 
                  open (OUTFILE,">>$TMP/unproc_patterns.pat");
                  while ($bytesread=read($filename,$buffer,1024)) {
                     print OUTFILE $buffer;
                  }
                  close (OUTFILE);
                 
                 

#exec ( "( sleep 50 ; /asim/gnu/bin/rm -fr $TMP ) & " ) ;
#print "
Exec done...\n
";

open ( RESULT,  "( cd $TMP ; . /users/soft5/newlabo/alliance/share/etc/alc_env.sh  ; asimut -b description unproc_patterns res_patterns ) 2>&1 |" );

while () {
print ;
}
close RESULT ;
print "
done...\n
";
print "
Vous pouvez recuper le fichier de pat simulé ici\n
";
print "

\n"; print "\n"; print "\n";