This commit is contained in:
2024-10-14 00:08:40 +02:00
parent dbfba56f66
commit 1462d52e13
4572 changed files with 2658864 additions and 0 deletions

View File

@@ -0,0 +1,9 @@
STACHT 08:07:19
ICF 2010.09.29
Keine Tagebücher zum Mailen vorhanden
Kopiere Tagebuecher von d:\kunden\icf\file ==> \\130.35.0.225\sicherung\maklertagebuecher\2010\09\29\
Kopiere 'FILE' d:\kunden\icf\file\. ins 'ARCHIV' d:\kunden\icf\archiv\2010\09\29\
Kopiere 'MAIL' d:\kunden\icf\mail\. ins 'ARCHIV' d:\kunden\icf\archiv\2010\09\29\
'FILE' d:\kunden\icf\file\ wird geleert
'MAIL' d:\kunden\icf\mail\ wird geleert

View File

@@ -0,0 +1,8 @@
Tritrade;d:\kunden\tritrade\;;\\170.40.1.110\c$\mt\;
Ludwig;d:\kunden\ludwig\;;\\170.15.1.101\MT\;
ICF;d:\kunden\icf\;;\\130.35.0.225\sicherung\maklertagebuecher\;
KOCH;d:\kunden\koch\;;\\170.21.1.20\maklertagebuch;
Thermer;d:\kunden\thermer\;;\\nasicfsp001\thermer2\maklertagebuch\;
Brauburger;d:\kunden\brauburger\;;nul;
Gruetzner;d:\kunden\gruetzner\;;\\170.40.1.71\Reports\Xontro;
Belger;d:\kunden\Belger\;tobytoby@t-online.de;pdf

View File

@@ -0,0 +1,249 @@
#!/bin/perl
use Date::Calc qw (Day_of_Week Add_Delta_Days);
use strict;
sub LOG;
my %kunden;
#INI-Datei lesen
open INI, "<mtmac.ini";
while (<INI>) {
chomp;
my $line=$_;
#print "$line\n";
my ($name,$sdir,$mail,$ddir,$pdf)=split/;/,$line;
$kunden{$name}->{'mail'}=$mail;
$sdir = $sdir . "\\" unless ($sdir =~ /\\$/);
$kunden{$name}->{'sdir'} = $sdir;
$ddir = $ddir . "\\" unless ($ddir =~ /\\$/);
$kunden{$name}->{'ddir'}=$ddir;
if ($pdf eq "pdf") {
$kunden{$name}->{'pdf'}=1;
}
else {
$kunden{$name}->{'pdf'}=0;
}
}
close INI;
# Letzten Wochentag ermitteln
my ($ss,$mi,$hh,$dd,$mo,$yy)=localtime;
my ($ded, $dem, $dey); # decreased day
$yy+=1900;
$mo++;
my $dow = Day_of_Week($yy,$mo,$dd);
if ($dow==1) { # Montag
# 3 Tage zurck
($dey,$dem,$ded) = Add_Delta_Days($yy,$mo,$dd,-3);
}
else {
# 1 Tag zurck
($dey,$dem,$ded) = Add_Delta_Days($yy,$mo,$dd,-1);
}
$mo = '0' . $mo if ($mo < 10);
$mi = '0' . $mi if ($mi < 10);
$hh = '0' . $hh if ($hh < 10);
$dd = '0' . $dd if ($dd < 10);
$ded = '0'.$ded if ($ded< 10);
$dem = '0'.$dem if ($dem< 10);
my $prevweekday = "$dey.$dem.$ded"; # voriger wochentag
my $prevweekday2 = "$ded.$dem.$dey"; # voriger wochentag
my $stockdate = "$dey$dem$ded$dey$dem$ded"; # voriger wochentag im brsenformat
#my $date = $yy.$mo.$dd; # heute: jahr monat tag
my $date = "$dey$dem$ded";
my $date2 = "$dd.$mo.$yy"; # heute_ tag monat jahr
##### TAGEBUCH MAIL
LOG "STACHT $hh:$mi:$ss\n";
foreach my $kunde (keys %kunden) {
LOG "$kunde $prevweekday";
my $archive = $kunden{$kunde}->{'sdir'} . "$date.zip";
my $sourcefiles="*.txt";
if ($kunden{$kunde}->{'pdf'} == 1) {
LOG " Wandle txt nach pdf um";
my @tarr=glob("$kunden{$kunde}->{'sdir'}mail\\*.txt");
foreach my $file (@tarr) {
`txt2pdf.exe $file -pfn200 -pfs6 -ppd7`;
}
$sourcefiles="*.pdf";
}
if (-e glob("$kunden{$kunde}->{'sdir'}mail\\$sourcefiles")) {
LOG " Packe Tagebuecher nach $archive";
`fbzip.exe -a \"$archive\" \"$kunden{$kunde}->{sdir}mail\\$sourcefiles\"`;
`del \"$kunden{$kunde}->{sdir}mail\\*.pdf\"`;
LOG " Maile Archiv $archive nach $kunden{$kunde}->{mail}";
`clemail -to $kunden{$kunde}->{mail} -subject \"Tagebücher vom $prevweekday2 fr $kunde\" -bodyfile bodyfile.txt -attach \"$archive\" -from hotline\@icfsystems.de -smtpserver 130.35.0.141 -smtpport 25`;
LOG " Loesche Archiv $archive";
`del \"$archive\"`;
}
else {
LOG " Keine Tagebücher zum Mailen vorhanden";
}
LOG " Kopiere Tagebuecher von $kunden{$kunde}->{sdir}file ==> $kunden{$kunde}->{ddir}$dey\\$dem\\$ded\\";
$sourcefiles="*.txt";
if ($kunden{$kunde}->{'pdf'} == 1) {
LOG " Wandle txt nach pdf um";
my @tarr=glob("$kunden{$kunde}->{'sdir'}file\\*.txt");
foreach my $file (@tarr) {
`txt2pdf.exe $file -pfn200 -pfs6 -ppd7`;
}
$sourcefiles="*.pdf";
}
`xcopy /y $kunden{$kunde}->{sdir}file\\$sourcefiles $kunden{$kunde}->{ddir}$dey\\$dem\\$ded\\`;
`del \"$kunden{$kunde}->{sdir}file\\*.pdf\"`;
LOG " Kopiere 'FILE' $kunden{$kunde}->{sdir}file\\. ins 'ARCHIV' $kunden{$kunde}->{sdir}archiv\\$dey\\$dem\\$ded\\";
`xcopy /e /c /i /y \"$kunden{$kunde}->{sdir}file\\.\" \"$kunden{$kunde}->{sdir}archiv\\$dey\\$dem\\$ded\\\"`;
#jahr\monat\tag\
#$dey,$dem,$ded
LOG " Kopiere 'MAIL' $kunden{$kunde}->{sdir}mail\\. ins 'ARCHIV' $kunden{$kunde}->{sdir}archiv\\$dey\\$dem\\$ded\\";
`xcopy /e /c /i /y \"$kunden{$kunde}->{sdir}mail\\.\" \"$kunden{$kunde}->{sdir}archiv\\$dey\\$dem\\$ded\\\"`;
#jahr\monat\tag\
LOG " 'FILE' $kunden{$kunde}->{sdir}file\\ wird geleert";
`del /s /q \"$kunden{$kunde}->{sdir}file\\.\"`;
`rmdir /s /q \"$kunden{$kunde}->{sdir}file\\.\"`;
`mkdir \"$kunden{$kunde}->{sdir}file\\.\"`;
LOG " 'MAIL' $kunden{$kunde}->{sdir}mail\\ wird geleert";
`del /s /q \"$kunden{$kunde}->{sdir}mail\\.\"`;
`rmdir /s /q \"$kunden{$kunde}->{sdir}mail\\.\"`;
`mkdir \"$kunden{$kunde}->{sdir}mail\\.\"`;
LOG "";
}
##### XETRAS
LOG "Xetra Reports werden kopiert";
open INI, "<xetras.ini";
while (<INI>) {
chomp;
my ($source,$dest,$pdf) = split /;/,$_;
my $kundecount++;
LOG "Kunde $kundecount";
$source = $source . "\\" unless ($source =~ /\\$/);
my $extension;
if ($dest =~ /\\/) { # \ in Ziel enthalten also Pfad, d.h Dateien muessen kopiert werden
LOG " Kopiere Xetra Reports von $source ==> $dest";
$dest = $dest . "\\" unless ($dest =~ /\\$/);
# Sonderbehandlung fuer 886
if ($source =~ /mosfr/i) {
$source = $source . $stockdate . "\\rptds*.txt"; # Börsendatum und nur Dateien eines Händlers
}
elsif ($source =~ /icffr_ds1/) {
$source =~ s/_ds1//;
$source = $source . $stockdate . "\\rptds*.txt";
}
elsif ($source =~ /icffr_ds2/) {
$source =~ s/_ds2//;
$source = $source . $stockdate . "\\rpttc530.txt";
}
else {
$source = $source . $stockdate . "\\*.*"; # Brsendatum anhngen
}
$dest = $dest . "$dey\\$dem\\$ded\\";
LOG " xcopy $source .\\tmp\\";
`xcopy /y $source .\\tmp\\`;
if ($pdf eq "pdf") {
LOG " Wandle txt nach pdf um";
my @tarr=glob(".\\tmp\\*.txt");
foreach my $file (@tarr) {
`txt2pdf.exe $file -pfn200 -pfs6 -ppd7`;
}
`del .\\tmp\\*.txt /q`;
}
`xcopy /y .\\tmp\\*.* $dest`;
`del .\\tmp\\*.* /q`;
}
elsif ($dest =~ /@/) { # @ in Ziel enthalten also mail-addy, d.h. Dateien mssen gemailt werden
my $archive = "$kundecount" . "_$date.zip";
# Sonderbehandlung fuer 886
if ($source =~ /mosfr/i) {
LOG " Kopiere Reports nach $source\\$stockdate\\rptds. nach $archive";
#`fbzip.exe -a \"$archive\" \"$source\\$stockdate\\rptds*.txt\"`;
`xcopy /y \"$source\\$stockdate\\rptds*.txt\" ".\\tmp\\"`;
}
else {
LOG " Packe Reports nach $source\\$stockdate\\. nach $archive";
#`fbzip.exe -a \"$archive\" \"$source\\$stockdate\\*.*\"`;
`xcopy /y \"$source\\$stockdate\\*.*\" ".\\tmp\\"`;
}
if ($pdf eq "pdf") {
LOG " Wandle txt nach pdf um";
my @tarr=glob(".\\tmp\\*.txt");
foreach my $file (@tarr) {
`txt2pdf.exe $file -pfn200 -pfs6 -ppd7`;
}
`del .\\tmp\\*.txt /q`;
}
`fbzip.exe -a \"$archive\" .\\tmp\\`;
LOG " Maile Archiv $archive nach $dest";
`clemail -to $dest -subject \"Xetra-Reports vom $prevweekday2\" -bodyfile bodyfile.txt -attach \"$archive\" -from hotline\@icfsystems.de -smtpserver 130.35.0.141 -smtpport 25`;
LOG " Loesche Archiv $archive";
`del \"$archive\"`;
`del .\\tmp\\*.* /q`;
}
else {
LOG " Ungueltiges Ziel $dest angegeben. Verarbeitung fuer diesen Kunden wird abgebrochen";
}
}
close INI;
($ss,$mi,$hh,$dd,$mo,$yy)=localtime;
LOG "HINNE DRAA $hh:$mi:$ss\n";
LOG "--- Verarbeitung abgeschlossen ---";
sub LOG {
###########################################################
# Fehlerreports in Dos Fenster ausgeben? Dann # entfernen!#
###########################################################
print "@_\n";
open FIL, ">>$date.LOG";
print FIL "@_\n";
close FIL;
}

View File

@@ -0,0 +1,191 @@
#!/bin/perl
use strict;
my $linecounter=1;
my $start;
my $end;
my @input;
my ($ss,$mm,$hh,$dd,$mon,$yy,$we,$doy,$st)=localtime;
########################################################
## SET OUTPUT DIRECTORY HERE ##
########################################################
my $output_dir = 'd:\kunden'; # output verzeichnis
########################################################
## SET INPUT DIRECTORY HERE ##
########################################################
print "Dateien gefunden:\n";
foreach (<d:\\mt_2_check\\aa.*>) { # input verzeichnis
print "$_\n";
}
my $i=1;
foreach (<d:\\mt_2_check\\aa.*>) { # input verzeichnis
print "Bearbeite $_\n";
open AA, "<$_";
my @input_one=<AA>;
close AA;
my $datum=sprintf("%04d-%02d-%02d",$yy+1900,$mon+1,$dd);
`ren $_ done.$i.$datum.txt`;
@input=(@input,@input_one);
$i++;
}
foreach my $line (@input) {
$start = $linecounter-18 if ($line =~ /SSSSSSSSSS TTTTTTTTTTTT AAAAAAAAAA RRRRRRRRRRR TTTTTTTTTTTT/);
$end = $linecounter+17 if ($line =~ /EEEEEEEEEEEE N NN DDDDDDDDDDD/);
if ($end) {
my $filename;
my @new_file;
print "$start, $end, ";
foreach (@input[$start .. $end]) {
if ($filename eq "") {
($filename) = $_ =~ /[ a-z]* ([BK|MKL|MKL#]*[0-9]{4}).*/i;
$filename =~ s/#//;
}
push @new_file, $_;
} # Dateiname um Programm ergänzen
print "PROGRAMM: ";
my $programm;
foreach (@new_file) {
if ($_ =~ /PROGRAMM.*/) {
chomp;
# PROGRAMM : KW375 / 007
# BK8716_KW375-007.txt, BK7822_BOSS-BC202.txt, BK7822_KW375-007.txt, MKL7822_BOSS-BC352.txt
$_ =~ s/\//-/;
($programm) = $_ =~ /PROGRAMM.*:(.*)/;
$programm =~ s/ //g;
print "$programm\n";
last;
}
}
my $completefile=$filename . "_" . $programm . ".txt";
print "$output_dir\\$completefile\n";
open OUT, ">$output_dir\\$completefile";
print OUT @new_file;
close OUT;
$end=0;
}
$linecounter++;
}
# Dateien in Kundenverzeichnisse kopieren
#
my %kvs;
my %dirs;
########################################################
## DO EDIT FROM HERE ##
########################################################
$dirs{'ICF'} = 'd:\kunden\icf\file';
$dirs{'KOCH'} = 'd:\kunden\koch\file';
$dirs{'GRUETZNER'} = 'd:\kunden\gruetzner\file';
$dirs{'TRITRADE'} = 'd:\kunden\tritrade\file';
$dirs{'LUDWIG'} = 'd:\kunden\ludwig\file';
$dirs{'BRAUBURGER'} = 'd:\kunden\icf\file';
$dirs{'KRAUL'} = 'd:\kunden\kraul\mail';
$dirs{'EMPORIUM'} = 'd:\kunden\emporium\mail';
$dirs{'THERMER'} = 'd:\kunden\thermer\mail';
$dirs{'BELGER'} = 'd:\kunden\belger\mail';
$kvs{'3800'}='ICF';
$kvs{'3803'}='ICF';
$kvs{'3804'}='ICF';
$kvs{'3824'}='ICF';
$kvs{'3840'}='ICF';
$kvs{'1265'}='ICF';
$kvs{'1187'}='ICF';
$kvs{'1183'}='ICF';
$kvs{'1163'}='ICF';
$kvs{'1282'}='ICF';
$kvs{'1365'}='ICF';
$kvs{'2286'}='ICF';
$kvs{'2288'}='ICF';
$kvs{'2289'}='ICF';
$kvs{'2185'}='ICF';
$kvs{'2183'}='ICF';
$kvs{'2182'}='ICF';
$kvs{'2845'}='ICF';
$kvs{'2176'}='ICF';
$kvs{'2165'}='ICF';
$kvs{'4184'}='ICF';
$kvs{'6195'}='ICF';
$kvs{'8873'}='ICF';
$kvs{'8872'}='ICF';
$kvs{'8875'}='ICF';
$kvs{'8884'}='ICF';
$kvs{'8888'}='ICF';
$kvs{'8700'}='ICF';
$kvs{'7866'}='ICF';
$kvs{'7855'}='ICF';
$kvs{'7892'}='ICF';
$kvs{'7895'}='ICF';
$kvs{'7826'}='ICF';
$kvs{'7822'}='ICF';
$kvs{'7812'}='ICF';
$kvs{'7806'}='ICF';
$kvs{'7805'}='ICF';
$kvs{'7804'}='ICF';
$kvs{'7801'}='ICF';
$kvs{'6292'}='ICF';
$kvs{'6285'}='ICF';
$kvs{'6180'}='ICF';
$kvs{'6186'}='ICF';
$kvs{'6178'}='ICF';
$kvs{'4185'}='ICF';
$kvs{'4183'}='ICF';
$kvs{'4179'}='ICF';
$kvs{'4265'}='ICF';
$kvs{'4272'}='ICF';
$kvs{'1366'}='KOCH';
$kvs{'7874'}='KOCH';
$kvs{'7846'}='KOCH';
$kvs{'7656'}='KOCH';
$kvs{'7835'}='GRUETZNER';
$kvs{'7828'}='TRITRADE';
$kvs{'8711'}='TRITRADE';
$kvs{'7880'}='TRITRADE';
$kvs{'7824'}='TRITRADE';
$kvs{'7823'}='LUDWIG';
$kvs{'7635'}='LUDWIG';
$kvs{'7633'}='LUDWIG';
$kvs{'7632'}='LUDWIG';
$kvs{'7821'}='BRAUBURGER';
$kvs{'8716'}='BRAUBURGER';
$kvs{'8885'}='KRAUL';
$kvs{'8886'}='KRAUL';
$kvs{'6284'}='EMPORIUM';
$kvs{'7825'}='THERMER';
$kvs{'7847'}='BELGER';
########################################################
## DO NOT EDIT FROM HERE ##
########################################################
chdir($output_dir);
foreach(<*.txt>) {
my $kv;
my $kunde;
my $dir;
($kv) = $_ =~ /.*([0-9]{4})_.*\.txt/;
$kunde = $kvs{$kv};
$dir = $dirs{$kunde};
print "cp $_ $dir\n";
`xcopy /Y $_ $dir\\`;
unlink $_;
}

View File

@@ -0,0 +1,16 @@
\\10.10.10.32\reports\trafr\;\\170.40.1.110\c$\xetra\;
\\10.10.10.32\reports\pekfr\;\\170.21.1.20\reports\;
\\10.10.10.32\reports\icffr\;\\130.35.0.225\sicherung\xetrareports\;
\\10.10.10.32\reports_FF2\icffr\;\\130.35.0.225\sicherung\xetrareports\scoach\;
\\10.10.10.32\reports\robfr\;\\130.35.0.225\sicherung\xetrareports\robfr\;
\\10.10.10.32\reports\rmtfr\;\\170.45.1.22\Mifid-reporting\;
\\10.10.10.32\reports\icffr_ds1\;\\130.35.0.225\DesignatedSponsoring\;
\\10.10.10.32\reports\icffr_ds2\;\\130.35.0.225\DesignatedSponsoring\;
\\10.10.10.32\reports_ff2\icnfr\;\\130.35.0.225\sicherung\xetrareports\icnfr\;
\\10.10.10.32\reports\walfr\;\\170.15.1.101\Xetra-Reports\Produktion;
\\10.10.10.32\reports_simu\walfr\;\\170.15.1.101\Xetra-Reports\Simulation;
\\10.10.10.32\reports\icffr\;j.heim@icfag.de
\\10.10.10.32\reports\robfr\;j.heim@icfag.de
\\192.169.1.41\reports\evkka\;karsten.wolter@ekk.de;
\\10.10.10.32\reports_simu\icfsp\;kthe@cmss-systems.com;
\\10.10.10.32\Reports_FF2_Simu\WALFR;\\170.15.1.101\Xetra-Reports\FF2-Simulation;