2005-02-01 10:09:49 +01:00
|
|
|
###
|
|
|
|
# Copyright (c) 2005, Jeremiah Fincher
|
2012-09-01 16:16:48 +02:00
|
|
|
# Copyright (c) 2009-2010, James McCoy
|
2005-02-01 10:09:49 +01:00
|
|
|
# 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.
|
|
|
|
###
|
|
|
|
|
|
|
|
import supybot.conf as conf
|
|
|
|
import supybot.registry as registry
|
2010-10-20 09:10:03 +02:00
|
|
|
from supybot.i18n import PluginInternationalization, internationalizeDocstring
|
|
|
|
_ = PluginInternationalization('ShrinkUrl')
|
2005-02-01 10:09:49 +01:00
|
|
|
|
|
|
|
def configure(advanced):
|
|
|
|
from supybot.questions import output, expect, anything, something, yn
|
|
|
|
conf.registerPlugin('ShrinkUrl', True)
|
2010-10-20 09:10:03 +02:00
|
|
|
if yn(_("""This plugin offers a snarfer that will go retrieve a shorter
|
2005-02-01 10:09:49 +01:00
|
|
|
version of long URLs that are sent to the channel. Would you
|
2010-10-20 09:10:03 +02:00
|
|
|
like this snarfer to be enabled?"""), default=False):
|
2005-02-01 10:09:49 +01:00
|
|
|
conf.supybot.plugins.ShrinkUrl.shrinkSnarfer.setValue(True)
|
|
|
|
|
|
|
|
class ShrinkService(registry.OnlySomeStrings):
|
2012-06-09 19:22:10 +02:00
|
|
|
"""Valid values include 'ln', 'tiny', 'xrl', 'goo', and 'x0'."""
|
2012-08-11 11:07:40 +02:00
|
|
|
validStrings = ('ln', 'tiny', 'xrl', 'goo', 'ur1', 'x0')
|
2005-02-01 10:09:49 +01:00
|
|
|
|
2010-07-11 15:48:16 +02:00
|
|
|
class ShrinkCycle(registry.SpaceSeparatedListOfStrings):
|
2012-08-11 11:07:40 +02:00
|
|
|
"""Valid values include 'ln', 'tiny', 'xrl', 'goo', 'ur1', and 'x0'."""
|
2010-07-11 15:48:16 +02:00
|
|
|
Value = ShrinkService
|
|
|
|
|
|
|
|
def __init__(self, *args, **kwargs):
|
|
|
|
super(ShrinkCycle, self).__init__(*args, **kwargs)
|
|
|
|
self.lastIndex = -1
|
|
|
|
|
|
|
|
def setValue(self, v):
|
2013-02-09 21:53:56 +01:00
|
|
|
super(self.__class__, self).setValue(v)
|
2010-07-11 15:48:16 +02:00
|
|
|
self.lastIndex = -1
|
|
|
|
|
|
|
|
def getService(self):
|
|
|
|
L = self()
|
|
|
|
if L:
|
|
|
|
self.lastIndex = (self.lastIndex + 1) % len(L)
|
|
|
|
return L[self.lastIndex]
|
|
|
|
raise ValueError, \
|
|
|
|
'No services have been configured for rotation. ' \
|
|
|
|
'See conf.supybot.plugins.ShrinkUrl.serviceRotation.'
|
|
|
|
|
2005-02-01 10:09:49 +01:00
|
|
|
ShrinkUrl = conf.registerPlugin('ShrinkUrl')
|
|
|
|
conf.registerChannelValue(ShrinkUrl, 'shrinkSnarfer',
|
2010-10-20 09:10:03 +02:00
|
|
|
registry.Boolean(False, _("""Determines whether the
|
2005-02-01 10:09:49 +01:00
|
|
|
shrink snarfer is enabled. This snarfer will watch for URLs in the
|
|
|
|
channel, and if they're sufficiently long (as determined by
|
|
|
|
supybot.plugins.ShrinkUrl.minimumLength) it will post a
|
|
|
|
smaller URL from either ln-s.net or tinyurl.com, as denoted in
|
2010-10-20 09:10:03 +02:00
|
|
|
supybot.plugins.ShrinkUrl.default.""")))
|
2009-03-08 05:46:50 +01:00
|
|
|
conf.registerChannelValue(ShrinkUrl.shrinkSnarfer, 'showDomain',
|
2010-10-20 09:10:03 +02:00
|
|
|
registry.Boolean(True, _("""Determines whether the snarfer will show the
|
|
|
|
domain of the URL being snarfed along with the shrunken URL.""")))
|
2005-02-01 10:09:49 +01:00
|
|
|
conf.registerChannelValue(ShrinkUrl, 'minimumLength',
|
2010-10-20 09:10:03 +02:00
|
|
|
registry.PositiveInteger(48, _("""The minimum length a URL must be before
|
|
|
|
the bot will shrink it.""")))
|
2005-02-01 10:09:49 +01:00
|
|
|
conf.registerChannelValue(ShrinkUrl, 'nonSnarfingRegexp',
|
2010-10-20 09:10:03 +02:00
|
|
|
registry.Regexp(None, _("""Determines what URLs are to be snarfed; URLs
|
2005-02-01 10:09:49 +01:00
|
|
|
matching the regexp given will not be snarfed. Give the empty string if
|
2010-10-20 09:10:03 +02:00
|
|
|
you have no URLs that you'd like to exclude from being snarfed.""")))
|
2005-02-01 10:09:49 +01:00
|
|
|
conf.registerChannelValue(ShrinkUrl, 'outFilter',
|
2010-10-20 09:10:03 +02:00
|
|
|
registry.Boolean(False, _("""Determines whether the bot will shrink the
|
|
|
|
URLs of outgoing messages if those URLs are longer than
|
|
|
|
supybot.plugins.ShrinkUrl.minimumLength.""")))
|
2005-02-01 10:09:49 +01:00
|
|
|
conf.registerChannelValue(ShrinkUrl, 'default',
|
2010-10-20 09:10:03 +02:00
|
|
|
ShrinkService('ln', _("""Determines what website the bot will use when
|
|
|
|
shrinking a URL.""")))
|
2005-03-10 00:29:49 +01:00
|
|
|
conf.registerGlobalValue(ShrinkUrl, 'bold',
|
2010-10-20 09:10:03 +02:00
|
|
|
registry.Boolean(True, _("""Determines whether this plugin will bold
|
|
|
|
certain portions of its replies.""")))
|
2010-07-11 15:48:16 +02:00
|
|
|
conf.registerChannelValue(ShrinkUrl, 'serviceRotation',
|
2010-10-20 09:10:03 +02:00
|
|
|
ShrinkCycle([], _("""If set to a non-empty value, specifies the list of
|
|
|
|
services to rotate through for the shrinkSnarfer and outFilter.""")))
|
2005-02-01 10:09:49 +01:00
|
|
|
|
2006-02-11 16:52:51 +01:00
|
|
|
# vim:set shiftwidth=4 softtabstop=4 expandtab textwidth=79:
|