X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=licom.cgi;h=58c88ccfd1f22b1d19f8abd81a26ca5c7b8e3856;hb=088609f68349c6888d73aaa60708d7bab4a8e7d0;hp=8a52ef4f35afe93f5d39e819d3931dc873afd0ab;hpb=4758eb69e1fcffb4ab236f60bb0fbbac5f980247;p=licom.git diff --git a/licom.cgi b/licom.cgi index 8a52ef4..58c88cc 100755 --- a/licom.cgi +++ b/licom.cgi @@ -698,12 +698,12 @@ sub action_verify $mail ||= ''; my $message; - my $password = $person->password (); + my $password = $person->get ('password'); if (!$password) { $password = pwgen (); - $person->password ($password); + $person->set ('password', $password); } $message = qq(The password for the record "$cn" is "$password".); @@ -749,10 +749,10 @@ sub action_verify_send_mail my $person_name = $person->name (); my ($person_mail) = $person->get ('mail'); my $person_gn = $person->firstname (); - my $password = $person->password (); + my $password = $person->get ('password'); my $host = $ENV{'HTTP_HOST'}; - my $url = 'http://' . $host . $MySelf; + my $url = (defined ($ENV{'HTTPS'}) ? 'https://' : 'http://') . $host . $MySelf; open ($smh, "| /usr/sbin/sendmail -t -f $owner_mail") or die ("open pipe to sendmail: $!"); print $smh < EOF + if ($UserID) { my $search = param ('search') || '';