perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 27
 Click for quality!



10.02.2012 / 08:36
Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home

PERLscripts

PHPscripts

JAVAscripts

Hilfreiches

Links2www

Newscenter

Community

Interna



Community  »  CGI: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


BeitragFlatfile-Datensatz mit Absendedatum versehen.
 Seitenanfang
Hallo Leute,

nachdem ich es (auch mithilfe dieses Forums) geschafft habe, dass ein CGI Formulardaten sowohl an mich mailt, als auch in eine Flat-File einschreibt, stehe ich als blutiger Anfänger nun wieder vor einem Rätsel...

Wie erreiche ich es, dass das CGI neben den Formulardaten auch das Absendedatum in ein zusätzliches "Datenfeld" in die Flatfile schreibt?

SSI unterstützt mein Provider übrigens nicht.

Gruß
Marcopolo

Datum: 07.04.2005-09:02
Beitragre: Flatfile-Datensatz mit Absendedatum versehen.
 Seitenanfang
Datum bekommst Du so:

my $heute = get_date();
sub get_date{
  my $year = ((localtime(time))[5] + 1900);
  my $month = ((localtime(time))[4] + 1);
  my $day = (localtime(time))[3];
  my $date = sprintf("%02d.%02d.%04d",$day,$month,$year);
  return $date;
}# end of subroutine

Datum: 07.04.2005-10:35
Beitragre: Flatfile-Datensatz mit Absendedatum versehen.
 Seitenanfang
Hllo Renee,zunächst mal vielen Dank für deine schnelle Antwort. Tja... ich habs versucht. aber wie heißt es so schön??? Es FUNZT nicht...
ich habe der Flatfile ein Datenfeld "date" hinzugefügt, aber wie und wo muss ich denn dien Zeilen in mein Jungfern-Skript einfügen? meine Versuche schlugen alle fehl.
Gruß marcopolo

#!/usr/bin/perl

$formdata=<STDIN>;
$formdata=~s/\s+$//;
foreach (split(/&/, $formdata))
{
($name, $value)=split(/=/, $_);
$name=~s/\+/ /g;
$name=~s/%([0-9|A-F]{2})/pack(C,hex($1))/eg;
$value=~s/\+/ /g;
$value=~s/%([0-9|A-F]{2})/pack(C,hex($1))/eg;

$FORM{$name}=$value;
}

$mailprog = '/usr/sbin/sendmail';

open(SENDMAIL, "|$mailprog -t" ) || die "Can't open $mailprog!\n";

print SENDMAIL "To: $FORM{'wohin'}\n";
print SENDMAIL "To: $FORM{'e-mail'}\n";
print SENDMAIL "From: $FORM{'mail'}\n";
print SENDMAIL "Subject: Gewinnspiel Mai 2005\n\n";
print SENDMAIL <<TICKET;
$FORM{'radiobutton'}

$FORM{'vorname'} $FORM{'name'}
$FORM{'adresse'}
$FORM{'land'}- $FORM{'plz'} $FORM{'ort'}
$FORM{'email'}
IP: $ENV{'REMOTE_ADDR'}
TICKET
close(SENDMAIL);

open (out,">>teil.txt")or die;

print out $FORM{'radiobutton'} ."\t";
print out $FORM{'name'} ."\t";
print out $FORM{'vorname'} ."\t";
print out $FORM{'adresse'} ."\t";
print out $FORM{'land'} ."\t";
print out $FORM{'plz'} ."\t";
print out $FORM{'ort'} ."\t";
print out $FORM{'email'} ."\t";
print out $ENV{'REMOTE_ADDR'} ."\n";

close (out);

print "Location: $FORM{'antwortseite'}\n\n";

Datum: 08.04.2005-14:54
Beitragre: Flatfile-Datensatz mit Absendedatum versehen.
 Seitenanfang
Hallo Renee,
nu hat's geklappt.
Die Variable lautet wohl doch
"heute" und nicht "date" :-)

DANKE NOCHMAL

Datum: 12.04.2005-13:22
-






-
 -