Revision 0246e125
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| bin/mozilla/ustva.pl | ||
|---|---|---|
| 88 | 88 |
$form->header; |
| 89 | 89 |
|
| 90 | 90 |
# Einlesen der Finanzamtdaten |
| 91 |
&get_config($userspath, 'finanzamt.ini');
|
|
| 91 |
USTVA->get_config($userspath, 'finanzamt.ini');
|
|
| 92 | 92 |
|
| 93 | 93 |
# Hier Einlesen der user-config |
| 94 | 94 |
# steuernummer entfernt f?r prerelease |
| ... | ... | |
| 528 | 528 |
sub generate_ustva {
|
| 529 | 529 |
$lxdebug->enter_sub(); |
| 530 | 530 |
|
| 531 |
# Aufruf von get_config aus bin/mozilla/ustva.pl zum |
|
| 532 |
# Einlesen der Finanzamtdaten aus finanzamt.ini |
|
| 531 |
# Aufruf von get_config zum Einlesen der Finanzamtdaten aus finanzamt.ini |
|
| 533 | 532 |
|
| 534 |
get_config($userspath, 'finanzamt.ini'); |
|
| 533 |
USTVA->get_config($userspath, 'finanzamt.ini');
|
|
| 535 | 534 |
|
| 536 | 535 |
# init some form vars |
| 537 | 536 |
my @anmeldungszeitraum = |
| ... | ... | |
| 1056 | 1055 |
# edit all taxauthority prefs |
| 1057 | 1056 |
|
| 1058 | 1057 |
$form->header; |
| 1059 |
&get_config($userspath, 'finanzamt.ini');
|
|
| 1058 |
USTVA->get_config($userspath, 'finanzamt.ini');
|
|
| 1060 | 1059 |
|
| 1061 | 1060 |
my $land = $form->{elsterland};
|
| 1062 | 1061 |
my $amt = $form->{elsterFFFF};
|
| ... | ... | |
| 1145 | 1144 |
my $elster_amt = ''; |
| 1146 | 1145 |
my $elsterFFFF = ''; |
| 1147 | 1146 |
my $elstersteuernummer = ''; |
| 1148 |
&get_config($userspath, 'finanzamt.ini')
|
|
| 1147 |
USTVA->get_config($userspath, 'finanzamt.ini')
|
|
| 1149 | 1148 |
if ($form->{saved} eq $locale->text('saved'));
|
| 1150 | 1149 |
|
| 1151 | 1150 |
# Auf ?bergabefehler checken |
| ... | ... | |
| 1312 | 1311 |
$lxdebug->leave_sub(); |
| 1313 | 1312 |
} |
| 1314 | 1313 |
|
| 1315 |
sub get_config {
|
|
| 1316 |
$lxdebug->enter_sub(); |
|
| 1317 |
|
|
| 1318 |
my ($userpath, $filename) = @_; |
|
| 1319 |
my ($key, $value) = ''; |
|
| 1320 |
open(FACONF, "$userpath/$form->{login}_$filename")
|
|
| 1321 |
or #falls Datei nicht vorhanden ist |
|
| 1322 |
sub {
|
|
| 1323 |
open(FANEW, ">$userpath/$form->{login}_$filename")
|
|
| 1324 |
or $form->error("$userpath/$filename : $!");
|
|
| 1325 |
close FANEW; |
|
| 1326 |
open(FACONF, "$userpath/$form->{login}_$filename")
|
|
| 1327 |
or $form->error("$userpath/$form->{username}_$filename : $!");
|
|
| 1328 |
}; |
|
| 1329 |
while (<FACONF>) {
|
|
| 1330 |
last if /^\[/; |
|
| 1331 |
next if /^(#|\s)/; |
|
| 1332 |
|
|
| 1333 |
# remove comments |
|
| 1334 |
s/\s#.*//g; |
|
| 1335 |
|
|
| 1336 |
# remove any trailing whitespace |
|
| 1337 |
s/^\s*(.*?)\s*$/$1/; |
|
| 1338 |
($key, $value) = split /=/, $_, 2; |
|
| 1339 |
|
|
| 1340 |
$form->{$key} = "$value";
|
|
| 1341 |
|
|
| 1342 |
} |
|
| 1343 |
close FACONF; |
|
| 1344 |
|
|
| 1345 |
$lxdebug->leave_sub(); |
|
| 1346 |
} |
|
| 1347 |
|
|
| 1348 | 1314 |
sub save {
|
| 1349 | 1315 |
$lxdebug->enter_sub(); |
| 1350 | 1316 |
my $filename = "$form->{login}_$form->{filename}";
|
Auch abrufbar als: Unified diff
Funktion get_config aus ustva.pl nach USTVA.pm verschoben, damit sie auch aus rp.pl aufgerufen werden kann.