Below is a script which makes a search plugin for arbitrary site.
It can create plugin not only for search engines but for any dynamic site which accepts CGI parameters.
To create search plugin:
- Make a search of bareword searchTerms, then copy a url appeared in address bar of a browser
- Run the script with that url as parameter
- Redirect script output to .xml file in searchplugins directory of your firefox profile
As an example let's create search plugin for LiveJournal
- Search 'searchTerms' using the search form Got url http://search.livejournal.ru/ljsearch?query=searchTerms&ie=utf-8
- run the script with url as parameter
perl mksp.pl Livejournal 'http://search.livejournal.ru/ljsearch?query= +searchTerms&ie=utf-8' > ~/.mozilla/firefox/ze02d000.default/searchplu +gins/lj.xml
- restart FireFox and enjoy with blue pen of LiveJournal in search plugins
#!/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;)/&/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__
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Create FireFox search plugin for arbitrary web site
by Lawliet (Curate) on Nov 09, 2008 at 16:54 UTC | |
Re: Create FireFox search plugin for arbitrary web site
by jgamble (Pilgrim) on Nov 29, 2008 at 21:45 UTC | |
by ccn (Vicar) on Nov 30, 2008 at 00:28 UTC |
Back to
Cool Uses for Perl