Thread Hinzufügen von Spalten in einer Tabelle (105 answers)
Opened by piero at 2004-04-26 12:59

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/

View full thread Hinzufügen von Spalten in einer Tabelle