Re: [ ispman-Bugs-986136 ] reseller/client login does not work
Michael Bunk <[email protected]>
| Newsgroups | gmane.comp.isp.ispman.devel |
|---|---|
| Organization | Computer Leipzig |
| Message-ID | <[email protected]> |
Hi Jörg,
attached is a fix to assist you. The only important lines are these:
114a121,122
> $session->param("uid", $uid);
> $session->param("logintype", $r->param("logintype"));
I have setup my vim to remove trainling spaces, to the diff is longer.
I can't do anything about it :)
Mit freundlichen Grüßen,
Michael Bunk
www.computer-leipzig.de
index.cgi-loginsfixed
(text/x-diff, 1.1 KB)
Index: index.cgi
===================================================================
RCS file: /cvsroot/ispman/ispman/ispman-web/htdocs/admin/index.cgi,v
retrieving revision 1.14.2.2
diff -r1.14.2.2 index.cgi
36c36
< my $session = new CGI::Session::File($sid,
---
> my $session = new CGI::Session::File($sid,
38c38
< LockDirectory =>'/tmp',
---
> LockDirectory =>'/tmp',
48d47
<
50c49,52
<
---
>
>
> #print $r->header();
> #print "uid: ". $session->param("uid");
62c64
< if ($r->param("uid") && $r->param("pass")) {
---
> if ($r->param("uid") && $r->param("pass")) {
66c68
<
---
>
97c99
< } else {
---
> } else {
104d105
<
106c107,108
<
---
>
>
110a113,116
> print '<br>Code: '. $result->code;
> print "<br>Used dn: $dn<br>";
> print "Pass: ". $r->param("pass");
> print "<br>Logintype: ". $r->param("logintype");
114a121,122
> $session->param("uid", $uid);
> $session->param("logintype", $r->param("logintype"));
135c143
<
---
>
138c146
< TYPE => "FILE",
---
> TYPE => "FILE",