projekt kivitendo

sub build_std_url {

  $lxdebug->enter_sub();

  my $url = "$form->{script}?";

  my $first = 1;

  foreach my $key ((qw(login password path), @_)) {

    next unless ($key);

    $url .= "&" unless ($first);

    $first = 0;

    if ($key =~ /=/) {

      $url .= $key;

    } else {

      $url .= "${key}=" . E($form->{$key});

    }

  }

  $lxdebug->leave_sub();

  return $url;

}

sub E {

  return $form->escape($_[0]);

}