use CGI qw/:standard/;
use Oraperl;
use db_tool;
use Net::SMTP;
use MIME::Base64 qw(encode_base64);
 

$lda = db_connect("dwh_maint") || die "$ora_errstr\n";       
 
print CGI::header(-attachment=>'rfc.csv',-type=>'text/csv'); 
 
sub CSV_wird_generiert { 
 
 
$cursor = &ora_open($lda,"select M_AUFTRAGSNUMMER, M_LEISTUNGSART, M_PHASENDAUER, SAP_KST_SENDE, SAP_KST_EMPFANG from MAX_ABR where K_ABRECHNUNGSMONAT = '01.09.2002'")|| die "$ora_errstr\n";
      open ( FILEHAND, "> ./rfc.csv") || print "error"; 
 
while (@e=&ora_fetch($cursor))
{
    $e[4] =~ s/\n\r//g;
    $e[4] =~ s/\n//g;
    $e[4] =~ s/\r//g;
    $e[8] =~ s/\n\r//g;
    $e[8] =~ s/\n//g;
    $e[8] =~ s/\r//g;
 
        printf FILEHAND "$e[0];$e[1];$e[2];$e[3];$e[4];";
}
 
close (FILEHAND);
&ora_close($cursor);
&ora_commit($lda) || die "$ora_errstr\n";
}