grml-tips

   1 #!/usr/bin/perl
   2 # Filename:      grml-tips
   3 # Purpose:       query a signature file for a specific keyword and display results
   4 # Authors:       grml-team (grml.org), (c) Michael Prokop <mika@grml.org>, (c) Alexander Wirt <formorer@grml.org>
   5 # Bug-Reports:   see http://grml.org/bugs/
   6 # License:       This file is licensed under the GPL v2.
   7 # Latest change: Sam Mär 03 15:35:38 CET 2007 [mika]
   8 ################################################################################
   9
  10 use strict;
  11 use Pod::Usage;
  12
  13 use feature 'say';
  14 use Term::ReadKey;
  15 use Time::HiRes;
  16 use LWP::UserAgent;
  17
  18 =head1 NAME
  19
  20 B<grml-tips> - query a signature file for a specific keyword and display results
  21
  22 =head1 SYNOPSIS
  23
  24 B<grml-tips> [OPTION] I<keyword>
  25
  26 =head1 DESCRIPTION
  27
  28 This manual page documents briefly the B<grml-tips> command.
  29
  30 =head1 OPTIONS
  31
  32 =over 8
  33
  34 =item B<--help>
  35
  36 Print this help and exit.
  37
  38 =back
  39
  40 =head1 EXAMPLES
  41
  42 =over 8
  43
  44 =item B<grml-tips> I<ntfs>
  45
  46 Query grml-tips file for tips / hints including keyword  "ntfs".
  47
  48 =item B<grml-tips> I<.>
  49
  50 Display all available B<grml-tips> at once.
  51
  52 =back
  53
  54 =head1 FILES
  55
  56 /usr/share/grml-tips/grml_tips
  57
  58 Signature file containing the tips.
  59
  60 =head1 SEE ALSO
  61
  62 L<grml(1)>
  63
  64 =head1 AUTHOR
  65
  66 grml-tips was written by Alexander Wirt <formorer@grml.org>
  67
  68 =cut
  69
  70
  71 my $grml_tips = '/usr/share/grml-tips/grml_tips';
  72 my $pattern = shift;
  73
  74 if ($pattern eq '') {
  75     pod2usage( {
  76             -message => 'No search pattern provided',
  77             -exitval => -1, });
  78 } elsif ($pattern eq  '--help') {
  79     pod2usage();
  80 }
  81
  82 my @tips;
  83 if (! open (my $fh, '<', "$grml_tips")) {
  84         say STDERR "Error: File \"$grml_tips\" not found.";
  85         say STDERR "Exiting.";
  86         exit -1;
  87 } else {
  88         my $tip = '';
  89
  90         while (my $line = <$fh>) {
  91                 if ($line !~ /^-- $/) {
  92                         $tip .= $line;
  93                 } else {
  94                         if ( $tip =~ /$pattern/mi ) {
  95                                 $tip .= $line;
  96                                 push @tips, $tip;
  97                                 $tip = '';
  98                         } else {
  99                                 $tip = '';
 100                         }
 101                 }
 102         }
 103         close($fh);
 104 }
 105
 106 if (@tips) {
 107         if (! open (my $fh, '|-', 'less -FRX') ) {
 108                 say @tips;
 109         } else {
 110                 say $fh @tips;
 111         }
 112 }else {
 113         say "Sorry, could not find a tip for '$pattern'. :-(\n\n",
 114         "Do you want to submit the keyword '$pattern' to grml's keyword database?\n",
 115         "The grml team will write tips for the most requested and useful keywords.\n",
 116         "To use and contribute to this feature you'll need a working networking connection.\n",
 117         "No personal data will be transmitted to the database.\n\n",
 118         "Send \"$pattern\" to grml's keyword database? [y|N] ";
 119
 120         ReadMode 4; # Turn off controls keys
 121         my $x;
 122         while (not defined ($x = ReadKey(-1))) {
 123                 Time::HiRes::sleep(0.5);
 124         }
 125         ReadMode 0; # Reset tty mode before exiting
 126         print "\n\n";
 127         if ($x =~ /(y|j)/i) {
 128                 my $version;
 129                 if ( -f '/etc/grml_version' ) {
 130                         open (my $fh, '<', '/etc/grml_version') or die "Could not open /etc/grml_version: $!";
 131                         $version = <$fh>;
 132                         chomp $version;
 133                         close ($fh);
 134                 } elsif ( -f '/etc/debian_version') {
 135                         open (my $fh, '<', '/etc/debian_version') or die "Could not open /etc/debian_version: $!";
 136                         $version = <$fh>;
 137                         chomp $version;
 138                         close ($fh);
 139                 } else {
 140                         $version = 'unknown';
 141                 }
 142                 my $ua = new LWP::UserAgent;
 143                 $ua->agent("grml-tips 0.0 "); # set the HTTP 'browser' type
 144                 my $res =
 145                         $ua->post('http://deb.grml.org/~formorer/submissions/keyword.cgi',
 146                                         [ 'version' => $version,
 147                                         'keyword' => $pattern
 148                                         ],
 149                                  );
 150                 if ($res->is_success) {
 151                         my $content =  $res->decoded_content;
 152                         if ($content =~ /Submission received/) {
 153                                 say "Keyword '$pattern' has been submitted to grml's keyword database.\nThanks.";
 154                         } else {
 155                                 say "Your pattern could not be submitted.\n",
 156                                       "Please file a bug against grml-tips at ",
 157                                       "http://bts.grml.org/\n",
 158                                       "Thanks!";
 159                         }
 160                 } else {
 161                         print "Could not submitt '$pattern': " . $res->status_line . "\n";
 162                 }
 163
 164
 165         } else {
 166                 print "'$pattern' has not been sent to grml's keyword database as requested.\n";
 167                 print "If you want to submit a tip please mail it to tips\@grml.org - thank you!\n";
 168         }
 169 }
 170
 171 ## END OF FILE #################################################################