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 ($help, $wantversion, $debug) = (0, 0, 0);
24 GetOptions
("help|?" => \
$help,
25 "version" => \
$wantversion,
26 "verbose|v:+" => \
$Verbose::level
,
27 "debug=i" => \
$debug) or pod2usage
(1);
33 pod2usage
(1) if($help || scalar(@ARGV) != 1);
35 my $file = abs_path
($ARGV[0]);
37 my $tmpdir = tempdir
('ksplice-tmp-XXXXXX', TMPDIR
=> 1, CLEANUP
=> 1);
39 my $ksplice = unpack_update
($file);
42 my $nounload = runstr
("lsmod") =~ m/- $/m;
44 (my $kid = $ksplice) =~s
|ksplice
[-_
]([^-_
]+)|$1|;
45 my $update = "ksplice_$kid";
46 if(update_loaded
($kid)) {
47 my $stage = get_stage
($kid);
48 if ($stage eq "applied") {
49 print STDERR
"Ksplice update $kid already applied.\n";
52 die "Reversed Ksplice module $update already loaded!" if ($stage eq "reversed");
55 if (-e
"ksplice-$kid.ko") {
56 if (runstr
("lsmod") =~ m/^ksplice_$kid\s+/) {
57 die "Ksplice core module ksplice_$kid already loaded.";
59 if (!load_module
("ksplice-$kid.ko", "debug=$debug")) {
60 die "Error loading Ksplice core for update $kid";
64 runstr_err
(qw(modprobe -q ksplice)) eq "" || die;
67 foreach my $helper (glob('ksplice-*-helper.ko')) {
68 (my $primary = $helper) =~ s/\-helper\.ko$/.ko/;
69 die unless(-e
$primary && -e
$helper);
70 (my $target = $primary) =~ s/^ksplice-[^_]+_(.*)\.ko/$1/;
71 if ($target ne 'vmlinux' && runstr
("lsmod") !~ m/^${target}\s/m) {
72 die "Module $target to be patched not loaded";
75 foreach my $helper (glob('ksplice-*-helper.ko')) {
76 (my $primary = $helper) =~ s/\-helper\.ko$/.ko/;
77 if(!load_module
($primary)) {
78 die "Error loading primary module $primary";
80 if(!load_module
($helper)) {
81 my ($debugfile, $debugout) = get_debug_output
("init_$kid");
82 print STDERR
"Error loading helper module $helper\n";
83 (my $module = $primary) =~ s/-/_/g;
87 print("Debugging output saved to $debugfile\n");
92 set_debug_level
($kid, $debug);
93 set_stage
($kid, "applied");
94 my $stage = get_stage
($kid);
95 if($stage ne 'applied') {
96 my ($debugfile, $debugout) = get_debug_output
($kid);
97 my $abort_cause = get_abort_cause
($kid);
98 if ($abort_cause eq 'code_busy') {
99 display_conflicts
($kid);
102 print STDERR
"Error applying Ksplice update $kid:\n";
104 print_error
($abort_cause);
105 print("Debugging output saved to $debugfile\n");
108 mkpath
("/var/run/ksplice/updates/$kid");
109 copy
("patch", "/var/run/ksplice/updates/$kid/patch");
110 foreach my $helper (glob('ksplice-*-helper.ko')) {
112 $helper =~ s/\.ko$//;
113 die if (!$nounload && runval_raw
("rmmod $helper") != 0);
118 my @modules_loaded = qw();
121 my ($module, @params) = @_;
122 if (runval_raw
("insmod", $module, @params) != 0) {
127 push @modules_loaded, $module;
131 sub cleanup_modules
{
132 foreach my $module (reverse(@modules_loaded)) {
133 die if (!$nounload && runval_raw
("rmmod", $module) != 0);
140 "no_match" => <<'END',
141 Ksplice has aborted the upgrade because Ksplice has been unable to match the
142 object code produced by your current compiler and assembler against the running
143 kernel's object code. If you provided the exact kernel source to the running
144 kernel, then it appears that your current compiler and/or assembler are
145 behaving differently from the compiler and assembler used to build the running
146 kernel. If possible, please use the exact compiler and assembler that were
147 used to build the running kernel. If you are using exactly the same compiler
148 and assembler, feel free to report a bug to PACKAGE_BUGREPORT.
150 "code_busy" => <<'END',
151 Ksplice has aborted the upgrade because it appears that the code that you are
152 trying to patch is continuously in use by the system. More specifically,
153 Ksplice has been unable to find a moment when one or more of the to-be-patched
154 functions is not on a thread's kernel stack.
156 "bad_system_map" => <<'END',
157 Ksplice has aborted the upgrade because it appears that the System.map file
158 provided to ksplice-create does not match the running kernel.
160 "failed_to_find" => <<'END',
161 Ksplice has aborted the upgrade because it was unable to resolve some
162 of the symbols used in the update.
164 "already_reversed" => <<'END',
165 The Ksplice update you are attempting to apply has already been
166 applied and reversed. You need to unload the Ksplice modules related
167 to this update before you can reapply this update.
169 "UNKNOWN" => <<'END',
170 The Ksplice kernel interface has returned an error string that
171 ksplice-apply does not understand. This is probably the result of
172 using a version of ksplice-apply that is older than the version of the
173 Ksplice kernel module source.
176 Ksplice has aborted the upgrade for unknown reasons.
179 $error = "UNKNOWN" if (!exists $errors{$error});
180 print STDERR
"\n$errors{$error}\n";
185 ksplice-apply - Apply an on-disk Ksplice update to the running kernel
189 B<ksplice-apply> I<UPDATE_TARBALL>
193 B<ksplice-apply> takes as input a Ksplice update tarball, as generated by
194 L<ksplice-create(8)>, and it applies the update to the running binary kernel.
196 Specifically, B<ksplice-apply> does the following:
202 Inserts the "primary" module into the kernel.
206 Inserts the "helper" module into the kernel (doing so applies the
211 Removes the "helper" module from the kernel (that module is not needed
212 after the update has been applied).
216 The update tarball used with B<ksplice-apply> must have been generated for the
217 running kernel's version.
223 =item B<--debug=>I<DEBUG_LEVEL>
225 Applies the update with debugging output enabled. Recommended only for
226 debugging. I<DEBUG_LEVEL> should be an integer between 0 and 4. B<--debug=4>
227 provides the most debugging information.
237 Provides basic (pre-run matching and kernel stack check) debugging output.
241 Also provides full kernel stack check debugging output.
245 Also provides full pre-run matching debugging output.
249 Also provides full Ksplice relocation debugging output.
257 L<ksplice-create(8)>, L<ksplice-view(8)>, L<ksplice-undo(8)>
261 Copyright (C) 2008 Jeffrey Brian Arnold <jbarnold@mit.edu>.
263 This is free software and documentation. You can redistribute and/or modify it
264 under the terms of the GNU General Public License, version 2.