Schrift
Start · Board · Webprogrammierung mit Perl · Perl/CGI
[thread]246[/thread]

Hinzufügen von Spalten in einer Tabelle (Seite 4)



<< |< 1 2 3 4 5 6 7 ... 11 >| >> 106 Einträge, 11 Seiten
piero
 2004-05-07 16:30
#2215 #2215
User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]
Hallo,
das ist meine .htm datei:

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
<html>
<title>Bedarfsmeldung</title>
<body bgcolor = #689cd0>
<FORM action="/cgi-franz-kahl/bedarfsmeldung2.pl" method="post">             
<h1>Bedarfsmeldung</h1>   
<h2><!-- TMPL_IF NAME=MESSAGE --> <!-- TMPL_VAR NAME=MESSAGE --> <!-- /TMPL_IF -->
<table>
<tr>
<td><FONT face=Arial>Name des Empfaengers:</FONT>
<INPUT size=20 name="BENUTZER" value="<!-- TMPL_VAR NAME=BENUTZER ESCAPE=HTML -->"></td>
<table>
<tr>
<td><FONT face=Arial>Abteilung:</FONT>
<INPUT size=20 name="ABTEILUNG" value="<!-- TMPL_VAR NAME=ABTEILUNG ESCAPE=HTML  -->"></td>     
<td><FONT face=Arial>Kostenstelle:</FONT>
<INPUT size=20 name="KOSTENSTELLE" value="<!-- TMPL_VAR NAME=KOSTENSTELLE ESCAPE=HTML -->"></td>        
<td><FONT face=Arial>Datum:</FONT>
<INPUT size=10 name="DATUM" value="<!-- TMPL_VAR NAME=DATUM ESCAPE=HTML -->"></td>
</tr>
<table>
  <tr>
    <td width="5%">Stueck</td>
    <td width="80%">Artikel</td>
    <td width="15%">EURO</td>
  </tr>
  <!-- TMPL_LOOP NAME=ARTIKELLISTE -->
    <tr>
      <td><!-- TMPL_VAR NAME=STUECK --></td>
      <td><!-- TMPL_VAR NAME=ARTIKEL --></td>
      <td><!-- TMPL_VAR NAME=EURO --></td>
    </tr>
  <!-- /TMPL_LOOP -->
    <tr>
      <td><INPUT size=5 name="STUECK"></td>
      <td><INPUT size=90 name="ARTIKEL"></td>
      <td><INPUT size=5 name="EURO"></td>
    </tr>
  <tr>
</table>
<input name="add" type="submit" value="Artikel hinzufügen"> * 
<input type=submit value=Senden name=submit>
<input type="hidden" value="<!-- TMPL_VAR NAME=ALT ESCAPE=HTML -->" name="alt"> 
</form>
</body>
</html>


Das ist meine .pl datei:

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
#! /usr/bin/perl -w
use strict;
use warnings;
use diagnostics;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use HTML::Template; # musst Du Dir evtl. noch installieren

my $cgi = CGI->new(); 
my %params = $cgi->Vars();     
print $cgi->header(-type => 'text/html');       

my $template = HTML::Template->new(filename =>  '/home/webmaster/docs/deutsch/Bedarfsmeldung/bedarfsmeldung2.htm');                                              
if($params{add}){ # wenn artikel hinzugefügt werden soll                        
my @loop = ();
if($params{alt}){
my @artikel = split(/;/,$params{alt});
foreach(@artikel){
  my ($art_name,$stueck,$euro) = split(/#/,$_);                              
  push(@loop,{ARTIKEL => $art_name, STUECK => $stueck, EURO => $euro});      
}
}
push(@loop,{ARTIKEL => $params{ARTIKEL}, STUECK => $params{STUECK}, EURO => $params{EURO}});
my $alte = $params{alt}.";$params{ARTIKEL}#$params{STUECK}#$params{EURO}";     
$template->param(ALT => $alte,                                                 
                     ARTIKELLISTE => \@loop,                                                 
                     ABTEILUNG => $params{ABTEILUNG},                                                 
                     KOSTENSTELLE => $params{KOSTENSTELLE},                                                 
                     DATUM => $params{DATUM},
                     BENUTZER => $params{BENUTZER});                                
}
elsif($params{submit}){
my $sendmail = '/usr/sbin/sendmail -t';
my $sender = 'Piero <gior@imap.de>';
my $empfaenger = 'Du <gior@imap>';
my $betreff = 'Artikelliste';
my $body = "Artikel\tStueck\tPreis\n";

my @artikel = split(/;/,$params{alt});
foreach(@artikel){
 my ($art,$st,$eur) = split(/#/,$_);
 $body .= $art."\t".$st."\t".$eur."\n";
}

open(MAIL,"| $sendmail") or print $!;
print MAIL "To: $empfaenger\n";
print MAIL "From: $sender\n";
print MAIL "Subject: $betreff\n\n";
print MAIL $body;
close MAIL;
$template->param(MESSAGE => 'E-Mail wurde abgeschickt');
}
print $template->output();
piero
 2004-05-07 16:32
#2216 #2216
User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]
Hallo,
das ist die .pl datei:

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
#! /usr/bin/perl -w
use strict;
use warnings;
use diagnostics;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use HTML::Template; # musst Du Dir evtl. noch installieren

my $cgi = CGI->new(); 
my %params = $cgi->Vars();     
print $cgi->header(-type => 'text/html');       

my $template = HTML::Template->new(filename =>  '/home/webmaster/docs/deutsch/Bedarfsmeldung/bedarfsmeldung2.htm');                                              
if($params{add}){ # wenn artikel hinzugefügt werden soll                        
my @loop = ();
if($params{alt}){
my @artikel = split(/;/,$params{alt});
foreach(@artikel){
  my ($art_name,$stueck,$euro) = split(/#/,$_);                              
  push(@loop,{ARTIKEL => $art_name, STUECK => $stueck, EURO => $euro});      
}
}
push(@loop,{ARTIKEL => $params{ARTIKEL}, STUECK => $params{STUECK}, EURO => $params{EURO}});
my $alte = $params{alt}.";$params{ARTIKEL}#$params{STUECK}#$params{EURO}";     
$template->param(ALT => $alte,                                                 
                     ARTIKELLISTE => \@loop,                                                 
                     ABTEILUNG => $params{ABTEILUNG},                                                 
                     KOSTENSTELLE => $params{KOSTENSTELLE},                                                 
                     DATUM => $params{DATUM},
                     BENUTZER => $params{BENUTZER});                                
}
elsif($params{submit}){
my $sendmail = '/usr/sbin/sendmail -t';
my $sender = 'Piero <gior@imap.de>';
my $empfaenger = 'Du <gior@imap>';
my $betreff = 'Artikelliste';
my $body = "Artikel\tStueck\tPreis\n";

my @artikel = split(/;/,$params{alt});
foreach(@artikel){
 my ($art,$st,$eur) = split(/#/,$_);
 $body .= $art."\t".$st."\t".$eur."\n";
}

open(MAIL,"| $sendmail") or print $!;
print MAIL "To: $empfaenger\n";
print MAIL "From: $sender\n";
print MAIL "Subject: $betreff\n\n";
print MAIL $body;
close MAIL;
$template->param(MESSAGE => 'E-Mail wurde abgeschickt');
}
print $template->output();
renee
 2004-05-07 17:03
#2217 #2217
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Ich habe eben noch mal Dein Posting von vorhin durchgelesen. Der Fehler taucht dann auf, wenn Du die HTM-Seite direkt aufrufst?? dann ist das klar, dass dieser "Fehler" auftaucht. Denn dann wird das Template ja nicht geparst und die Parameter werden nicht ersetzt. In value steht immer die Vorbelegung für das Textfeld. Wenn die Datei nicht geparst wird, dann steht in value das <!-- TMPL_VAR -->. Deswegen taucht es dann auch auf.

Du musst die Seite immer durch das Skript anzeigen lassen. Dann sollte der Fehler auch nicht mehr erscheinen..
Bei mir taucht dieser "Fehler" (ist ja keiner, sondern absolut korrekt) auch auf, wenn man die HTML-Seite direkt aufruft: http://renee-baecker.de/template.html .
Wenn mann es aber mit dem Skript aufruft, dann ist alles klar... http://renee-baecker.de/renee_cgi/template_test.cgi
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/
piero
 2004-05-07 17:11
#2218 #2218
User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]
Hallo,
ja, jetzt läuft es einwandfrei.
Super, vielen dank.

Nur hab ich da noch ne kleine Frage:

Ich bekomme die E-Mail mit folgender Visualisierung:

Block 1 2,00
Tische 10 15,50
Kugelschreiber Schwarz / Blau 200 0,35

Das kann man sehr schlecht lesen (finde ich).
Was muss man machen, damit man es untereinander haben will?
Also folgendermaße:

Block 1 2,00
Tische 10 15,50
Kugelschreiber Schwarz / Blau 200 0,35

Und am Besten wäre es noch wenn alles eingerahmt wäre (dann könnte man es noch besser lesen...)

Danke.
renee
 2004-05-07 17:41
#2219 #2219
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Hier kannst Du mal nachlesen, wie man HTML-Mails verschickt: http://alma.ch/perl/Mail-Sendmail-FAQ.html

Du kannst ja einfach ne HTML-Mail mit ner Tabelle verschicken... Dann hast Du es schön formatiert und kannst auch einen Rahmen drum 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/
Crian
 2004-05-07 17:52
#2220 #2220
User since
2003-08-04
5866 Artikel
ModeratorIn
[Homepage]
user image
Deswegen würd ich Templates auch eine andere Endung verpassen, nicht gerade htm(l)
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
renee
 2004-05-07 18:20
#2221 #2221
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
ich verwende im normalfall auch lieber .tmpl, weil ich dann gleich auf den ersten Blick erkenne, dass es sich um ein Template handelt...
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/
piero
 2004-05-10 12:41
#2222 #2222
User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]
Hallo,
habe es mir mal die Anleitung für das Versenden von HTML-E-Mail durchgelesen. Es ist auch gut beschrieben, nur mit dem Template komme ich jetzt durcheinander.
Ich wollte folgendes coden:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
print M header(-type=>'text/html'),           
start_html(-title=>'Liste',         
-style=>'td {font-family:courier,fixed;}'     
),                                            
h1('Liste'),                        
table(                                        
Tr(                                           
[                                             
td(['Benutzer:',$params{BENUTZER}]),                  
td(['Abteilung:',$params{ABTEILUNG}]),            
td(['Kostenstelle:',$Formular{KOSTENSTELLE}]),        
td(['Datum:',$Formular{DATUM}]),              
td(['Artikel:',$Formular{ARTIKEL}]),              
td(['Stueck:',$Formular{STUECK}]),              
td(['Euro:',$Formular{EURO}])                        
]        
),#Tr    
),#table 
end_html;


Nur weiß ich jetzt nicht wo ich das einfügen soll und ob man es überhaupt so machen kann.

könnte mir jemand evtl. helfen?

Tausend Dank.
renee
 2004-05-10 12:50
#2223 #2223
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
was funktioniert denn nicht?? wie soll es aussehen, wie sieht es wirklich aus?? Was für ein Template meinst Du??
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/
piero
 2004-05-10 12:54
#2224 #2224
User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]
Hallo,
wenn ich es compiliere, dann kommt die Fehlermeldung:

Bareword "start_html" not allowe.
Bareword "end_html" not allowed .

Ich will nur eine mit Rahmen formatiere Tabelle für die Ausgabe.

So sieht der Code aus:

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
#! /usr/bin/perl -w                                                             
use MIME::Base64;                                                               
use strict;                                                                     
use warnings;                                                                   
use diagnostics;                                                                
use CGI;                                                                        
use CGI::Carp qw(fatalsToBrowser);                                              
use HTML::Template;                                                             
                                                                                
my $cgi = CGI->new();                                                           
my %params = $cgi->Vars();                                                      
print $cgi->header(-type => 'text/html');                                       
                                                                                
my $template = HTML::Template->new(filename =>  '/home/webmaster/docs/deutsch/Be
darfsmeldung/bedarfsmeldung2.htm');                                             
                                                                                
if($params{add}){ # wenn artikel hinzugefügt werden soll                        
my @loop = ();                                                                  
if($params{alt}){                                                               
my @artikel = split(/;/,$params{alt});                                          
foreach(@artikel){                                                              
  my ($art_name,$stueck,$euro) = split(/#/,$_);                                 
  push(@loop,{ARTIKEL => $art_name, STUECK => $stueck, EURO => $euro});         
}                                                                               
}                                                                               
push(@loop,{ARTIKEL => $params{ARTIKEL}, STUECK => $params{STUECK}, EURO => $par
ams{EURO}});                                                                    
my $alte = $params{alt}.";$params{ARTIKEL}#$params{STUECK}#$params{EURO}";      
$template->param(ALT => $alte,                                                  
                     ARTIKELLISTE => \@loop,                                    
                                                                                
                     ABTEILUNG => $params{ABTEILUNG},                           
                                                                                
                     KOSTENSTELLE => $params{KOSTENSTELLE},                     
                                                                                
                     DATUM => $params{DATUM},                                   
  BENUTZER => $params{BENUTZER});                            
}                                                                               
elsif($params{submit}){                                                         
my $sendmail = '/usr/sbin/sendmail -t';                                         
my $sender = 'Piero <gior@imap.de>';                                            
my $empfaenger = 'Du <gior@imap>';                                              
my $betreff = 'Artikelliste';                                                   
my $body = "Artikel\tStueck\tPreis\n";                                          
my @artikel = split(/;/,$params{alt});      
foreach(@artikel){                          
 my ($art,$st,$eur) = split(/#/,$_);        
 $body .= $art."\t".$st."\t".$eur."\n";     
}                                           
start_html,                                 
table(                                      
Tr(                                         
[                                           
td(['Benutzer:',$params{BENUTZER}]),        
td(['Abteilung:',$params{ABTEILUNG}]),      
td(['Kostenstelle:',$params{KOSTENSTELLE}]),
td(['Datum:',$params{DATUM}]),              
td(['Artikel:',$params{ARTIKEL}]),          
td(['Stueck:',$params{STUECK}]),            
td(['Euro:',$params{EURO}]),                
]                                           
),#Tr                                       
),#table                                    
end_html;                                   
                                            
open(MAIL,"| $sendmail") or print $!;       
print MAIL "To: $empfaenger\n";             
print MAIL "From: $sender\n";                           
print MAIL "Subject: $betreff\n\n";                     
print MAIL $body;                                       
close MAIL;                                             
$template->param(MESSAGE => 'E-Mail wurde abgeschickt');
}                                                       
print $template->output();


edit renee: schließendes [code]-Tag spendiert ;)\n\n

<!--EDIT|renee|1084185121-->
<< |< 1 2 3 4 5 6 7 ... 11 >| >> 106 Einträge, 11 Seiten



View all threads created 2004-04-26 12:59.