projects / licom.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 4758eb6)
Bugfixes since the last checkin. Release-0.2
authorocto <octo>
Sat, 30 Apr 2005 16:39:34 +0000 (16:39 +0000)
committerocto <octo>
Sat, 30 Apr 2005 16:39:34 +0000 (16:39 +0000)
Fixed in the verification-emails.

ChangeLog [new file with mode: 0644] patch | blob
ReadMe patch | blob | history
licom.cgi patch | blob | history

diff --git a/ChangeLog b/ChangeLog
new file mode 100644 (file)
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 <octo@verplant.org>
+       * 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 <octo@verplant.org>
+       * Initial release
+       
diff --git a/ReadMe b/ReadMe
index f6add0c..54c6c5d 100644 (file)
--- 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 (executable)
--- 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 &quot;$cn&quot; is &quot;$password&quot;.);
@@ -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 <<EOM;
@@ -778,12 +778,17 @@ EOM
        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
 
-Thank you very much :) Regards,
+Thank you very much :)
+
+Regards,
 $UserCN
+--
+This message was automatically generated by LiCoM,
+http://verplant.org/licom/
 EOM
        close ($smh);
 
@@ -1049,6 +1054,7 @@ Content-Type: text/html; charset=UTF-8
 
        <body>
 EOF
+
        if ($UserID)
        {
                my $search = param ('search') || '';
The lightweight contact manager