1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
#! /usr/bin/perl
# -*- Mode: Perl -*-
# image.postrm ---
# Author : Manoj Srivastava ( srivasta@glaurung.green-gryphon.com )
# Created On : Sat May 15 11:05:13 1999
# Created On Node : glaurung.green-gryphon.com
# Last Modified By : Manoj Srivastava
# Last Modified On : Wed Jun 2 17:04:48 1999
# Last Machine Used: glaurung.green-gryphon.com
# Update Count : 5
# Status : Unknown, Use with caution!
# HISTORY :
# Description :
#
# $Id: image.postrm,v 1.2 1999/06/02 22:21:29 srivasta Exp $
#
#
# use strict; #for debugging
$|=1;
# Predefined values:
my $version = "=V";
my $image_in_boot = "=B"; # Should be empty, mostly
my $no_symlink = "=S"; # Should be empty, mostly
my $reverse_symlink = "=R"; # Should be empty, mostly
my $kimage = "=K"; # Should be empty, mostly
my $loader = "=L"; # lilo, silo, quik, or nettrom
my $image_dest = "=D"; # where the image is located
my $Loader = "LILO";
$Loader = "SILO" if $loader =~ /silo/io;
$Loader = "QUIK" if $loader =~ /quik/io;
$Loader = "NETTROM" if $loader =~ /nettrom/io;
if (! $image_dest) {
$image_dest = "boot"
}
else {
$image_dest =~ s|^/||o;
}
# This should not point to /tmp, because of security risks.
my $temp_file_name = "/var/log/$loader" . "_log.$$";
#known variables
my @boilerplate = ();
my $bootdevice = '';
my $rootdevice = '';
my $rootdisk = '';
my $rootpartition = '';
my $imagedir = "/";
my $realimageloc = "$image_dest/";
if ($image_in_boot) {
$imagedir = "/$image_dest/";
$realimageloc = "";
}
# Ignore all invocations uxcept when called on to purge.
exit 0 unless $ARGV[0] =~ /purge/;
# most of our work is done in $imagedir
chdir("$imagedir") or die "could not chdir to $imagedir:$!\n";
# Paranoid check to make sure that the correct value is put in there
if (! $kimage) { # Hmm. empty
$kimage = "vmlinuz"
}
elsif ($kimage =~ m/^b?zImage$/o) { # these produce vmlinuz
$kimage = "vmlinuz"
}
elsif ($kimage =~ m/^Image$/o) {
my $nop = $kimage;
}
elsif ($kimage =~ m/^vmlinux$/o) {
my $nop = $kimage;
#
}
else { # Let this be the default as well
$kimage = "vmlinuz"
}
if (-l "$kimage") {
# There is a symbolic link
my $force_move = 0;
my $vmlinuz_target = readlink "$kimage";
if (!defined($vmlinuz_target)) {
# what, a dangling symlink?
warn "The link " . $imagedir . "$kimage is a danglink link\n";
warn "Removing dangling sym link " . $imagedir . "$kimage \n";
# Remove the dangling link
unlink $imagedir . $kimage;
}
}
if (-l "$kimage.old") {
# There is a symbolic link
my $force_move = 0;
my $vmlinuz_target = readlink "$kimage" . ".old" ;
if (!defined($vmlinuz_target)) {
# what, a dangling symlink?
warn "The link " . $imagedir . "$kimage" . ".old is a danglink link\n";
warn "Removing dangling sym link " . $imagedir . "$kimage" . ".old \n";
# Remove the dangling link
unlink $imagedir . $kimage . ".old";
}
}
exit 0;
__END__
|
