Autor |
Nachricht |
Fuzy
Threadersteller
Dabei seit: 14.01.2003
Ort: PW
Alter: -
Geschlecht:
|
Verfasst Mi 18.10.2006 15:04
Titel Verknüpfung 2er pl dateien |
|
|
Hallo Leuts ich habe 2 .pl-Dateien, wie packe ich beide Informationen in eine Datei?
Beispiel:
Code: | #!/usr/bin/perl
require "cgi-lib.pl"; # Version 2.17
$cgi_lib'maxdata = 10000;
$cgi_lib'writefiles = "/temp";
ReadParse();
CgiDie('Sie haben keine Datei ausgewählt.',
'Bitte den Backbutton klicken und die Eingabe wiederholen.')
if !$in{'Datei'};
print &PrintHeader;
print &HtmlTop('Die Datei wurde hochgeladen');
print "Die gesendete Datei wurde wie folgt gespeichert: $in{Datei}.<br>\n";
print &HtmlBot; |
Code: | #!/usr/bin/perl
# -------> Individuelle Parameter des Skriptes - bitte anpassen!
# --> SMTP-Programm zum Versenden der Mail:
$Sendmail_Prog = "/usr/lib/sendmail";
# --> Ziel-Mailadresse, an die gesendet werden soll:
$mailto = 'x@xx.xx';
# -------> Modul für CGI-Scripts einbinden:
use CGI;
# -------> Modul für CGI-Scripts zum Einlesen der Formulardaten anwenden:
$query = new CGI;
@names = $query->param;
# -------> interne Daten aus den erwarteten hidden-Feldern auslesen:
$delimiter = $query->param('delimiter'); # ---> Begrenzerzeichen zwischen name und value
$returnhtml = $query->param('return'); # ---> URL für Dankeseite
$subject = $query->param('subject'); # ---> E-Mail-Subject
# -------> alle Whitespace-Zeichen (Leerzeichen, Tabulator, Newline) in Leerzeichen wandeln
# VERHINDERT sonst möglichen MISSBRAUCH des Skripts
$subject =~ s/\s/ /g;
# -------> Text der E-Mail aus den Formulardaten ermitteln:
$mailtext = "";
foreach(@names) {
$name = $_;
@values = "";
@values = $query->param($name);
if($name ne "return" && $name ne "subject" && $name ne "delimiter") {
foreach $value (@values) {
$mailtext = $mailtext.$name;
$mailtext = $mailtext.$delimiter;
$mailtext = $mailtext.$value."\n";
}
}
}
# -------> E-Mail versenden:
open(MAIL,"|$Sendmail_Prog -t") || print STDERR "Mailprogramm konnte nicht gestartet werden\n";
print MAIL "To: $mailto\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$mailtext\n";
close(MAIL);
# -------> Dankeseite an Browser senden:
print "Location: $returnhtml\n\n"; |
haaaaarig...
|
|
|
|
|
Simonhard
Dabei seit: 25.01.2006
Ort: -
Alter: -
Geschlecht: -
|
Verfasst Mi 18.10.2006 16:09
Titel
|
|
|
Bisschen besser ausdrücken vlt..
Auf Funktionen, Variablen etc. in anderen Dateien greifst Du mit 'require' zu..
|
|
|
|
|
Anzeige
|
|
|
Fuzy
Threadersteller
Dabei seit: 14.01.2003
Ort: PW
Alter: -
Geschlecht:
|
Verfasst Mi 18.10.2006 23:26
Titel
|
|
|
Simonhard hat geschrieben: | Bisschen besser ausdrücken vlt..
Auf Funktionen, Variablen etc. in anderen Dateien greifst Du mit 'require' zu.. |
ich möchte in ein Formular eine Upload-Funktion einbauen, aber ich kann im Form Tag ja schlecht auf 2 Dateien verweisen, und deswegen suche ich jemand erfahrenden, der mir die beiden Scripts zusammensetzt.
Was pl angeht bin ich newbee, aber solang alles funzt, warum nicht weiterentwickeln?!
|
|
|
|
|
schachbrett
Dabei seit: 11.10.2006
Ort: Köln
Alter: -
Geschlecht:
|
Verfasst So 22.10.2006 04:25
Titel
|
|
|
Haengs einfach hintereinander, die Ausgabe-Prints ganz zum Schluss. Das einzige worauf du aufpassen solltest, sind die Parameter-Namen - die duerfen sich nicht ueberschneiden!
Gruss
|
|
|
|
|
|
|
|
Ähnliche Themen |
PDF mit e-Mail Verknüpfung und homepage-Verknüpfung
Email-Verknüpfung im .pdf ??!
Verknüpfung Zwischen PS und ID CC
Mail-Verknüpfung aus PDF löschen
auf grafik mail verknüpfung?
[Flash] Verknüpfung mit PHP und strecken
|
|