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

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



<< |< 1 2 3 4 5 6 ... 11 >| >> 106 Einträge, 11 Seiten
piero
 2004-04-26 18:22
#2205 #2205
User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]
Hallo,
jetzt funktioniert endlich alles, auch mit dem Versenden der E-Mail. Nur kommt die E-Mail leer an, ist ja auch logisch, weil ja nix defeniert ist. Nur wie defeniere ich das jetzt?
Wird das alles mit Hilfe des Befehls "print" gelöst? Oder gibt es da einen einfacheren Trick?
renee
 2004-04-26 18:41
#2206 #2206
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Welchen Mailserver verwendest Du? sendmail??

Änder das Template mal so:
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
<html>
 <body>
    <!-- TMPL_IF NAME=MESSAGE -->
      <!-- TMPL_VAR NAME=MESSAGE -->
    <!-- /TMPL_IF -->
   <FORM action="/cgi-franz-kahl/skript.pl" method="post">
   <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" name="email" value="E-Mail abschicken">
<input type="hidden" value="<!-- TMPL_VAR NAME=ALT ESCAPE=HTML -->" name="alt">
 </form>
 </body>
</html>


Für Sendmail kannst Du folgenden Code in den else-Zweig einfügen:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
my $sendmail = '/usr/bin/sendmail -t';
my $sender = 'Piero <deine_adresse@domain.tld>';
my $empfaenger = 'Du <mail@adresse.tld>';
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');
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-04-28 17:18
#2207 #2207
User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]
Hallo,
das Skript läuft einwandfrei. Nur wollte ich jetzt eine kleine Änderung einbauen, aber das mit dem Template-verwirrt mich etwas. Hatte folgendes vor.
Wollte noch vier INPUT-Felder einbauen, hat auch alles funktioniert, nur wenn ich jetzt auf "Artikel hinzufügen" klicke, dann setzt er mir die INPUT-Felder wieder leer. und wie codiere ich es in der .pl Datei?

Könnte mir jemand evtl. dabei helfen?

Vielen vielen Dank im Voraus.

--
Gruß
Piero

Ach so, hier kommt der Code:
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>                                                                          
   <FORM action="/cgi-franz-kahl/bedarfsmeldung2.pl" method="post">             
  <h1>Bedarfsmeldung</h1>                                                       
<table>                                                                         
<tr>                                                                            
<td><FONT face=Arial>Name des Empfaengers:</FONT><INPUT size=20 name="EMPFAENGER
"></td>                                                                         
<table>                                                                         
<tr>                                                                            
<td><FONT face=Arial>Abteilung:</FONT><INPUT size=20 name="ABTEILUNG"></td>     
<td><FONT face=Arial>Kostenstelle:</FONT><INPUT size=20 name="KST"></td>        
<td><FONT face=Arial>Datum:</FONT><INPUT size=10 name="DATUM"></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>


edit renee: [code]-Tag eingefügt...\n\n

<!--EDIT|renee|1083158802-->
renee
 2004-04-28 17:29
#2208 #2208
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Ich bin jetzt aus dem, was Du geschrieben hast, nicht so wirklich schlau geworden...

Du willst in der HTML-Tabelle noch 4 weitere Spalten einfügen?? Mit Anzeige und Input-Feldern??
Was meinst Du mit "wird wieder leer gesetzt"??
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-04-28 17:40
#2209 #2209
User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]
Hallo,
das mit dem INPUT-Felder ist folgendermaßen:
Habe zwei INPUT-Felder eingebaut:
sieht jetzt folgendermaßen aus:
--------------------------------------------------------
Empfänger:
Datum:

Artikel Stück Euro

hinzufügen * senden
--------------------------------------------------------

wenn ich jetzt die Felder Empfänger und Datum ausfülle, dann den Artikel eingebe und dann auf hinzufügen klicke, dann "entleeren" sich die die Felder Empfänger und Datum, d.h. es steht dort nicht mehr, was ich vorher eingetippt habe.
renee
 2004-04-28 18:05
#2210 #2210
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
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
<html>                                                                          
<title>Bedarfsmeldung</title>                                                   
<body>                                                                          
  <FORM action="/cgi-franz-kahl/bedarfsmeldung2.pl" method="post">             
 <h1>Bedarfsmeldung</h1>                                                       
<table>                                                                         
<tr>                                                                            
<td><FONT face=Arial>Name des Empfaengers:</FONT>
<INPUT size=20 name="EMPFAENGER" value="<!-- TMPL_VAR NAME=EMPFAENGER 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="KST" value="<!-- TMPL_VAR NAME=KST 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>


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
#! /usr/bin/perl -w                                                             
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/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 => $pa
rams{EURO});                                                                    
my $alte = $params{alt}.";$params{ARTIKEL}#$params{STUECK}#$params{EURO}";     
$template->param(ALT => $alte,                                                 
                       ARTIKELLISTE => \@loop,                                                 
                       ABTEILUNG => $params{ABTEILUNG},                                                 
                       KST => $params{KST},                                                 
                       DATUM => $params{DATUM},
                       EMPFAENGER => $params{EMPFAENGER});                                
}                                                                               
else{                                                                           
my $sendmail = '/usr/bin/sendmail -t';
my $sender = 'Piero <deine_adresse@domain.tld>';
my $empfaenger = 'Du <mail@adresse.tld>';
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();                                                      
\n\n

<!--EDIT|renee|1083161313-->
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-04-28 19:03
#2211 #2211
User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]
Hallo,
jetzt hab ich folgende Fehlermeldung:
In den INPUT-Felder steht jetzt folgendes:

<!-- TMPL_VAR NAME=ABTEILUNG ESCAPE=HTML -->

Wie kommt dies zustande?
renee
 2004-04-28 19:26
#2212 #2212
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Ich habe es probiert: http://renee-baecker.de/renee_cgi/template_test.cgi

und da funktioniert es mit folgendem Code:
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>
 <FORM action="/template_test.cgi" 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="EMPFAENGER" value="<!-- TMPL_VAR NAME=EMPFAENGER 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="KST" value="<!-- TMPL_VAR NAME=KST 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>


und

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 =>  '../template.html');                                              
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},                                                 
                      KST => $params{KST},                                                 
                      DATUM => $params{DATUM},
                      EMPFAENGER => $params{EMPFAENGER});                                
}
elsif($params{submit}){
my $sendmail = '/usr/sbin/sendmail -t';
my $sender = 'Piero <deine_adresse@domain.tld>';
my $empfaenger = 'Du <mail@adresse.tld>';
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();


musst Du noch an Deine Umgebung anpassen
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 14:11
#2213 #2213
User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]
Hallo,
ich versteh es einfach nicht...
Habe den obrigen code 1:1 kopiert und trotzdem taucht dieser Fehler auf, nämlich wenn ich die HTM-Datei aufmache, dann sind die Felder:

Name des Empfaengers:
Abteilung: Kostenstelle: Datum:

folgendermaße belegt:
Name des Empfaengers:
Abteilung: <!-- TMPL_VAR NAME=ABTEILUNG ESCAPE=HTML -->
Kostenstelle: <!-- TMPL_VAR NAME=KOSTENSTELLE ESCAPE=HTML -->
Datum: <!-- TMPL_VAR NAME=DATUM ESCAPE=HTML -->

Warum ist es denn so?
Kommt es vielleicht daher, weil ich meine Datei nicht .html, sondern .htm benannt habe?

Vielen Dank im Voraus.

--
Gruß
Piero
renee
 2004-05-07 15:49
#2214 #2214
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
nein, die Dateiendung ist völlig egal. Poste mal Deinen Code...

edit: sowohl den HTML-Text als auch den Perl-Code!\n\n

<!--EDIT|renee|1083930652-->
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/
<< |< 1 2 3 4 5 6 ... 11 >| >> 106 Einträge, 11 Seiten



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