3 # Copyright (C) 2008 Jeffrey Brian Arnold <jbarnold@mit.edu>
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.
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.
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
20 use lib
'KSPLICE_DATA_DIR';
23 my ($kid, $mid, $module, $update, $file);
24 my ($help, $wantversion) = (0, 0);
25 GetOptions
("help|?" => \
$help,
26 "version" => \
$wantversion,
27 "verbose|v:+" => \
$Verbose::level
,
29 "file=s" => \
$file) or pod2usage
(1);
35 pod2usage
(1) if($help || scalar(@ARGV) != 0);
36 my $actions = (defined $kid) + (defined $file);
37 pod2usage
(1) if($actions > 1);
39 view_kid
() if(defined $kid);
40 view_file
() if(defined $file);
41 view_list
() if($actions == 0);
46 $kid =~ s/^ksplice[_-]//;
47 $kid =~ s/[-_].*$//; # In case we got an mid instead
48 $update = "ksplice_$kid";
49 if(!update_loaded
($kid)) {
50 print "Ksplice id $kid is not present in the kernel\n";
53 my $stage = get_stage
($kid);
54 print "Ksplice id $kid is present in the kernel and is $stage.\n\n";
55 my $source_diff = get_patch
($kid);
56 return if($source_diff eq "");
57 print "Here is the source code patch associated with this update:\n";
62 my $tmpdir = tempdir
('ksplice-tmp-XXXXXX', TMPDIR
=> 1, CLEANUP
=> 1);
63 copy
($file, "$tmpdir/" . basename
($file));
65 my $ksplice = unpack_update
($file);
66 open(PATCH
, '<', "$ksplice/patch") or die $!;
73 foreach(split(/\n/, runstr
("lsmod"))) {
74 next unless my ($mid) = m/^ksplice_(\S*)\s/;
75 $module = "ksplice_$mid";
76 ($kid = $mid) =~ s/[-_].*$//;
77 next unless (-e
"/sys/module/$module/$module/stage");
78 open STAGE
, '<', "/sys/module/$module/$module/stage" or next;
79 print "$kid\n" if(<STAGE
> eq "applied\n");
82 if (-e
"/sys/module/ksplice") {
83 chdir("/sys/module/ksplice");
84 foreach $update (glob("ksplice_*")) {
85 ($kid = $update) =~ s/^ksplice_//;
86 print "$kid\n" if(get_stage
($kid) eq "applied");
93 ksplice-view - View in-kernel or on-disk Ksplice kernel updates
97 B<ksplice-view> [B<--id=>I<KSPLICE_ID> | B<--file=>I<UPDATE_TARBALL>]
101 When called with no arguments, B<ksplice-view> lists the identification tags of
102 all of the Ksplice updates that are currently present in the running kernel.
104 B<ksplice-view> can report about a specific Ksplice update when given the
105 update's identification tag (if the update is in the kernel) or given the
106 update's tarball filename I<UPDATE_TARBALL> (if the update is on disk).
110 L<ksplice-create(8)>, L<ksplice-apply(8)>, L<ksplice-undo(8)>
114 Copyright (C) 2008 Jeffrey Brian Arnold <jbarnold@mit.edu>.
116 This is free software and documentation. You can redistribute and/or modify it
117 under the terms of the GNU General Public License, version 2.