Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]11833[/thread]

Problem: Aus @ wird%40. (Seite 2)



<< |< 1 2 3 >| >> 23 Einträge, 3 Seiten
Gast Gast
 2008-05-21 14:56
#110052 #110052
Achja ganz wichtig was ich noch vergessen habe zu erwähnen:
Es gibt auch Fälle in welchen der ursprüngliche Code funktioniert. Vor ein paar Jahren gabs nie so ein Problem.
Kann das am verwendeten Browser (plus Version) des Client-PCs liegen?

Ich werde gleich noch den Gesamtcode posten.
Gast Gast
 2008-05-21 14:59
#110053 #110053
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
#!C:/Program Files/Perl/bin/perl

use Net::SMTP;
use MIME::Lite;

my $Label;
my $TmpAdressTo;
my $TmpEmailAddressTo;

print FILE "\n********************** NEW RECORD ************************\n";

# Get the input
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

# Split the name-value pairs
@pairs = split(/&/, $buffer);

foreach $pair (@pairs) {
   ($name, $value) = split(/=/, $pair);

	if ($name eq 'firstname') {
		$firstname = $value;
	}
	if ($name eq 'lastname') {
		$lastname = $value;
	}
	if ($name eq 'ValA') {
		$ValA = $value;
	}
	if ($name eq 'email') {
		$email = $value;
	}
	if ($name eq 'studiengang') {
		$studiengang = $value;
                ($Label,$TmpAdressto)=split(/=/,$zeile);
                 $TmpAdressto=~s/\s//g;
                 chomp($TmpAdressto);
                 if ($TmpAdressto eq 'xxx')
				 {
					$TmpEmailAddressto="x\@x";
										
				 }
		 elsif ($TmpAdressto eq 'xxx')
				 {
					$TmpEmailAddressto="x\@x.de";
				 }
		 else 
				 {
					$TmpEmailAddressto="x\@x.de";
										
				 }
                 last;
	}

}

if ( ($firstname eq '') || ($lastname eq '') || ($matriculation eq '') || ($email eq '') ) {
	print "Content-type: text/html\n\n";
	print "\n\n";
	print "Blabla!<br><br>";
	print "\n\n";
	print "Blabla!";
	print "\n\n";
	stop();
}

$filename = "exercises/".$firstname."_".$lastname."_".time().".txt";
$htmlfilename = $filename.".html";

open (FILE, ">$filename");
open (HTMLFILE, ">$htmlfilename");

print HTMLFILE "<HTML>";
print HTMLFILE "<BODY>";
print HTMLFILE "<BODY>";
print HTMLFILE "<TABLE bgColor=\"#ffcc66\" border=\"1\" width=\"80%\" align=\"center\">";
Gast Gast
 2008-05-21 15:02
#110054 #110054
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
foreach $pair (@pairs) {
   ($name, $value) = split(/=/, $pair);

   # Un-Webify plus signs and %-encoding
   $value =~ tr/+/ /;
   $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
   $value =~ s/<!--(.|\n)*-->//g;

   if ($allow_html != 1) {
      $value =~ s/<([^>]|\n)*>//g;
   }

   $FORM{$name} = $value;
   if ($name ne 'Submit')
   {
   	print FILE $name; 
	print FILE "=";
	print FILE $value;
	print FILE "\n";	
	print HTMLFILE "<TR>\n";
	print HTMLFILE "<TD>";
	print HTMLFILE $name;
	print HTMLFILE "</TD>\n";
	print HTMLFILE "<TD>";
	print HTMLFILE $value;
	print HTMLFILE "</TD>\n";
	print HTMLFILE "</TR>\n";
   }	
}

print HTMLFILE "</TABLE>";
print HTMLFILE "</BODY>";
print HTMLFILE "</HTML>";

close (FILE);
close (HTMLFILE);

my $emaillinks;
my $emailrechts;
($emaillinks, $emailrechts) = split(/@/, $email);
$cc_address = $emaillinks."\@".$emailrechts;

print "Content-type: text/html\n\n";
print "<br><br><CENTER>\n";
print "<h2>Blablabla\n";

#Email variables.


$mail_server  = "xxx";
$from_address = "xxx";
$to_address = $TmpEmailAddressto;
$subject      = $lastname." ".$firstname." xxx";
$body         = "body";
$mimeType     = "text/html";
$message_body = "<HTML><BODY><CENTER><h2>Absender: ".$lastname." ".$firstname." ".$ValA."</H2></CENTER></BODY></HTML>";

MIME::Lite->send("smtp", $mail_server);

# Create the initial text of the message
$mime_msg = MIME::Lite->new(
   From => $from_address,
   To   => $to_address,
   Cc   => $cc_address,
   Subject => $subject,
   Type => $mimeType,
   Data => $message_body
) or die "Error creating MIME body: $!\n";

$mime_msg->attach( 
  Type => "text/html", 
  Disposition => "attachment", 
  Path => $htmlfilename,
  Filename => $htmlfilename, 
); 

$mime_msg->send();
renee
 2008-05-21 15:07
#110056 #110056
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Also hast Du meinen Code gar nicht ausprobiert??
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
Struppi
 2008-05-21 15:07
#110057 #110057
User since
2006-02-17
628 Artikel
BenutzerIn
[Homepage]
user image
Wo ist das CGI Modul?
renee
 2008-05-21 15:09
#110058 #110058
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Du versuchst ganz am Anfang schon etwas in das Filehandle "FILE" zu schreiben, obwohl das nie geöffnet wurde.

Mit "use strict" und "use warnings" wäre Dir der Fehler aufgefallen. Siehe auch diesen Wiki:Artikel.
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
renee
 2008-05-21 15:12
#110059 #110059
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Du fragst $matriculation ab, obwohl das nie definiert wurde. Und was macht die Subroutine "stop"?

Die if-Bedingung ist immer wahr (wegen dem fehlenden $matriculation) und wenn "stop" die Ausführung des Skripts anhält, dann ist klar, dass in den Dateien nix steht!
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
renee
 2008-05-21 15:14
#110060 #110060
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Du solltest immer Fehler abfangen. Also aus open (FILE, ">$filename") muss open (FILE, ">$filename") or die $! machen...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
renee
 2008-05-21 15:18
#110061 #110061
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
In dem Skript ist so viel "Kraut und Rüben" drin, dass ich das nicht fixen würde, sondern komplett neu schreiben würde...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
Gast Gast
 2008-05-21 15:49
#110063 #110063
renee+2008-05-21 13:07:29--
Also hast Du meinen Code gar nicht ausprobiert??

Doch habe ich. Das was du in Beitrag 5 geschrieben hast habe ich ersetzt.
Und matriculation ist hier ValA.
<< |< 1 2 3 >| >> 23 Einträge, 3 Seiten



View all threads created 2008-05-19 11:20.