From 054eabeb42c52a79954fd53bf9e28dad429c616c Mon Sep 17 00:00:00 2001 From: tausq <> Date: Sun, 26 Mar 2000 20:13:25 +0000 Subject: [PATCH] Adds ICQ UIN support --- web/search.cgi | 12 ++++++++++-- web/searchresults.html | 5 +++-- web/searchresults.wml | 1 + web/update.cgi | 3 ++- web/update.html | 11 ++++++++--- web/update.wml | 6 ++++++ 6 files changed, 30 insertions(+), 8 deletions(-) diff --git a/web/search.cgi b/web/search.cgi index ff67109..7a54100 100755 --- a/web/search.cgi +++ b/web/search.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $Id: search.cgi,v 1.5 2000/01/11 05:43:18 tausq Exp $ +# $Id: search.cgi,v 1.6 2000/03/26 22:13:25 tausq Exp $ # (c) 1999 Randolph Chung. Licensed under the GPL. use lib '.'; @@ -116,7 +116,7 @@ if (!$dosearch) { $data = $entries->{$dn}; # These are local variables.. i have enough global vars as it is... - my ($ufdn, $login, $name, $email, $fingerprint, $address, $latlong, $vacation, $created, $modified, $lastseen) = undef; + my ($ufdn, $login, $name, $icquin, $email, $fingerprint, $address, $latlong, $vacation, $created, $modified, $lastseen) = undef; $ufdn = $dn; # Net::LDAP does not have a dn2ufn function, but this is close enough :) @@ -132,6 +132,11 @@ if (!$dosearch) { $email .= "$_"; } + # ICQ + if ($data->{icquin}->[0]) { + $icquin = sprintf("%s", $data->{icquin}->[0], $data->{icquin}->[0]); + } + # Format PGP/GPG key fingerprints my $fi; foreach (@{$data->{keyfingerprint}}) { @@ -177,6 +182,9 @@ if (!$dosearch) { $outsub{searchresults} .= FormatEntry($dataspecref->{ircnick}, $data->{ircnick}->[0]); $outsub{searchresults} .= FormatEntry($dataspecref->{loginshell}, $data->{loginshell}->[0]); $outsub{searchresults} .= FormatEntry($dataspecref->{fingerprint}, $fingerprint); + if ($icquin) { + $outsub{searchresults} .= FormatEntry($dataspecref->{icquin}, $icquin); + } if ($auth) { # Some data should only be available to authorized users... diff --git a/web/searchresults.html b/web/searchresults.html index caa7903..990b5c1 100644 --- a/web/searchresults.html +++ b/web/searchresults.html @@ -9,7 +9,7 @@ - + @@ -46,6 +46,7 @@

Back to the Debian Project homepage.

You can contact us at admin@db.debian.org.

-Last Modified: Tue, Jan 11 04:51:34 UTC 2000
+Last Modified: Sun, Mar 26 21:52:42 UTC 2000
Copyright © 1997-1999 SPI; See license terms diff --git a/web/searchresults.wml b/web/searchresults.wml index 2a1bff4..df85b76 100644 --- a/web/searchresults.wml +++ b/web/searchresults.wml @@ -15,6 +15,7 @@ use lib '.'; @@ -130,6 +130,7 @@ if (!($query->param('doupdate'))) { LDAPUpdate($ldap, $editdn, 'emailForward', $query->param('email')); LDAPUpdate($ldap, $editdn, 'privatesub', $query->param('privatesub')); LDAPUpdate($ldap, $editdn, 'ircNick', $query->param('ircnick')); + LDAPUpdate($ldap, $editdn, 'icquin', $query->param('icquin')); LDAPUpdate($ldap, $editdn, 'labeledUrl', $query->param('labeledurl')); LDAPUpdate($ldap, $editdn, 'onvacation', $query->param('onvacation')); diff --git a/web/update.html b/web/update.html index 2fbbaf2..1d8f5fa 100644 --- a/web/update.html +++ b/web/update.html @@ -8,8 +8,8 @@ - - + +

@@ -335,6 +335,11 @@ + + +
+ ICQ UIN: + + +
Preferred shell: @@ -379,7 +384,7 @@

Back to the Debian Project homepage.

You can contact us at admin@db.debian.org.

-Last Modified: Mon, Feb 14 19:23:51 UTC 2000
+Last Modified: Sun, Mar 26 22:03:09 UTC 2000
Copyright © 1997-1999 SPI; See license terms diff --git a/web/update.wml b/web/update.wml index 128a5b4..cbe3277 100644 --- a/web/update.wml +++ b/web/update.wml @@ -313,6 +313,12 @@

+ ICQ UIN: + + +
Preferred shell: -- 2.20.1