method eq 'POST') { # $r->log->info("Disco::handler: POST Daten wegspeichern "); my %hash = map {$_ => $q->param($_) } $q->param; # print join('
', keys %hash); # $r->log->info("Content=".join(", ", $q->param)); $data_hash->{'request_content'} = \%hash; } else { $data_hash->{'request_content'} = undef; } # Args (von GET) zentral ablegen # Apache 2 behandelt die Argument anders !!debug my %args = map {$_ => $q->url_param($_) } $q->url_param; $data_hash->{'request_args'} = \%args; # Cookie mit temporaerer User ID lesen (bzw. setzten) und eine Session anlegen my %cookies = fetch CGI::Cookie; # $r->log->info("Dumper(cookie):".Dumper(\%cookies).""); if (defined %cookies && defined $cookies{'formulardaten'} && $r->method ne 'POST') { my $datenstring = $cookies{'formulardaten'}->value; my @felder = split('\|\|', $datenstring); my %cHash = (); foreach my $feld (@felder) { my ($key, $val) = split('=', $feld); # $cHash{$key} = $val; $data_hash->{'request_content'}->{$key} = $val; # Daten in POST-Hash schreiben }#foreach # $data_hash->{'request_cookie'} = \%cHash; # print "Cokie-Daten gefunden: $datenstring !
"; }#if (cookies) use QCS::Formulare; my $form = new QCS::Formulare($r, $data_hash); !> Quick-Cargo-Service - Auftragsformular
Auftragsformular
Unternehmen
Standorte
Leistungsangebot
Qualitätsstandard
Agentennetzwerk
Iglu GmbH
News
Kontakt
Links/Downloads
Startseite
auftragsformular(); # wenn der Anwender seine Daten in einem Cookie speichern moechte if ( defined $data_hash->{'request_content'} && defined $data_hash->{'request_content'}->{'cookiedataJ'} && $r->method eq 'POST') { my $data = ''; foreach my $key (keys %{$data_hash->{'request_content'}}) { # nur bestimmte Felder speichern if ( $key !~ /^(versender_|empf_|notify_|auftr_).+/ ) { next; } if ( $data ne '') { $data .= '||'; } $data .= $key . "=".$data_hash->{'request_content'}->{$key}; }#foreach print ''; }#if (cookiedata) !>