#
# UserInfo.pl: User Information Services
-# Author: xk <xk@leguin.openprojects.net>
+# Author: dms
# Version: v0.1 (20000509).
# Created: 20000509
# NOTE: Idea from Flugh. Originally written in tcl for eggdrop by
use strict;
-my $orderOfInfo = "RN,J,C,W,D";
+my $orderOfInfo = 'RN,J,C,W,D';
my %infoDesc = (
- "RN" => "Real Name",
- "J" => "Occupation",
- "C" => "Contact",
- "W" => "URL",
- "D" => "Description",
+ 'RN' => 'Real Name',
+ 'J' => 'Occupation',
+ 'C' => 'Contact',
+ 'W' => 'URL',
+ 'D' => 'Description',
);
sub UserInfo2Hash {
$query =~ s/^\s+|\s+$//g if (defined $query);
if (!defined $query or $query =~ /^$/) {
- &help("userinfo");
+ &help('userinfo');
return;
}
}
my $result;
- if ($result = &getFactoid($query." info")) {
+ if ($result = &getFactoid($query.' info')) {
# good.
} else { # bad.
&performReply("No User Information on \002$query\002");
$userInfo{$info} = $what;
}
- &setFactInfo($who." info", "factoid_value", &Hash2UserInfo(%userInfo));
+ &setFactInfo($who.' info', 'factoid_value', &Hash2UserInfo(%userInfo));
if ($new) {
&DEBUG("UIS: locking '$who info'.");
&DEBUG("UIS: nuh => '$nuh'.");