2003-03-12 07:26:59 +01:00
#!/usr/bin/env python
###
# Copyright (c) 2002, Jeremiah Fincher
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions are met:
#
# * Redistributions of source code must retain the above copyright notice,
# this list of conditions, and the following disclaimer.
# * Redistributions in binary form must reproduce the above copyright notice,
# this list of conditions, and the following disclaimer in the
# documentation and/or other materials provided with the distribution.
# * Neither the name of the author of this software nor the name of
# contributors to this software may be used to endorse or promote products
# derived from this software without specific prior written consent.
#
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
###
2003-03-25 07:53:51 +01:00
"""
Provides several commands that go out to websites and get things .
"""
2003-10-05 14:56:56 +02:00
import plugins
2003-03-12 07:26:59 +01:00
import re
2003-08-01 04:58:29 +02:00
import sets
2003-10-23 00:05:34 +02:00
import getopt
2003-10-30 04:38:55 +01:00
import socket
import urllib2
2003-04-06 13:28:51 +02:00
2003-03-27 21:10:10 +01:00
import utils
2003-03-12 07:26:59 +01:00
import debug
import privmsgs
import callbacks
2003-08-27 18:25:43 +02:00
example = utils . wrapLines ( """
2003-08-27 18:01:51 +02:00
< jemfinch > @list Http
2003-09-07 08:32:13 +02:00
< supybot > acronym , babelize , deepthought , freshmeat , geekquote , netcraft , randomlanguage , stockquote , title , translate , weather
2003-08-27 18:01:51 +02:00
< jemfinch > @acronym ASAP
< supybot > ASAP could be As Soon As Possible , or A Simplified Asset ( disposal ) Procedure , or A Stupid Acting Person ( Dilbert comic strip ) , or Academic Strategic Alliances Program , or Accelerated Situational Awareness Prototype , or Accelerated Systems Applications and Products ( data processing ) , or Acquisitions Strategies and Plans , or Administrative Services Automation Program , or Administrative Services Automation Project
< jemfinch > @deepthought
< supybot > #331: Probably one of the worst things about being a genie in a magic lamp is a little thing called "lamp stench."
< jemfinch > @freshmeat supybot
< supybot > SupyBot , last updated 2002 - 08 - 02 19 : 07 : 52 , with a vitality percent of 0.00 and a popularity of 0.09 , is in version 0.36 .1 .
< jemfinch > ( yeah , I haven ' t updated that in awhile :))
< jemfinch > @geekquote
< supybot > < Coco13 > Girls are a waste of polygons .
< jemfinch > @netcraft slashdot . org
< supybot > slashdot . org is running Apache / 1.3 .26 ( Unix ) mod_gzip / 1.3 .19 .1 a mod_perl / 1.27 mod_ssl / 2.8 .10 OpenSSL / 0.9 .7 a on Linux .
< jemfinch > @stockquote MSFT
< supybot > The current price of MSFT is 26.39 , as of 11 : 22 am EST . A change of - 0.18 from the last business day .
< jemfinch > @title slashdot . org
< supybot > Slashdot : News for nerds , stuff that matters
< jemfinch > @weather 43221
< supybot > The current temperature in Columbus , Ohio is 77 F . Conditions are Mist .
< jemfinch > @weather Paris , FR
< supybot > The current temperature in Paris , France is 27 C . Conditions are Fair .
< jemfinch > @randomlanguage
< supybot > Portuguese
< jemfinch > @babelize en [ randomlanguage ] [ deepthought ]
< supybot > # 355: When he was a small boy, had always wanted to be one acrobat. It looked at as thus much amusement, turning through air, to launch itself, fulling it it it he himself with the land in the shoulders of the person. Little knew that when finally one was changedded acrobat, would seem irritating thus. Years later, later this that stopped finally, joined did not work to it for it is as one acrobat after everything. Weirdo of the stre
2003-08-27 18:25:43 +02:00
""" )
2003-08-27 18:01:51 +02:00
2003-03-12 07:26:59 +01:00
class FreshmeatException ( Exception ) :
pass
2003-10-30 04:38:55 +01:00
def getPage ( url ) :
""" Gets a page. Returns a string that is the page gotten. """
fd = urllib2 . urlopen ( url )
text = fd . read ( )
fd . close ( )
return text
2003-03-12 07:26:59 +01:00
class Http ( callbacks . Privmsg ) :
threaded = True
2003-10-30 04:38:55 +01:00
def callCommand ( self , method , irc , msg , * L ) :
try :
callbacks . Privmsg . callCommand ( self , method , irc , msg , * L )
except socket . gaierror , e :
irc . error ( msg , e . args [ 1 ] )
except urllib2 . HTTPError :
irc . error ( msg , str ( e ) )
2003-04-29 08:48:54 +02:00
2003-10-24 02:46:21 +02:00
_titleRe = re . compile ( r ' <title>(.*?)</title> ' , re . I | re . S )
2003-04-29 08:48:54 +02:00
def title ( self , irc , msg , args ) :
""" <url>
Returns the HTML < title > . . . < / title > of a URL .
"""
url = privmsgs . getArgs ( args )
2003-08-15 19:40:14 +02:00
if ' :// ' not in url :
url = ' http:// %s ' % url
2003-04-29 08:48:54 +02:00
try :
2003-10-30 04:38:55 +01:00
text = getPage ( url )
2003-04-29 08:48:54 +02:00
m = self . _titleRe . search ( text )
if m is not None :
2003-09-09 23:00:36 +02:00
irc . reply ( msg , utils . htmlToText ( m . group ( 1 ) . strip ( ) ) )
2003-04-29 08:48:54 +02:00
else :
irc . reply ( msg , ' That URL appears to have no HTML title. ' )
2003-04-29 17:40:02 +02:00
except ValueError , e :
irc . error ( msg , str ( e ) )
2003-04-29 08:48:54 +02:00
2003-03-22 10:07:14 +01:00
_fmProject = re . compile ( ' <projectname_full>([^<]+)</projectname_full> ' )
_fmVersion = re . compile ( ' <latest_version>([^<]+)</latest_version> ' )
_fmVitality = re . compile ( ' <vitality_percent>([^<]+)</vitality_percent> ' )
2003-10-11 23:03:02 +02:00
_fmPopular = re . compile ( ' <popularity_percent>([^<]+)</popularity_percent> ' )
2003-03-22 10:07:14 +01:00
_fmLastUpdated = re . compile ( ' <date_updated>([^<]+)</date_updated> ' )
2003-03-12 07:26:59 +01:00
def freshmeat ( self , irc , msg , args ) :
2003-04-05 21:41:59 +02:00
""" <project name>
Returns Freshmeat data about a given project .
"""
2003-03-12 07:26:59 +01:00
project = privmsgs . getArgs ( args )
url = ' http://www.freshmeat.net/projects-xml/ %s ' % project
try :
2003-10-30 04:38:55 +01:00
text = getPage ( url )
2003-03-12 07:26:59 +01:00
if text . startswith ( ' Error ' ) :
raise FreshmeatException , text
project = self . _fmProject . search ( text ) . group ( 1 )
version = self . _fmVersion . search ( text ) . group ( 1 )
vitality = self . _fmVitality . search ( text ) . group ( 1 )
2003-03-22 10:07:14 +01:00
popularity = self . _fmPopular . search ( text ) . group ( 1 )
2003-03-12 07:26:59 +01:00
lastupdated = self . _fmLastUpdated . search ( text ) . group ( 1 )
irc . reply ( msg ,
2003-10-30 04:38:55 +01:00
' %s , last updated %s , with a vitality percent of %s ' \
' and a popularity of %s , is in version %s . ' % \
( project , lastupdated , vitality , popularity , version ) )
2003-03-12 07:26:59 +01:00
except FreshmeatException , e :
2003-04-29 08:48:54 +02:00
irc . error ( msg , debug . exnToString ( e ) )
2003-03-12 07:26:59 +01:00
def stockquote ( self , irc , msg , args ) :
2003-04-05 21:41:59 +02:00
""" <company symbol>
Gets the information about the current price and change from the
previous day of a given compny ( represented by a stock symbol ) .
"""
2003-03-12 07:26:59 +01:00
symbol = privmsgs . getArgs ( args )
url = ' http://finance.yahoo.com/d/quotes.csv?s= %s ' \
' &f=sl1d1t1c1ohgv&e=.csv ' % symbol
2003-10-30 04:38:55 +01:00
quote = getPage ( url )
2003-03-12 07:26:59 +01:00
data = quote . split ( ' , ' )
if data [ 1 ] != ' 0.00 ' :
irc . reply ( msg ,
' The current price of %s is %s , as of %s EST. ' \
' A change of %s from the last business day. ' % \
( data [ 0 ] [ 1 : - 1 ] , data [ 1 ] , data [ 3 ] [ 1 : - 1 ] , data [ 4 ] ) )
else :
m = ' I couldn \' t find a listing for %s ' % symbol
irc . error ( msg , m )
2003-08-23 14:40:30 +02:00
_cityregex = re . compile (
r ' <td><font size= " 4 " face= " arial " ><b> ' \
r ' (.*?), (.*?),(.*?)</b></font></td> ' , re . IGNORECASE )
_interregex = re . compile (
r ' <td><font size= " 4 " face= " arial " ><b> ' \
r ' (.*?), (.*?)</b></font></td> ' , re . IGNORECASE )
_condregex = re . compile (
r ' <td width= " 100 % " colspan= " 2 " align= " center " ><strong> ' \
r ' <font face= " arial " >(.*?)</font></strong></td> ' , re . IGNORECASE )
_tempregex = re . compile (
r ' <td valign= " top " align= " right " ><strong><font face= " arial " > ' \
r ' (.*?)</font></strong></td> ' , re . IGNORECASE )
2003-08-23 15:00:24 +02:00
# States
_realStates = sets . Set ( [ ' ak ' , ' al ' , ' ar ' , ' ca ' , ' co ' , ' ct ' , ' dc ' ,
' de ' , ' fl ' , ' ga ' , ' hi ' , ' ia ' , ' id ' , ' il ' ,
' in ' , ' ks ' , ' ky ' , ' la ' , ' ma ' , ' md ' , ' me ' ,
' mi ' , ' mn ' , ' mo ' , ' ms ' , ' mt ' , ' nc ' , ' nd ' ,
' ne ' , ' nh ' , ' nj ' , ' nm ' , ' nv ' , ' ny ' , ' oh ' ,
' ok ' , ' or ' , ' pa ' , ' ri ' , ' sc ' , ' sd ' , ' tn ' ,
' tx ' , ' ut ' , ' va ' , ' vt ' , ' wa ' , ' wi ' , ' wv ' , ' wy ' ] )
# Provinces. (Province being a metric state measurement mind you. :D)
_fakeStates = sets . Set ( [ ' ab ' , ' bc ' , ' mb ' , ' nb ' , ' nf ' , ' ns ' , ' nt ' ,
' nu ' , ' on ' , ' pe ' , ' qc ' , ' sk ' , ' yk ' ] )
def weather ( self , irc , msg , args ) :
2003-08-23 14:40:30 +02:00
""" <US zip code> <US/Canada city, state> <Foreign city, country>
Returns the approximate weather conditions for a given city .
"""
2003-08-23 15:00:24 +02:00
2003-08-23 14:40:30 +02:00
#If we received more than one argument, then we have received
#a city and state argument that we need to process.
2003-08-23 15:00:24 +02:00
if len ( args ) > 1 :
2003-08-23 14:40:30 +02:00
#If we received more than 1 argument, then we got a city with a
#multi-word name. ie ['Garden', 'City', 'KS'] instead of
#['Liberal', 'KS']. We join it together with a + to pass
#to our query
2003-08-23 15:00:24 +02:00
state = args . pop ( )
state = state . lower ( )
city = ' + ' . join ( args )
city = city . rstrip ( ' , ' )
city = city . lower ( )
2003-08-27 18:01:51 +02:00
#debug.printf((state, city))
2003-08-23 14:40:30 +02:00
#We must break the States up into two sections. The US and
#Canada are the only countries that require a State argument.
2003-08-23 15:00:24 +02:00
if state in self . _realStates :
2003-08-23 14:40:30 +02:00
country = ' us '
2003-08-23 15:00:24 +02:00
elif state in self . _fakeStates :
2003-08-23 14:40:30 +02:00
country = ' ca '
else :
2003-08-23 15:00:24 +02:00
country = state
2003-08-27 18:01:51 +02:00
state = ' '
2003-08-23 14:40:30 +02:00
url = ' http://www.hamweather.net/cgi-bin/hw3/hw3.cgi? ' \
2003-08-23 15:00:24 +02:00
' pass=&dpp=&forecast=zandh&config=& ' \
' place= %s &state= %s &country= %s ' % \
( city , state , country )
2003-08-27 18:01:51 +02:00
#debug.printf(url)
2003-08-23 14:40:30 +02:00
#We received a single argument. Zipcode or station id.
else :
2003-08-27 18:01:51 +02:00
zip = privmsgs . getArgs ( args )
zip = zip . replace ( ' , ' , ' ' )
zip = zip . lower ( ) . split ( )
2003-08-23 14:40:30 +02:00
url = ' http://www.hamweather.net/cgi-bin/hw3/hw3.cgi? ' \
2003-08-23 15:00:24 +02:00
' config=&forecast=zandh&pands= %s &Submit=GO ' % args [ 0 ]
2003-08-23 14:40:30 +02:00
2003-08-25 22:13:20 +02:00
#debug.printf(url)
2003-10-30 04:38:55 +01:00
html = getPage ( url )
if ' was not found ' in html :
irc . error ( msg , ' No such location could be found. ' )
return
headData = self . _cityregex . search ( html )
if headData :
( city , state , country ) = headData . groups ( )
else :
headData = self . _interregex . search ( html )
( city , state ) = headData . groups ( )
temp = self . _tempregex . search ( html ) . group ( 1 )
conds = self . _condregex . search ( html ) . group ( 1 )
if temp and conds and city and state :
s = ' The current temperature in %s , %s is %s . ' \
' Conditions are %s . ' % \
( city . strip ( ) , state . strip ( ) , temp , conds )
irc . reply ( msg , s )
else :
irc . error ( msg , ' The format of the page was odd. ' )
2003-03-12 07:26:59 +01:00
2003-10-21 21:54:30 +02:00
_mlgeekquotere = re . compile ( ' <p class= " qt " >(.*?)</p> ' , re . M | re . DOTALL )
2003-03-25 10:02:03 +01:00
def geekquote ( self , irc , msg , args ) :
2003-10-23 00:05:34 +02:00
""" [--id=<value>]
2003-04-05 21:41:59 +02:00
Returns a random geek quote from bash . org ; the optional argument
2003-10-23 00:05:34 +02:00
- - id specifies which quote to retrieve .
2003-04-05 21:41:59 +02:00
"""
2003-10-23 00:05:34 +02:00
( optlist , rest ) = getopt . getopt ( args , ' ' , [ ' id= ' ] )
id = ' random1 '
for ( option , arg ) in optlist :
if option == ' --id ' :
try :
id = int ( arg )
except ValueError , e :
irc . error ( msg , ' Invalid id: %s ' % e )
return
2003-10-30 04:38:55 +01:00
html = getPage ( ' http://bash.org/? %s ' % id )
2003-10-23 00:05:34 +02:00
m = self . _mlgeekquotere . search ( html )
2003-03-25 10:02:03 +01:00
if m is None :
irc . error ( msg , ' No quote found. ' )
return
2003-03-27 21:10:10 +01:00
quote = utils . htmlToText ( m . group ( 1 ) )
2003-03-25 10:02:03 +01:00
quote = ' // ' . join ( quote . splitlines ( ) )
irc . reply ( msg , quote )
2003-08-20 18:26:23 +02:00
2003-03-31 10:10:33 +02:00
_acronymre = re . compile ( r ' <td[^w]+width= " 70[^>]+>(?:<b>)?([^<]+)(?:</b>)? ' )
2003-03-25 10:02:03 +01:00
def acronym ( self , irc , msg , args ) :
2003-03-31 05:26:23 +02:00
""" <acronym>
2003-08-21 14:25:35 +02:00
Displays acronym matches from acronymfinder . com
2003-04-05 21:41:59 +02:00
"""
2003-03-25 10:02:03 +01:00
acronym = privmsgs . getArgs ( args )
2003-10-30 04:38:55 +01:00
url = ' http://www.acronymfinder.com/ ' \
' af-query.asp?String=exact&Acronym= %s ' % acronym
request = urllib2 . Request ( url , headers = { ' User-agent ' :
' Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 4.0) ' } )
html = getPage ( request )
2003-07-24 15:33:31 +02:00
# The following definitions are stripped and empties are removed.
defs = filter ( None , map ( str . strip , self . _acronymre . findall ( html ) ) )
2003-09-09 10:33:07 +02:00
utils . sortBy ( lambda s : not s . startswith ( ' [not an acronym] ' ) , defs )
for ( i , s ) in enumerate ( defs ) :
if s . startswith ( ' [not an acronym] ' ) :
defs [ i ] = s . split ( ' is ' , 1 ) [ 1 ]
2003-08-25 22:13:20 +02:00
#debug.printf(defs)
2003-03-25 10:02:03 +01:00
if len ( defs ) == 0 :
irc . reply ( msg , ' No definitions found. ' )
else :
2003-09-07 08:01:25 +02:00
s = ' , or ' . join ( defs )
2003-06-02 09:21:35 +02:00
irc . reply ( msg , ' %s could be %s ' % ( acronym , s ) )
2003-03-22 08:53:46 +01:00
2003-04-02 10:54:23 +02:00
_netcraftre = re . compile ( r ' whatos text -->(.*?)<a href= " /up/acc ' , re . S )
def netcraft ( self , irc , msg , args ) :
2003-04-05 21:41:59 +02:00
""" <hostname|ip>
Returns Netcraft . com ' s determination of what operating system and
webserver is running on the host given .
"""
2003-04-02 10:54:23 +02:00
hostname = privmsgs . getArgs ( args )
url = ' http://uptime.netcraft.com/up/graph/?host= %s ' % hostname
2003-10-30 04:38:55 +01:00
html = getPage ( url )
2003-04-02 10:54:23 +02:00
m = self . _netcraftre . search ( html )
if m :
html = m . group ( 1 )
s = utils . htmlToText ( html , tagReplace = ' ' ) . strip ( ' \xa0 ' )
irc . reply ( msg , s [ 9 : ] ) # Snip off "the site"
2003-08-11 19:16:03 +02:00
elif ' We could not get any results ' in html :
2003-04-02 18:13:29 +02:00
irc . reply ( msg , ' No results found for %s . ' % hostname )
2003-04-02 10:54:23 +02:00
else :
2003-09-08 10:48:33 +02:00
irc . error ( msg , ' The format of page the was odd. ' )
2003-04-02 10:54:23 +02:00
2003-08-30 04:33:28 +02:00
def kernel ( self , irc , msg , args ) :
""" takes no arguments
Returns information about the current version of the Linux kernel .
"""
2003-10-30 04:38:55 +01:00
fd = urllib2 . urlopen ( ' http://www.kernel.org/kdist/finger_banner ' )
2003-08-30 04:33:28 +02:00
for line in fd :
( name , version ) = line . split ( ' : ' )
if ' latest stable ' in name :
stable = version . strip ( )
elif ' latest beta ' in name :
beta = version . strip ( )
2003-08-30 04:35:28 +02:00
fd . close ( )
2003-08-30 04:33:28 +02:00
irc . reply ( msg , ' The latest stable kernel is %s ; ' \
' the latest beta kernel is %s . ' % ( stable , beta ) )
2003-09-08 10:48:33 +02:00
_pgpkeyre = re . compile ( r ' pub \ s+ \ d {4} \ w/<a ' \
' href= " ([^ " ]+) " >([^<]+)</a>[^>]+>([^<]+)</a> ' )
def pgpkey ( self , irc , msg , args ) :
""" <search words>
Returns the results of querying pgp . mit . edu for keys that match
the < search words > .
"""
search = privmsgs . getArgs ( args )
urlClean = search . replace ( ' ' , ' + ' )
host = ' http://pgp.mit.edu:11371 '
url = ' %s /pks/lookup?op=index&search= %s ' % ( host , urlClean )
2003-10-30 04:38:55 +01:00
try :
L = [ ]
fd = urllib2 . urlopen ( url )
for line in iter ( fd . next , ' ' ) :
info = self . _pgpkeyre . search ( line )
if info :
L . append ( ' %s < %s %s > ' % ( info . group ( 3 ) , host , info . group ( 1 ) ) )
if len ( L ) == 0 :
irc . reply ( msg , ' No results found for %s . ' % search )
else :
s = ' Matches found for %s : %s ' % ( search , ' :: ' . join ( L ) )
irc . reply ( msg , s )
finally :
2003-09-08 19:35:24 +02:00
fd . close ( )
2003-09-08 10:48:33 +02:00
2003-03-12 07:26:59 +01:00
Class = Http
2003-04-02 10:54:23 +02:00
2003-03-24 09:41:19 +01:00
# vim:set shiftwidth=4 tabstop=8 expandtab textwidth=78: