projekt kivitendo

sub get_config {

  $main::lxdebug->enter_sub();

  my ($self, $userpath, $filename) = @_;

  my $form = $main::form;

  if (!open(FACONF, "$userpath/$form->{login}_$filename")) {

    open(FANEW, ">$userpath/$form->{login}_$filename") ||

      $form->error("$userpath/$filename : $!");

    close(FANEW);

    open(FACONF, "$userpath/$form->{login}_$filename") ||

      $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/;

    my ($key, $value) = split(/=/, $_, 2);

    $form->{$key} = "$value";

  }

  close(FACONF);

  $main::lxdebug->leave_sub();

}