X-Git-Url: http://git.grml.org/?a=blobdiff_plain;f=usr_bin%2Fgsuggest.pl;fp=usr_bin%2Fgsuggest.pl;h=0000000000000000000000000000000000000000;hb=80bb0095486743f38e930be5012dac2eb1e3d5f6;hp=125fd401f1c206a7db818844fd40e71559641548;hpb=518509587f32c3ab5efb17b962c06147d52ef18d;p=grml-scripts.git

diff --git a/usr_bin/gsuggest.pl b/usr_bin/gsuggest.pl
deleted file mode 100755
index 125fd40..0000000
--- a/usr_bin/gsuggest.pl
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/bin/perl
-# Filename:      gsuggest.pl
-# Purpose:       google suggest - ask google for keyword suggestions
-# Authors:       grml-team (grml.org), (c) Michael Prokop <mika@grml.org>
-# Bug-Reports:   see http://grml.org/bugs/
-# License:       This file is licensed under the GPL v2.
-################################################################################
-
-use strict;
-use warnings;
-use WebService::Google::Suggest;
-
-unless (@ARGV) {
-  print "usage: gsuggest <keyword[s]>\n";
-  exit(1);
-}
-
-my $suggest = WebService::Google::Suggest->new();
-
-while (@ARGV) {
-   my @suggestions = $suggest->complete(shift);
-   for my $suggestion (@suggestions) {
-     print "$suggestion->{query}: $suggestion->{results} results\n";
-   }
-}
-
-## END OF FILE #################################################################