projects
/
licom.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bugfixes since the last checkin.
[licom.git]
/
licom.cgi
diff --git
a/licom.cgi
b/licom.cgi
index
8a52ef4
..
58c88cc
100755
(executable)
--- a/
licom.cgi
+++ b/
licom.cgi
@@
-698,12
+698,12
@@
sub action_verify
$mail ||= '';
my $message;
$mail ||= '';
my $message;
- my $password = $person->
password (
);
+ my $password = $person->
get ('password'
);
if (!$password)
{
$password = pwgen ();
if (!$password)
{
$password = pwgen ();
- $person->
password (
$password);
+ $person->
set ('password',
$password);
}
$message = qq(The password for the record "$cn" is "$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 $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 $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 <<EOM;
open ($smh, "| /usr/sbin/sendmail -t -f $owner_mail") or die ("open pipe to sendmail: $!");
print $smh <<EOM;
@@
-778,12
+778,17
@@
EOM
print $smh <<EOM;
If this entry is outdated or incomplete, please take a minute and correct it.
print $smh <<EOM;
If this entry is outdated or incomplete, please take a minute and correct it.
- Address:
$url
+ Address: $url
Username: $person_name
Password: $password
Username: $person_name
Password: $password
-Thank you very much :) Regards,
+Thank you very much :)
+
+Regards,
$UserCN
$UserCN
+--
+This message was automatically generated by LiCoM,
+http://verplant.org/licom/
EOM
close ($smh);
EOM
close ($smh);
@@
-1049,6
+1054,7
@@
Content-Type: text/html; charset=UTF-8
<body>
EOF
<body>
EOF
+
if ($UserID)
{
my $search = param ('search') || '';
if ($UserID)
{
my $search = param ('search') || '';