Internet Archiveで検索するプラグインのソース
use strict; package webarchive; sub plugin_inline { return qq(<form NAME="form1" METHOD="get" ACTION="http://web.archive.org/archive_request_ng" class="webserch" style="display:inline"><input type="hidden" name="collection" value="web"><input TYPE="text" NAME="url" SIZE="40" VALUE=""><input TYPE="submit" NAME="Submit" VALUE="WebArchive"></form>); } sub plugin_usage { return { name => 'webarchive', version => '1.0', author => 'ABYSS', syntax => '&webarchive()', description => 'Create SearchBox for Internet Archive.', example => '&webarchive()', }; } 1;