From: octo Date: Sat, 30 Apr 2005 16:39:34 +0000 (+0000) Subject: Bugfixes since the last checkin. X-Git-Tag: Release-0.3~14 X-Git-Url: https://git.verplant.org/?a=commitdiff_plain;h=088609f68349c6888d73aaa60708d7bab4a8e7d0;p=licom.git Bugfixes since the last checkin. Fixed in the verification-emails. --- diff --git a/ChangeLog b/ChangeLog new file mode 100644 index 0000000..4c0c672 --- /dev/null +++ b/ChangeLog @@ -0,0 +1,11 @@ +ChangeLog for "Lightweight Contact Manager", http://verplant.org/licom/ + +2005-04-30, Version 0.2, Florian Forster + * The ability to delete entries has been added. + * Telephone numbers now may contain spaces and dashes, as common in + LDAP. + * Email messages now include an SSL URI if applicable. + +2005-04-27, Version 0.1, Florian Forster + * Initial release + diff --git a/ReadMe b/ReadMe index f6add0c..54c6c5d 100644 --- a/ReadMe +++ b/ReadMe @@ -9,6 +9,14 @@ Requirements: - Perl (Version 5.6 or later) +Other things you need: +- Understanding of Apache and LDAP + OR +- Someone who knows + OR +- Curiosity, manuals, time and coffee + + Installation: Please read these instructions, they include non-obvious hints. 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') || '';