head	1.1;
access;
symbols
	RELEASE_8_3_0:1.1
	RELEASE_9_0_0:1.1
	RELEASE_7_4_0:1.1
	RELEASE_8_2_0:1.1
	RELEASE_6_EOL:1.1
	RELEASE_8_1_0:1.1
	RELEASE_7_3_0:1.1
	RELEASE_8_0_0:1.1
	RELEASE_7_2_0:1.1
	RELEASE_7_1_0:1.1
	RELEASE_6_4_0:1.1
	RELEASE_5_EOL:1.1
	RELEASE_7_0_0:1.1
	RELEASE_6_3_0:1.1
	PRE_XORG_7:1.1
	RELEASE_4_EOL:1.1
	RELEASE_6_2_0:1.1
	RELEASE_6_1_0:1.1
	RELEASE_5_5_0:1.1
	RELEASE_6_0_0:1.1
	RELEASE_5_4_0:1.1
	RELEASE_4_11_0:1.1
	RELEASE_5_3_0:1.1
	RELEASE_4_10_0:1.1;
locks; strict;
comment	@# @;


1.1
date	2003.12.30.04.20.00;	author ijliao;	state Exp;
branches;
next	;


desc
@@


1.1
log
@add goose 0.5
Command line Google search utility
@
text
@--- goose.orig	Sat May 17 11:04:45 2003
+++ goose	Tue Dec 30 12:12:13 2003
@@@@ -1,4 +1,4 @@@@
-#!/usr/bin/perl 
+#!/usr/bin/env perl
 #
 # This is free software; you can redistribute it and/or modify it
 # under the terms of the GNU General Public License as published by
@@@@ -38,8 +38,8 @@@@
 
 my $cfgfile = AppConfig::File->new($state);
 
-if (-f '/etc/goose.conf') {
-    $cfgfile->parse('/etc/goose.conf');
+if (-f '%%LOCALBASE%%/etc/goose.conf') {
+    $cfgfile->parse('%%LOCALBASE%%/etc/goose.conf');
 }
 if (-f ($ENV{HOME} . '/.goose.conf')) {
     $cfgfile->parse($ENV{HOME} . '/.goose.conf');
@@@@ -54,7 +54,7 @@@@
 	  "and follow the instructions for creating a Google Account.\n" .
 	  "\n" . 
 	  "Once you have the key, add it to your configuration file,\n" .
-	  "either the system-wide config file (/etc/goose.conf), or \n" .
+	  "either the system-wide config file (%%LOCALBASE%%/etc/goose.conf), or \n" .
 	  "in your user-specific config file, named .goose.conf in your \n" .
 	  "home directory.\n\n";
     exit(-1);
@@@@ -112,7 +112,7 @@@@
 
 my $query = join(" ", @@ARGV);
 
-my $googleSearch = SOAP::Lite->service("file:/usr/lib/goose/GoogleSearch.wsdl");
+my $googleSearch = SOAP::Lite->service("file:%%DATADIR%%/GoogleSearch.wsdl");
 
 #
 # The MAINLOOP is the giant loop surrounding the bulk of the code. Each
@@@@ -238,9 +238,9 @@@@
 	    endwin();
 
 	    if ($state->get("one_shot")) {
-		exec("/etc/urlview/url_handler.sh '$element->{'URL'}'");
+		exec("%%LOCALBASE%%/bin/url_handler.sh '$element->{'URL'}'");
 	    } else {
-		system("/etc/urlview/url_handler.sh '$element->{'URL'}'");
+		system("%%LOCALBASE%%/bin/url_handler.sh '$element->{'URL'}'");
 	    }
 	}
 
@@@@ -440,11 +440,11 @@@@
 
 Goose uses configuration files to store the Google web API key. They
 both observe the same format. An example is provided in 
-/usr/share/doc/goose/goose.conf.example.
+%%EXAMPLESDIR%%/goose.conf.example.
 
 =over 8
 
-=item B</etc/goose.conf>
+=item B<%%LOCALBASE%%/etc/goose.conf>
 
 The system-wide configuration file.
 
@
