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";
}

    $e[4] =~ s/\n\r//g;
   $e[4] =~ s/\n//g;
   $e[4] =~ s/\r//g;

    $e[4] =~ tr/\n\r//d;

#!/usr/bin/perl

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

my $lda = db_connect("dwh_maint") || die "$ora_errstr\n";      

print header(-attachment=>'rfc.csv',-type=>'text/csv');
CSV_wird_generiert();

sub CSV_wird_generiert {
    my $stmt = qq~select M_AUFTRAGSNUMMER, M_LEISTUNGSART, M_PHASENDAUER, 
                  SAP_KST_SENDE, SAP_KST_EMPFANG 
              from MAX_ABR 
              where K_ABRECHNUNGSMONAT = '01.09.2002'~;
    my $cursor = &ora_open($lda,$stmt) or die "$ora_errstr\n";

    while (my @row = &ora_fetch($cursor)){
        $row[4] =~ tr/\n\r//d;
        print join(";",@row[0..4]),"\n";
    }

    &ora_close($cursor);
    &ora_commit($lda) or die "$ora_errstr\n";
}