#!/usr/bin/perl --

use strict;
use LWP::Simple;
use MIME::Base64 qw(encode_base64);

die "Usage: $0 Name 'SearchURLString'\n" if @ARGV < 2;

my ($name, $url) = @ARGV;

my ($site) = split '(?<![:/])/', $url;

my $ico = get($site . '/favicon.ico');
unless ($ico) {
    $site =~ s{http://[^.]+\.}{http://};
    $ico = get($site . '/favicon.ico');
}

die "Can't get favicon for $site\n" unless defined $ico;

my $base64 = encode_base64($ico);

$url =~ s/searchTerms/{searchTerms}/gi;
$url =~ s/&(?!amp;)/&amp;/g;

print <<END_OF_SEARCHPLUGIN;
<SearchPlugin
  xmlns="http://www.mozilla.org/2006/browser/search/"
  xmlns:os="http://a9.com/-/spec/opensearch/1.1/">
<os:ShortName>$name</os:ShortName>
<os:Description>$name</os:Description>
<os:InputEncoding>UTF-8</os:InputEncoding>
<os:Image width="16" height="16">
  data:image/x-icon;base64,$base64</os:Image>
<SearchForm>$site</SearchForm>
<os:Url type="text/html" method="GET" template="$url">
</os:Url>
</SearchPlugin>
END_OF_SEARCHPLUGIN
__END__