OpenPKG CVS Repository
http://cvs.openpkg.org/
____________________________________________________________________________
Server: cvs.openpkg.org Name: Thomas Lotterer
Root: /v/openpkg/cvs Email: [EMAIL PROTECTED]
Module: openpkg-registry Date: 25-Nov-2005 19:15:49
Branch: HEAD Handle: 2005112518154900
Modified files:
openpkg-registry registry-ui.pl
Log:
fix dropxml output for "openpkg register" clients and make dropxml the
default page after successful login
Summary:
Revision Changes Path
1.18 +6 -3 openpkg-registry/registry-ui.pl
____________________________________________________________________________
patch -p0 <<'@@ .'
Index: openpkg-registry/registry-ui.pl
============================================================================
$ cvs diff -u -r1.17 -r1.18 registry-ui.pl
--- openpkg-registry/registry-ui.pl 25 Nov 2005 18:12:09 -0000 1.17
+++ openpkg-registry/registry-ui.pl 25 Nov 2005 18:15:49 -0000 1.18
@@ -241,7 +241,7 @@
$out .= &viewhtmltail();
print STDOUT &canvas($out);
}
-elsif ($cgi->param("page") eq "dropxml" and not &uao()) {
+elsif (($cgi->param("page") eq "dropxml" or $cgi->param("page") eq "" ) and
not &uao()) {
my $out;
$out = '';
$out .= &viewhttp();
@@ -260,7 +260,7 @@
$out = '';
$out .= &viewhttp("plain/text");
$out .= &viewdropxml();
- print STDOUT &canvas($out);
+ print STDOUT $out;
}
elsif ($cgi->param("page") eq "ase") {
my $out;
@@ -965,7 +965,10 @@
$header = {
-redirect => $redirect,
};
- return $cgi->redirect($header);
+ $html .= $cgi->redirect($header);
+ $html .= $cgi->delete(-name=>'page');
+ $html .= $cgi->hidden(-name=>'page', -value => "dropxml");
+ return $html;
}
sub printprettyerror($$)
@@ .
______________________________________________________________________
The OpenPKG Project www.openpkg.org
CVS Repository Commit List openpkg-cvs@openpkg.org
