#!/usr/bin/perl

use CGI;
$query = new CGI;

$user = $query->remote_user();
$home = "/home/mha/public_html/server/fax/$user";

if ($query->param('action') eq "true") {
} else {
}

open (SETUP, "<$home/setup");
while (<SETUP>) {
SWITCH:
	/^NAME:(.*)/	&& do 	{$name=$1;};
	/^PHONE:(.*)/	&& do 	{$phone=$1;};
	/^FAX:(.*)/	&& do 	{$fax=$1;};
	/^EMAIL:(.*)/	&& do 	{$mail=$1;};
}

print $query->header;
print <<EOF;
<HTML>
<HEAD>
  <TITLE>Lokales File als Fax versenden</TITLE>
</HEAD>
<BODY LINK=#0000ff VLINK=#0000ff BACKGROUND="/~mha/pictures/ringbuch.jpg">
<TABLE BORDER=0 WIDTH=100%><TR>
<TD>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
<TD>
Nutzer: <STRONG>$user</STRONG> | <A HREF=\"/fax-usr/priv-setup.cgi\">Pers&ouml;nl. Einstellungen</A> | <A HREF=\"/fax/index.html\">FaxHome</A> | <A HREF=\"/cgi-bin/send-message\">Sende Mitteilung</A> | Sende Datei | <A HREF=\"/cgi-bin/view_received.cgi\">Inbox</A>
<HR>
<H2 ALIGN=CENTER>Lokales File als Fax versenden</H1>
<HR>
<UL>
<LI><STRONG>Funktioniert nur mit Netscape ab Version 2.0</STRONG>, da andere Browser die M&ouml;glichkeit zum File-Upload noch nicht implementiert haben (und nicht mit der HP-UX Version, die ist buggy).
<LI>Den <VAR>browse</VAR>-Knopf dr&uuml;cken um eine Datei auszuw&auml;hlen (per Auswahlbox).
<LI>Nur <FONT COLOR=#ff0000>Text- oder Postscript-Dateien</FONT> senden, alles andere geht nicht! 
<LI>Postscript Dateien kann man z.B. dadurch erzeugen, da&szlig; man die Druckausgabe f&uuml;r einen Postscriptdrucker in eine Datei umleitet, was von Windows im Druckdialog angeboten wird.
</UL>
<HR>

<PRE>
<FORM ACTION="/fax-usr/send-file.cgi" METHOD="POST" ENCTYPE="multipart/form-data">
Email Adresse: <INPUT NAME="from-mail" SIZE="33" VALUE=\"$mail\">
           (f&uuml;r Nachrichten vom Fax-Server, wichtig!)


<H3>Von:</H3>
Name:          <INPUT NAME="from-name" SIZE="33" VALUE=\"$name\">
Tel.-Nr.:      <INPUT NAME="from-phone" SIZE="33" VALUE=\"$phone\">
Fax-Nr:        <INPUT NAME="from-fax" SIZE="33" VALUE=\"$fax\">


<H3>An:</H3>
<STRONG>Fax-Nr:</STRONG>        <INPUT NAME="to-fax" SIZE="33"> (<STRONG>Mit</STRONG> '0' f&uuml;r Amt)
Name:          <INPUT NAME="to-name" SIZE="33">
Firma:         <INPUT NAME="to-firm" SIZE="33">


Betrifft:      <INPUT NAME="regarding" SIZE="33">

Kommentar (Die Eingabe wird als <STRONG>eine</STRONG> Zeile behandelt und
automatisch umgebrochen):
<TEXTAREA NAME="text" ROWS=3 COLS=67></TEXTAREA>

<STRONG>Welches File (inkl. Pfad):</STRONG>
<INPUT TYPE="file" NAME="filename" VALUE="" SIZE=42><BR>
<HR> <INPUT TYPE="submit"NAME="submit" VALUE="Sende Datei">    <INPUT TYPE="reset" VALUE="Alles L&ouml;schen">
</FORM></PRE>
</TD></TABLE>
</BODY></HTML>
EOF
	;
close(SETUP);

