Revision 0246e125
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| bin/mozilla/ustva.pl | ||
|---|---|---|
|
$form->header;
|
||
|
|
||
|
# Einlesen der Finanzamtdaten
|
||
|
&get_config($userspath, 'finanzamt.ini');
|
||
|
USTVA->get_config($userspath, 'finanzamt.ini');
|
||
|
|
||
|
# Hier Einlesen der user-config
|
||
|
# steuernummer entfernt f?r prerelease
|
||
| ... | ... | |
|
sub generate_ustva {
|
||
|
$lxdebug->enter_sub();
|
||
|
|
||
|
# Aufruf von get_config aus bin/mozilla/ustva.pl zum
|
||
|
# Einlesen der Finanzamtdaten aus finanzamt.ini
|
||
|
# Aufruf von get_config zum Einlesen der Finanzamtdaten aus finanzamt.ini
|
||
|
|
||
|
get_config($userspath, 'finanzamt.ini');
|
||
|
USTVA->get_config($userspath, 'finanzamt.ini');
|
||
|
|
||
|
# init some form vars
|
||
|
my @anmeldungszeitraum =
|
||
| ... | ... | |
|
# edit all taxauthority prefs
|
||
|
|
||
|
$form->header;
|
||
|
&get_config($userspath, 'finanzamt.ini');
|
||
|
USTVA->get_config($userspath, 'finanzamt.ini');
|
||
|
|
||
|
my $land = $form->{elsterland};
|
||
|
my $amt = $form->{elsterFFFF};
|
||
| ... | ... | |
|
my $elster_amt = '';
|
||
|
my $elsterFFFF = '';
|
||
|
my $elstersteuernummer = '';
|
||
|
&get_config($userspath, 'finanzamt.ini')
|
||
|
USTVA->get_config($userspath, 'finanzamt.ini')
|
||
|
if ($form->{saved} eq $locale->text('saved'));
|
||
|
|
||
|
# Auf ?bergabefehler checken
|
||
| ... | ... | |
|
$lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub get_config {
|
||
|
$lxdebug->enter_sub();
|
||
|
|
||
|
my ($userpath, $filename) = @_;
|
||
|
my ($key, $value) = '';
|
||
|
open(FACONF, "$userpath/$form->{login}_$filename")
|
||
|
or #falls Datei nicht vorhanden ist
|
||
|
sub {
|
||
|
open(FANEW, ">$userpath/$form->{login}_$filename")
|
||
|
or $form->error("$userpath/$filename : $!");
|
||
|
close FANEW;
|
||
|
open(FACONF, "$userpath/$form->{login}_$filename")
|
||
|
or $form->error("$userpath/$form->{username}_$filename : $!");
|
||
|
};
|
||
|
while (<FACONF>) {
|
||
|
last if /^\[/;
|
||
|
next if /^(#|\s)/;
|
||
|
|
||
|
# remove comments
|
||
|
s/\s#.*//g;
|
||
|
|
||
|
# remove any trailing whitespace
|
||
|
s/^\s*(.*?)\s*$/$1/;
|
||
|
($key, $value) = split /=/, $_, 2;
|
||
|
|
||
|
$form->{$key} = "$value";
|
||
|
|
||
|
}
|
||
|
close FACONF;
|
||
|
|
||
|
$lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub save {
|
||
|
$lxdebug->enter_sub();
|
||
|
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.