#!/bin/perl -w

# use strict;

# Declares
my $group = $ARGV[0];
my $file = $ARGV[1];

# Declarations
my $DOC_PATH = "../MainDocument";
my $BACK_PATH = "Backup";

# Change to DOC directory
    chdir("$DOC_PATH/$group") || (print "Fehler beim Verzeichniswechsel."); 
# Unzip File
    if(system( "gunzip $file -S .zip" )){
      print "File $file unzipped";
    }


# Detar the files in the the tar file in cgi-bin
    system( "chmod 666 *.tar");
    system( "tar xvf *.tar >output" );
    system( "chmod 666 output");
      print "<P>";	
      print "File enttarred";	
# Change mode
    system( "chmod 666 *.tex");
    system( "chmod 666 Pics/*");

    chdir("..") || (print "Fehler beim Verzeichniswechsel."); 
#    if (system( "latex Paper.tex >output" )){
    system ("/usr/common/TeX/bin/sparc-solaris2.5/latex /home/cowi/rschwaig/public-www/teaching/ppkt/ppkt2001/MainDocument/Paper.tex >output") ;
    if (1){
      print "<P>";	
      print "<B>LaTeX:</B> ";	
      print "Paper Paper.tex wurde &uuml;bersetzt.";
      if (system( "/usr/common/TeX/bin/sparc-solaris2.5/dvips /home/cowi/rschwaig/public-www/teaching/ppkt/ppkt2001/MainDocument/Paper.dvi >output" )){
        print "<P>";	
        print "<B>DviPS:</B> ";	
        print "Paper Paper.dvi wurde &uuml;bersetzt in Paper.ps.";
      } else {
        print "<P>";	
        print "<B>DviPS:</B> ";	
        print "Paper konnte nicht &uuml;bersetzt werden in Paper.ps.";
      }
    } else {
      print "<P>";	
      print "<B>LaTeX:</B> ";	
      print "Paper konnte nicht &uuml;bersetzt werden.";
    }
exit(0);
