# -*-perl-*-
# keitairc/lib/plugins/10url
# URL
# $Id: 10url,v 1.1 2008/01/09 19:30:34 morimoto Exp $
# $Source: /cvsroot/keitairc/lib/plugins/10url,v $

$plugin = {
	name => 'url',

	message_replace_regexp => '\b(https?://[/!-;=-\177]+|www\.[/!-\177]+)',
	message_replace_imprementation => sub {
		my ($session_id, $param) = @_;
		if($param =~ m/^http/){
			return sprintf('<a href="/%s/url/%s">%s</a>', $session_id, $param, $param);
		}
		return sprintf('<a href="/%s/url/http://%s">%s</a>', $session_id, $param, $param);
	},

	action_imprementation => sub {
		my ($request, $name, $session_id, $param_string) = @_;
		my $ci = new Keitairc::ClientInfo($request);
		my $view = new Keitairc::View($::cf, $ci);
		return $view->render('url.html', {
			url => $param_string,
			escaped_url => ::uri_escape($param_string),
			ezweb => $ci->is_ezweb(),
			sid => $session_id,
			     });
	}
};

1;
