#!/usr/bin/perl -w

require 5.000;
use lib '/usr/local/bin',"$ENV{HOME}/bin",'/usr/stud/loescher/bin';
use lib 'd:/bin','c:/mydos','c:/bin';
use slutil;
use English;


######################################################################
### Voreinstellungen
######################################################################

$version = '0.1 beta';
$appname = 'ps2fax';


######################################################################
### Hauptprogramm
######################################################################

&Hilfe if ($#ARGV<0);

printumlaute Kopf();

$input  = shift;
$output = $input;
$output =~ s/^(.+)\.ps$/$1/;

system("gs -q -dSAFER -dNOPAUSE -sDEVICE=faxg3 -sOutputFile=$output.%d.g3 $input -c quit");

system("ls -l $output.*.g3");

printumlaute "Sie können die erzeugten Files jetzt mit 'faxspool NUMMER FILES' versenden!\n(Root sollte dann irgendwann 'faxrunq' ausführen.)\n";

######################################################################
### Unterprogramme
######################################################################

sub Kopf
{
  my $head = "$appname $version   -   von Stephan Löscher";
  return "\n$head\n" . '~' x length($head) . "\n";
}


sub Hilfe
{
  printumlaute
  Kopf().
"Syntax: ps2fax psfile

Es wird ein Postscript-File nach FAX Gruppe3 gewandelt.

Beispiel: ps2fax brief.ps
Sie erhalten dann im aktuellen Verzeichnis die Files:
brief.X.g3 (wobei X die Seitennummern sind.)
";
exit;
}