#!/usr/bin/perl -w
# $Id$
# Dieses Script (coldformix-a5) wurde von Rdiger Beck erstellt
# Es ist freie Software
# Bei Fehlern wenden Sie sich bitte an mich.
# jeffbeck@web.de  oder  jeffbeck@gmx.de


# Bibliotheken
use strict;
use Getopt::Long;
Getopt::Long::Configure ("bundling");
use coldformix;
# ==========================================================================

# Choose the Language: de, en
my $lang="de";
my $version="";
my $config="";

my $show=0;

# ===========================================================================
# Optionen verarbeiten
# ==========================================================================
# Parsen der Optionen
my $testopt=GetOptions(
           "lang|l=s" => \$lang,
           "version|v=s" => \$version,
           "config|c=s" => \$config,
           "show|s" => \$show
          );


my $in="../coldformix-generated/$lang/latex/coldformix-$lang-$config-$version.ps";
my $out="../coldformix-generated/$lang/latex/coldformix-$lang-$config-$version-a5.ps";
my $befehl;


print "Language    : $lang \n";
print "Inputfile   : $in   \n";
print "Outputfile  : $out  \n";

# Prfen, ob Optionen erkannt wurden, sonst Abbruch
&coldformix::check_options($testopt);

# Nullpunkt: links unten, bleibt beim skalieren
# Querformat 2x A5:  +x:vertikal nach unten
#                    +y:horizontal nach rechts

#$befehl='pstops '.'"2:0L@0.7(21cm,0)+1L@0.7(21cm,14.85cm)"'." $in $out";
#$befehl='pstops '.'"2:0L@0.735(21.5cm,-0.2cm)+1L@0.735(21.5cm,14.65cm)"'." $in $out";
$befehl='pstops '.'"2:0L@0.707(21.00cm,0.05cm)+1L@0.707(21.00cm,14.8cm)"'." $in $out";

print "\n \n $befehl \n \n";

system("$befehl");


#system("kghostview $out");
