| Current Path : /var/www/web-klick.de/dsh/21_finance/renderer/20/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/21_finance/renderer/20/render.stundenzettel |
$text = `less $ARGV[0]`;
#--------------------------------------------
if ($ARGV[0] !~ /Rechnung/) { print "101"; exit; }
#--------------------------------------------
$text =~ s/Deutschen Gesellschaft/DGP/; # <-- special DGP
$extproj = "extproj";
if ($text =~ /\n(bei +der +|bei +)([A-Za-z][A-Za-z0-9]*)/s) {
$extproj = lc($2);
}
elsif ($text =~ /\n(Finanzamt Fuerth.*?)([A-Za-z][A-Za-z0-9]*)/s) {
$extproj = lc($2);
}
if ($text =~ /Name\: +(\S)(\S+) (\S+).*GESAMTSTUNDEN\: ([0123456789\.\,]+).*Datum\: +(\d+)\.(\d+)\.(\d+)/s) {
$datum = sprintf("%04u",$7) . sprintf("%02u",$6) . sprintf("%02u",$5);
$o1 = lc("$1$3");
$text1 = "STUNDEN_$o1\_$datum\n";
$text1 = $text1 . "$datum ".$4." -PR-$o1-$extproj 21-$extproj 0.00 Stunden Projekt\n";
$text1 =~ s/schwarz/tschwarz/g;
}
$text1 =~ s/\-( *)\-/ $1 /g; print $text1;