User Control Panel
Advertisements
HELP US, HELP YOU!
Author
Message
Cer Upgraded AgentPosts: 3776 votes : 4
Posted: Sun Jan 02, 2005 2:29 pm Post subject:
Usage: !whatpulse Example: Quote: Kirsle: !whatpulse kirsleCodyCKS: :: WhatPulse Profile ::http://www.kirsle.net/ http://www.whatpulse.org/
Code: # . . <Leviathan><br /># .:...:: Command Name // !whatpulse<br /># .:: ::. Description // Get a WhatPulse user's profile.<br /># ..:;;. ' .;;:.. Usage // !whatpulse <username><br /># . ''' . Permissions // Public<br /># :;,:,;: Listener // All<br /># : : Copyright // 2005 AiChaos Inc.<br /><br />sub whatpulse {<br /> my ($self,$client,$msg) = @_;<br /><br /> # A username must be supplied.<br /> if (length $msg > 0) {<br /> my $wp = LWP::Simple::get "http://whatpulse.org/api/user.php?account=$msg";<br /><br /> # Source must be defined and user must exist.<br /> if (length $wp == 0) {<br /> return "The WhatPulse API could not be contacted!";<br /> }<br /> if ($wp =~ /Invalid AccountName/i) {<br /> return "That user does not have a WhatPulse profile.";<br /> }<br /><br /> # Array of lines.<br /> my @lines = split(/\n/, $wp);<br /><br /> # Shift off the first line (contains User ID).<br /> my %pulse = (<br /> 'UserID' => shift(@lines),<br /> );<br /> $pulse{'UserID'} =~ s/\# showing basic information about userid (.*?)/$1/ig;<br /> $pulse{'UserID'} =~ s/\s//g;<br /><br /> # Go through the lines.<br /> foreach my $line (@lines) {<br /> next if length $line == 0;<br /> last if $line =~ /^X END/i;<br /><br /> # Split the line up.<br /> my ($void,$var,$value) = split(/\s+/, $line, 3);<br /> $value =~ s/\s+$//ig;<br /><br /> # Save it to the hash.<br /> $pulse{$var} = $value;<br /> }<br /><br /> # Return the response.<br /> my $reply = ":: WhatPulse Profile ::\n\n"<br /> . "Username: $pulse{'AccountName'} (ID: $pulse{'UserID'})\n"<br /> . "Country: $pulse{'Country'}\n"<br /> . "Date Joined: $pulse{'DateJoined'}\n"<br /> . "Homepage: $pulse{'Homepage'}\n\n"<br /> . "Last Pulse: $pulse{'LastPulse'}\n"<br /> . "Total Pulses: $pulse{'Pulses'}\n"<br /> . "Total Key Count: $pulse{'TotalKeyCount'}\n"<br /> . "Av. Keys per Pulse: $pulse{'AvKeysPerPulse'}\n"<br /> . "Total Click Count: $pulse{'TotalMouseClicks'}\n"<br /> . "Av. Clicks per Pulse: $pulse{'AvClicksPerPulse'}\n\n"<br /> . "Average Keys per Second: $pulse{'AvKPS'}\n"<br /> . "Average Clicks per Second: $pulse{'AvCPS'}\n"<br /> . "Overall Rank: $pulse{'Rank'}";<br /><br /> # If in a team...<br /> if (length $pulse{'TeamID'} > 0) {<br /> $reply .= "\n\n"<br /> . "Team Name: $pulse{'TeamName'} (ID: $pulse{'TeamID'})\n"<br /> . "Members: $pulse{'TeamMembers'}\n"<br /> . "Team Keys: $pulse{'TeamKeys'}\n"<br /> . "Team Clicks: $pulse{'TeamClicks'}\n"<br /> . "Description: $pulse{'TeamDescription'}\n"<br /> . "Date Formed: $pulse{'TeamDateFormed'}\n"<br /> . "Rank in Team: $pulse{'RankInTeam'}";<br /> }<br /><br /> # Link to WhatPulse.org<br /> $reply .= "\n\n"<br /> . "WhatPulse ~ http://www.whatpulse.org/";<br /><br /> # Return.<br /> return $reply;<br /> }<br /> else {<br /> return "You must provide a username when calling this command, i.e.\n\n"<br /> . "!whatpulse kirsle";<br /> }<br />}<br />{<br /> Category => 'Utilities',<br /> Description => 'Get a WhatPulse user\'s profile.',<br /> Usage => '!whatpulse <username>',<br /> Listener => 'All',<br />};
http://www.cuvou.com/
Back to top
User Control Panel
