+ $old_form =~ s|!r|\r|g;
+ $old_form =~ s|!n|\n|g;
+ $old_form =~ s|!!|!|g;
+ $form = YAML::Load($old_form);
+
+ $lxdebug->leave_sub();
+}
+
+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});
+ }
+ }