ksplice-view.in

   1 #!/usr/bin/perl
   2
   3 # Copyright (C) 2008  Jeffrey Brian Arnold <jbarnold@mit.edu>
   4 #
   5 # This program is free software; you can redistribute it and/or modify
   6 # it under the terms of the GNU General Public License, version 2.
   7 #
   8 # This program is distributed in the hope that it will be useful,
   9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 # GNU General Public License for more details.
  12 #
  13 # You should have received a copy of the GNU General Public License
  14 # along with this program; if not, write to the Free Software
  15 # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
  16 # 02110-1301, USA.
  17
  18 use Getopt::Long;
  19 use Cwd 'abs_path', 'getcwd';
  20 use Pod::Usage;
  21 use strict;
  22 use warnings;
  23 use lib 'KSPLICE_DATA_DIR';
  24 use ksplice;
  25
  26 my ($kid, $file);
  27 my ($help, $wantversion) = (0, 0);
  28 GetOptions("help|?" => \$help,
  29         "version" => \$wantversion,
  30         "verbose|v!" => \$verbose,
  31         "id=s" => \$kid,
  32         "file=s" => \$file) or pod2usage(1);
  33
  34 if($wantversion) {
  35         print $version_str;
  36         exit(0);
  37 }
  38 pod2usage(1) if($help || scalar(@ARGV) != 0);
  39 my $actions = (defined $kid) + (defined $file);
  40 pod2usage(1) if($actions > 1);
  41
  42 view_kid() if(defined $kid);
  43 view_file() if(defined $file);
  44 view_list() if($actions == 0);
  45
  46 exit(0);
  47
  48 sub view_kid {
  49         $kid =~ s/^ksplice[_-]//;
  50
  51         check_in_proc($kid);
  52         print "Ksplice id $kid is present in the kernel\n";
  53         print runstr("cat /proc/ksplice_$kid");
  54 }
  55
  56 sub view_file {
  57         $file = abs_path($file);
  58
  59         my $tmpdir = init_tmpdir();
  60         runcd($tmpdir);
  61         runval("cp $file .");
  62         my $ksplice = unpack_update($file);
  63         print runstr("cat $ksplice/patch");
  64         runval("rm -rf $tmpdir");
  65 }
  66
  67 sub view_list {
  68         print runstr("lsmod | grep ksplice");
  69 }
  70
  71 =head1 NAME
  72
  73 ksplice-view - View in-kernel or on-disk Ksplice kernel updates
  74
  75 =head1 SYNOPSIS
  76
  77 B<ksplice-view> [B<--id=>I<KSPLICE_ID> | B<--file=>I<UPDATE_TARBALL>]
  78
  79 =head1 DESCRIPTION
  80
  81 When called with no arguments, B<ksplice-view> lists the identification tags of
  82 all of the Ksplice updates that are currently present in the running kernel.
  83
  84 B<ksplice-view> can report about a specific Ksplice update when given the
  85 update's identification tag (if the update is in the kernel) or given the
  86 update's tarball filename I<UPDATE_TARBALL> (if the update is on disk).
  87
  88 =head1 SEE ALSO
  89
  90 L<ksplice-create(8)>, L<ksplice-apply(8)>, L<ksplice-undo(8)>
  91
  92 =head1 COPYRIGHT
  93
  94 Copyright (C) 2008  Jeffrey Brian Arnold <jbarnold@mit.edu>.
  95
  96 This is free software and documentation.  You can redistribute and/or modify it
  97 under the terms of the GNU General Public License, version 2.
  98
  99 =cut