sub get_auftraege_inetbk
{
 my @array;
 my $i = 0;
 my $statement;
 my $sth;
 my $dbh;

 $dbh = DBI->connect(SQLCONNECT,SQLUSER,SQLPASS) or die ("Database connection not made: $DBI::errstr", "ERROR");
 $dbh->{RaiseError } = 1;
 $dbh->{LongTruncOk} = 1;
 $dbh->{LongReadLen} = 500000;

 $sth = $dbh->prepare("SELECT A_ID, BETREFF, TO_CHAR(EDATUM, 'DD.MM.YY HH24:MI'), EMAILADRESSE [..]") or die ("[..]");
 $sth->execute() or die ("[..]");
 while(my @tmp = $sth->fetchrow_array)
 {
  $array[$i][0] = $tmp[0];
  $array[$i][1] = $tmp[1];
  $array[$i][1] = $tmp[2];
  $array[$i][2] = $tmp[3];
  $i++;
 }
 $sth->finish();
 $dbh->disconnect();
 return @array;
}

@aa_inet_bk = get_auftraege_inetbk();
foreach my $bla (@aa_inet_bk)
{
 $mail = $aa_inet_bk[$i][3];
 # Weiterverarbeiten des Codes
}

@aa_inet_bk = get_auftraege_inetbk();
foreach my $bla (@aa_inet_bk)
{
$mail = $bla->[3];
# Weiterverarbeiten des Codes
}

@aa_inet_bk = get_auftraege_inetbk();
foreach my $bla (@aa_inet_bk)
{
$mail = $bla->[1];
# Weiterverarbeiten des Codes
}

use Data::Dumper;
print Dumper \@aa_inet_bk;

 while(my @tmp = $sth->fetchrow_array)
{
   $array[$i][0] = $tmp[0];
   $array[$i][1] = $tmp[1];
   $array[$i][1] = $tmp[2];
   $array[$i][2] = $tmp[3];
   $i++;
}

 while(my @tmp = $sth->fetchrow_array){
   $array[$i] = \@tmp;
   $i++;
}

$VAR1 = [ '52', '\'SuSEconfig: pine-notify (fwd)\'', '21.07.05 12:00', '\'root \'' ]; $VAR2 = [ '53', '\'SuSEconfig: pine-notify (fwd)\'', '21.07.05 13:16', '\'root \'' ]; 

$VAR1 = [ [ '187', 'FW: Dies und das', '12.07.05 13:14', '"g0024" ' ], [ '188', 'FW: ***UNCHECKED*** WG: BAV Skizze', '12.07.05 13:14', '"g0024" ' ], [ '189', 'FW: Dies und das', '12.07.05 13:33', '"g0024" ' ], [ '190', 'FW: ***UNCHECKED*** WG: BAV Skizze', '12.07.05 13:33', '"g0024" ' ], [ '191', 'FW: Beispieltexte', '12.07.05 13:34', '"g0024" ' ] ];

sub get_auftraege_inetbk_html
{
 # Variablen
 my @aa_inet_bk;
 my $aa_size = 0;
 my @aa_mitte_fertig = '';
 my $aa_sid = $_[0];
 my $betreff;
 my $content;
 my $bearbeiten;
 my $i=0;
 my @content;
 my ($mail);

 # Hole die Daten aus der Datenbank
 @aa_inet_bk = get_auftraege_inetbk();
 push(@aa_mitte_fertig, "<h3>Mail: Internet -> BK-Netz</h3>");

 # ueberschrift von der Tabelle erzeugen
 my $ueberschrift="<table width=100% rules=\"all\"><tr><th>Status</th><th>Mail von:</th><th>Betreff:</th><th>Erhalten:</th><th>Gr&ouml;&szlig;e:</th><th>&nbsp;</th></tr>";

 open(FH, "<templates/showauftraege_content.html");
 while(<FH>)
 {
  push (@content, $_);
 }
 close(FH);
 print Dumper \@aa_inet_bk;
 $i=0;

 foreach (@aa_inet_bk)
 {
  foreach my $item (@content)
  {
   # Status
   $item =~ s/\!\!Freigabe\!\!/OK/g;
   # Emailadresse
   #$mail = $aa_inet_bk[$i][1];
   #$mail =~ s/</&lt;/g;
   #$item =~ s/\!\!Mailadresse\!\!/$mail/g;
   # Betreff
   #$betreff = "hallo";
   #$betreff = $aa_inet_bk[$i][1];
   #print $aa_inet_bk[$i][1];
   #if (length($betreff) > 60) { $betreff = substr($betreff,0,60); $betreff .= "[..]"; }
   #$_ =~ s/\!\!Betreff\!\!/$betreff/g;
   # Zeit/Datum
   #$item =~ s/\!\!ZeitDatum\!\!/$bla/g;
   # Groesse
   #$aa_size = -s WORKDIR . "/" . SERVERID . "/A$aa_inet_bk[$i][0]/original.txt";
   #$aa_size = $aa_size / 1000;
   #$aa_size = sprintf("%.0f", $aa_size);
   #$_ =~ s/\!\!Groesse\!\!/$aa_size KB/g;
   # Bearbeiten
   #$bearbeiten = "<a href=\"main.pl?link=auftrag&SID=$aa_sid&AID=$bla\"><img src=\"/images/b_edit.png\" alt=\"Bearbeiten\" border=\"0\"></a>";
   #$item =~ s/\!\!Bearbeiten\!\!/$bearbeiten/g;
   push(@aa_mitte_fertig, $item);
   $i++;
  }
 }
 # Hier wird der komplette String zusammengebaut
 return $content = "$ueberschrift" . "@aa_mitte_fertig" ."</table>";
}