#!/usr/bin/perl use CGI; $query = new CGI; $user = $query->remote_user(); $home = "/home/mha/public_html/server/fax/$user"; open (SETUP, "<$home/setup"); while () { SWITCH: /^NAME:(.*)/ && do {$name=$1;}; /^PHONE:(.*)/ && do {$phone=$1;}; /^FAX:(.*)/ && do {$fax=$1;}; /^EMAIL:(.*)/ && do {$mail=$1;}; } print $query->header; print < Sende Mitteilung
         Nutzer: $user | Persönl. Einstellungen | FaxHome | Sende Mitteilung | Sende Datei | Inbox

Kurze Fax-Mitteilung (1 Seite) senden

Limits: max. 30 Zeilen, 67 Zeichen/Zeile (wird automatisch überprüft und kann im Fehlerfall korrigiert werden, einfach BACK-Knopf im Browser drücken)
Hinweis: Das Eingabe-Fenster für den Text ist genau 30 Zeilen x 67 Zeichen groß!
Ä,Ü usw. werden in Ae, Ue, usw. umgewandelt, da nicht im verwendeten Zeichensatz (Courier) vorhanden.
Hier ist eine Demo-Seite (so sieht das Ergebnis beim Empfänger aus). 
Email Adresse: 
           (für Nachrichten vom Fax-Server, wichtig!)



Von:

Name:          
Tel.-Nr.:      
Fax-Nr:        



An:

Fax-Nr:         (Mit '0' für Amt)
Name:          
Firma:         


Betrifft:
EOF ; close(SETUP);