Job ab Ende November gesucht...

Question

Auch ohne Hoch- oder Fachschulabschluß sind Spitzenleistungen drin!
Suche nach Abschluß meiner Ausbildung zur IT-Managerin/Neue Medien interessanten Job.
Kenntnisse:
- HTML, JavaScript, CSS, Photoshop, Premiere, Illustrator, SoundForge, Flash4, Dreamweaver, HomeSite.
Interessen:
- WebDesign, Programmierung.
mfG
[email protected]

Answer 1

Hier Javascript:
Postmail-CGI
Hallo,
Könnten Sie helfen, wie man ein Postmail-CGI richtig installiert ? Mein Hoster hat mir vor Vertragsabschluß versprochen, mir beim Installieren eines Postmail-CGI zu helfen - und daß dies kein Problem wäre. Nun allerdings scheint er damit auch Probleme zu haben. Das CGI läuft offenbar, denn nach Absenden bringt es im Browser die Rückmeldung "ihre Eingaben waren korrekt... etc." allerdings kommt im Emailpostfach keiene Email an.
Könnten Sie helfen ? Offenbar fehlt nur ein richtiger Eintrag im CGI, der die Mail in das Postfach leitet.
Das Problem: vermutlich die richtigen urls im CGI anzugeben. Es handelt sich um einen
Apache Server. Das CGI befindet sich im Verzeichnis der Website im cgi-bin. Das CGI heißt
af.cgi. Zur besseren Orientierung dasselbe nachfolgend:
#!/usr/bin/perl
# AlienForm2 - Released 23 May, 1998.
# Copyright 1997, 1998 Jon Hedley - [email protected]
# All Rights Reserved.
# Do not discribute this script without my express, written permission!
# Remember to upload in ASCII mode!
# Work hard, and be good to your mother.
# Deutsche Übersetzung:
# www.internet-partner.de mail: [email protected]
# Beachte, daß das Script im ASCII Modus upgeloadet wird !
# Installationhilfen können gegeben werden, bitte Kontakt per eMail oder AIM
# Wir freuen uns auf jeden Link auf unsere Homepage, machen es aber nicht zur
# Bedingung
# Setzt den benötigten MIME-Type. Normalerweise sollte hier nichts geändert werden.
$content_type = "Content-Type: text/htmlnn";
# Hier den Unix-Pfad zu den Forumularen angeben. Dieser Pfad wird den angegebenen
# Formularen vorangestellt. Das Verzeichnis sollte dort sein, wo sich auch die HTML-Dateien
# befinden, nicht aber im CGI-BIN Verzeichnis, bzw. in dortigen Unterverzeichnissen!
$base_path = \'/vserv/i/interne2/htdocs/formulare/\';
# Befehl zum laden des Mailers, welcher unbedingt den STDIN-Standard unterstützen sollte!
$mail_cmd = \'/usr/sbin/sendmail -t\';
# Hier kann festgeelgt werden, welcher Server, oder welche Seiten auf dieses
# Script zugreifen darf. Dabei können ganze URL\'s angegeben werden oder auch
# global ganze Server (ist meist das sinnvollste). Es ist sinnvoll die Angaben
# mit UND ohne vorangestelltem www zu machen. Es sei denn, der Server ist sowieso
# nicht erreichbar ohne www. vorweg.
# Alternativ kann hier auch eine IP angegeben werden. Alle Einträge sind in \' Hochkommas \'
# zu setzen, und werden in einer Liste mit Kommas getrennt.
@Referers = (\'www.domainnahme.com\');
##Hier habe ich den richtigen Domainnahmen angegeben.
## AB HIER NICHTS MEHR ÄNDERN, WENN DU NICHT GENAU WEISST ##
## WAS DU MACHST! ##
$error_loop = 0;
$browser_out = 0;
if ($ENV{\'REQUEST_METHOD\'} eq \'GET\' and not $ENV{\'QUERY_STRING\'})
$ENV{\'OUT_TITLE\'} = "AlienForm2 deutsch Releas 9/98";
$ENV{\'OUT_MSG\'} = qq|Die letzte deutsche Version ist erhaeltlich bei <a href="http://www.internet-partner.de">Internet-Partner.de.|;
@msg = (<DATA>);
@msg = ParseText(@msg);
BrowserOut(@msg);
exit(0);
&CheckRef;
&ParseForm;
if (@missing_values or @bad_emails or @only_digits or @only_words) { Error(\'evil values\') }
foreach $key (keys %FORM)
if ($key =~ /^_send_email/)
@lines = ReadFile(\'Email Template\',$FORM{$key});
@lines = ParseText(@lines);
SendMail(@lines);
elsif ($key =~ /^_out_file/)
@lines = ReadFile(\'Log File\',$FORM{$key});
@lines = ParseText(@lines);
LogFile(\'LogFile Template\',@lines);
elsif ($key =~ /^_browser_out/ and $browser_out < 2)
$browser_out++;
@lines = ReadFile(\'Browser Template\',$FORM{$key});
@lines = ParseText(@lines);
BrowserOut(@lines);
elsif ($key =~ /^_redirect/ and $browser_out < 2)
$browser_out++;
print "Location: $FORM{$key}nn";
unless ($browser_out)
@msg = (<DATA>);
$ENV{\'OUT_TITLE\'} = "Übertragung erfolgreich";
$ENV{\'OUT_MSG\'} = "Deine eingaben waren erfolgreich, vielen Dank";
@msg = ParseText(@msg);
BrowserOut(@msg);
exit(0);
sub BrowserOut
{ print "$content_type@_n" }
sub CheckRef
my ($valid_referer, @terms);
if ((@Referers) and ($ENV{\'HTTP_REFERER\'}))
foreach $referer (@Referers)
if ($ENV{\'HTTP_REFERER\'} =~ m|http.*?://$referer|i)
$valid_referer++;
last;
else {$valid_referer++;}
unless ($valid_referer)
@terms = split(///,$ENV{\'HTTP_REFERER\'});
Error
\'Falscher Server\',
"\'$ENV{\'HTTP_REFERER\'}\' ist nicht autorisiert zur Verwendung des Scripts. Wenn du eine Erlaubnis geben möchtest,
trage bitte \'$terms[2]\' in die reffer-liste am Anfang des Scripts."
sub Error
++$error_loop;
my $title = shift @_;
my $msg = shift @_;
my @error;
if ($title eq \'evil values\')
my $val;
if (@missing_values)
$msg = qq|<p>Die nachfolgenden Felder müssen eingegeben werden:</p>n<ol type="i">n|;
foreach $val (@missing_values) { $msg .= "<li>$valn" }
$msg .= "</ol>n";
if (@bad_emails)
$msg .= qq|<p>Die nachfolgenden Felder müssen eine gültige eMail-Adresse beinhalten:</p>n<ol type="i">n|;
foreach $val (@bad_emails) { $msg .= "<li>$valn" }
$msg .= "</ol>n";
if (@only_digits)
$msg .= qq|<p>Die nachfolgenden Felder dürfen nur Zahlen von (0-9) enthalten:</p>n<ol type="i">n|;
foreach $val (@only_digits) { $msg .= "<li>$valn" }
$msg .= "</ol>n";
if (@only_words)
$msg .= qq|<p>Die nachfolgenden Felder dürfen keine Sonderzeichen enthalten, nur A-Z und 0-9:</p>n<ol type="i">n|;
foreach $val (@only_words) { $msg .= "<li>$valn" }
$msg .= "</ol>n";
$title = \'Fehler - Fehlerhafte Zahlen\';
$msg .= qq|<p>Gehe zurück und wiederhole die Eingabe.</p>n|;
if ($FORM{\'_error_url\'}) { print "Location: $FORM{\'_error_url\'}nn" }
elsif ($FORM{\'_error_path\'} and $error_loop < 2)
$ENV{\'OUT_TITLE\'} = $title;
$ENV{\'OUT_MSG\'} = $msg;
@error = ReadFile(\'Error Template\',$FORM{\'_error_path\'});
@error = ParseText(@error);
BrowserOut(@error);
else
@error = (<DATA>);
$ENV{\'OUT_TITLE\'} = $title;
$ENV{\'OUT_MSG\'} = $msg;
@error = ParseText(@error);
BrowserOut(@error);
exit(0);
sub LogFile
my $msg = shift @_;
my $file = shift @_;
$file = $base_path . $file;
open(FILE,">>$file") or Error(\'Datei Zugriffs Fehler\',"Ein Fehler tritt auf, beim anhängen an die Log-Datei $msg ($file): $!");
flock(FILE,2) or Error(\'Datei Sperr Fehler\',"Ein Fehler tritt bei der Dateispere auf: $msg ($file): $!.");
print FILE @_;
close(FILE) or Error(\'Datei schlißen Fehler\',"Ein Fehler tritt beim Schliessen der Datei auf: $msg ($file): $!.");
sub ReadFile
my $msg = shift @_;
my $file = shift @_;
my @lines;
$file = $base_path . $file;
open(FILE, "$file") or Error(\'Datei Zugriffs Fehler\',"Ein Fehler tritt beim Zugriff auf: $msg ($file): $!.");
flock(FILE,2) or Error(\'Datei Lock Fehler\',"Ein Fehler tritt beim sperren auf: $msg ($file): $!.");
@lines = (<FILE>);
close(FILE) or Error(\'Datei Schliessen Fehler\',"Ein Fehler tritt beim Schliessen der Datei auf: $msg ($file): $!.");
return @lines;
sub ParseForm
my ($key, $prefs, $buffer);
if ($ENV{\'REQUEST_METHOD\'} eq \'GET\')
{ @pairs = split(/&/, $ENV{\'QUERY_STRING\'}) }
elsif ($ENV{\'REQUEST_METHOD\'} eq \'POST\')
read(STDIN, $buffer, $ENV{\'CONTENT_LENGTH\'});
@pairs = split(/&/, $buffer)
else {Error(\'Bad or Unbekannte Request-Methode\',
"Das Formular muß mit REQUEST=POST oder REQUEST=GET übertragen werden, Fehler in HTML-Datei prüfen!.")}
foreach $pair (@pairs)
local($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.)*?-->//mg;
$FORM{$name} = $value;
if ($name =~ /_/ and $name !~ /^_/)
($prefs, $key) = split /_/, $name, 2;
if ($prefs =~ /r/i and not $value) { push @missing_values, $key }
if ($prefs =~ /e/i and $value and
(($value =~ /(@.*@)|(..)|(@.)|(.@)|(^.)/) or
($value !~ /^.+@([?)[a-zA-Z0-9-.]+.([a-zA-Z]{2,3}|[0-9]{1,3})(]?)$/)))
{ push @bad_emails, $key }
if ($prefs =~ /d/i and $value and $value =~ /D/) { push @only_digits, $key }
if ($prefs =~ /w/i and $value and $value =~ /W/) { push @only_words, $key }
if ($prefs =~ /s/i and $value) { $value =~ s/^(s)*//;
$value =~ s/(s)*$//;
$FORM{$name} = $value; }
sub ParseText
my ($line, $key, $value, $sub);
foreach $line (@_)
while (($key => $value) = each %FORM)
{ $line =~ s/[$key]/$value/ig }
while (($key => $value) = each %ENV)
{ $line =~ s/[%$key]/$value/ig }
$line =~ s/[[^<](.)*?[^>]]//g;
foreach $line (@_)
while ($line =~ /[<((.)*?)>]/)
$sub = $1;
$sub =~ s/[^d+*/-%.x<>()]//g;
$sub = eval $sub;
$line =~ s/[<(.)*?>]/$sub/
return @_;
sub SendMail
open(MAIL,"|$mail_cmd") or Error(\'Fehler - Mailer öffnen\',"Ein Fehler tritt auf beim Starten des Mailers ($mail_cmd): $!.");
print MAIL @_;
close(MAIL) or Error(\'Mail Send Error\',"Ein Fehler tritt beim Senden der eMail auf: $?. Please check the email\'s headers.");
__END__
<head>
<title>[%OUT_TITLE]</title>
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#0000FF" vlink="#800080" alink="#FF0000">
<div align="center"><center>
<table border="2" cellpadding="0" cellspacing="0" bgcolor="#FFD26B" bordercolor="#699A69"
width="500">
<tr>
<td><h2 align="center">[%OUT_TITLE]</h2>
<p align="center">[%OUT_MSG]</p></td>
</tr>
</table>
<p><br><p>
<table border="2" cellpadding="0" cellspacing="0" bgcolor="#FFD26B" bordercolor="#699A69"
width="500">
<tr>
<td><h2 align="center"><a href="http://www.cgi.tj/">AlienForm²</a></h2>
<p align="center">Copyright 1997 - 1998 <a href="mailto:[email protected]">Jon Hedley</a>.<br>
All Rights Reserved.<br><br>Deutsche Übersetzung: <a href=http://www.internet-partner.de>www.internet-partner.de</a><br>
eMail <a href=mailto:[email protected]>[email protected]</a></b><br></td>
</tr>
</table>
</center></div>
</body>
Im HTML-Text ist folgende Zeile eingetragen:
<form name="FormName#5" action="cgi-bin/af.cgi" method="post">
welche vielleicht noch nicht richtig ist.
Zunächst habe ich mir mit folgender Zeile beholfen:
<form name="Formular 1" action="mailto:[email protected]" method="post" enctype="text/plain" target="_self">
Diese bedient das Formular ohne CGI-Funktion, soll aber nicht mit allen Browsern bzw. Servern funktionierne - und vor allem, es fehlt die Rückmeldung.
Die im CGI verzeichnete Firma Schiffmann meldet sich auch nicht auf eine Anfrage, obwohl Sie Hilfe beim Installieren versprochen hat, es kommt lediglich eine automatische mailantwort mit Angeboten.
Verschiedene Anbieter im internet machen ebenfalls Angebote, ihren Mailserver gegen Entgeld zu benutzen (was ja nicht verwerflich ist).
Die NCSA HTTPd ( cgi-src directory) bietet Beispiel CGI, die ich im Moment leider nicht entpacken kann, da ich erst Stuffit-Deluxe kaufen müßte
Wenn ich hoffentlich bald mehr Kunden habe, könnte ich Partner und Mitarbeiter gebrauchen.
Mit freundlichen Grüßen
Uwe Hamisch
Hanau