$basedir=~s#\$\Q{prefix}\E#'@prefix@';#ge;
$vardir=~s#\$\Q{prefix}\E#'@prefix@';#ge;
$vardir="" if $vardir=~/^@/;
-sub srcdir { my($uname_r)=@_; $basedir."/".($uname_r lt "2.5" ? "2.4" : "2.5"); }
+sub srcdir { my($uname_r)=@_; $basedir."/".($uname_r lt "2.5" ? "2.4" : "2.6"); }
my $modbindir=$basedir."/modbin";
my @sources=qw(proc.c inode.c dir.c file.c symlink.c);
-my $tmp_dir="prepmod-tmp-dir";
my $quiet;
my $kernel;
my $prebuild;
-my $kernel_gcc_args="";
+use vars qw($kernel_gcc_args);
+$kernel_gcc_args="";
-my $lufsmnt_bin;
-if ($0 eq "lufsmnt" || $0=~m#/lufsmnt$#) {
+sub modext { my($uname_r)=@_; ($uname_r lt "2.5" ? "o" : "ko"); }
+
+# mount(8) will util-linux/lib/env.c/sanitize_env()
+# including the clearance our $PATH:
+$ENV{"PATH"}=join(":",qw(/usr/local/bin /usr/bin /bin),($ENV{"PATH"} || ()));
+
+my $lufsd_base='lufsd';
+do { eval '$lufsd_base=~'.$_.';' if !/^@/; } for ('@program_transform_name@');
+my $lufsd_bin;
+if ($0 eq $lufsd_base || $0=~m#/\Q$lufsd_base\E$#) {
$quiet=1;
- $lufsmnt_bin='@bindir@/lufsmnt-bin';
- $lufsmnt_bin=~s#\$\Q{exec_prefix}\E#'@exec_prefix@';#ge;
- $lufsmnt_bin=~s#\$\Q{prefix}\E#'@prefix@';#ge;
+ $lufsd_bin='@bindir@/'.$lufsd_base.'-bin';
+ $lufsd_bin=~s#\$\Q{exec_prefix}\E#'@exec_prefix@';#ge;
+ $lufsd_bin=~s#\$\Q{prefix}\E#'@prefix@';#ge;
}
else {
die if !GetOptions(
return $r;
}
+sub _writefile
+{
+my($filename,@content)=@_;
+
+ local *F;
+ open F,($filename=~/^[|]/ ? "" : ">").$filename or confess "rewrite \"$filename\": $!";
+ print F @content;
+ close F or confess "close \"$filename\": $!"; # Do not &cluck as it may be pipe result
+}
+
sub _system
{
my(@args)=@_;
my $modproberc;
if ($load) {
- do { ($modproberc=_system $_) and cluck "$_ failed - ignoring"; } for ("depmod -aq","modprobe lufs");
+ do { ($modproberc=_system $_) and cluck "$_ failed - ignoring"; }
+ for ("/sbin/depmod -aq","/sbin/modprobe lufs");
}
- exit ($modproberc ? 1 : 0) if !$lufsmnt_bin;
- do { exec $lufsmnt_bin,@ARGV; };
- confess "Failed to exec '$lufsmnt_bin': $!";
+ exit ($modproberc ? 1 : 0) if !$lufsd_bin;
+ do { exec $lufsd_bin,@ARGV; };
+ confess "Failed to exec '$lufsd_bin': $!";
}
_pass if $filesystems=~/\blufs$/m;
my $modules=_readfile "/proc/modules"; # 'lufs' may be already loaded
_pass if $modules=~/^lufs\b/m;
-_pass if !_system "modprobe lufs 2>/dev/null";
+_pass if !_system "/sbin/modprobe lufs 2>/dev/null";
+
+print STDERR "Preparing LUFS kernel module - this may take several minutes...\n"; # if !$quiet;
my $proc_version=_readfile "/proc/version";
my $uname_r=($proc_version=~/^Linux version (\S+)/)[0] || _readfile "uname -r|";
chomp $uname_r;
confess "Failed to detect kernel version" if !$uname_r;
+my $uname_smp=($uname_r=~s/smp$// && "smp");
my $uname_r_base=($uname_r=~/^([^-]+)/)[0];
print STDERR "Running kernel version: $uname_r (base version $uname_r_base)\n" if !$quiet;
-my $moduledir="/lib/modules/$uname_r/kernel/fs/lufs";
+my $lufs_o="lufs.".modext($uname_r);
+
+my $moduledir="/lib/modules/$uname_r$uname_smp/kernel/fs/lufs";
print STDERR "Destination module directory: $moduledir\n" if !$quiet;
-do { $kernel||=$_ if -d $_; } for ("/lib/modules/$uname_r/build");
-do { $kernel||=$_ if -d $_; } for ("/usr/src/kernel-headers-$uname_r");
-do { $kernel||=$_ if -d $_; } for ("/usr/src/linux-$uname_r");
-do { $kernel||=$_ if -d $_; } for ("/usr/src/linux-$uname_r_base");
-do { $kernel||=$_ if -d $_; } for ("/usr/src/linux");
+my @kernel_paths=(
+ "/lib/modules/$uname_r/build",
+ "/usr/src/kernel-headers-$uname_r",
+ "/usr/src/linux-$uname_r",
+ "/usr/src/linux-$uname_r_base",
+ "/usr/src/linux",
+ "/usr/src/kernel-source-$uname_r", # no .config?
+ );
+do { $kernel||=$_ if -d $_; } for (@kernel_paths);
if (!$kernel) {
- print STDERR "Failed to find kernel headers for $uname_r" if !$kernel && !$quiet;
+ print STDERR "Failed to find kernel headers for $uname_r\n" if !$kernel && !$quiet;
}
else {
# We need /usr/include/lufs/* for standard package compilation.
# There is no sense to make separate 'devel' package.
- for ("$vardir/lufs.o") {
+ for ("$vardir/$lufs_o") {
next if !$vardir;
# Create the 'lufs.o' in our /var/lib directory and only link it
# to prevent using obsolete modules after upgrading 'lufs' package.
# depmod(1) will take the larget symlink name - we must create directory for it.
if (build($kernel,$uname_r,$_)) {
do { cluck "Failed to symlink $_"; next; }
- if _system "rm -rf $moduledir; mkdir -p $moduledir; ln -s $_ $moduledir/lufs.o";
+ if _system "/bin/rm -rf $moduledir; /bin/mkdir -p $moduledir; /bin/ln -s $_ $moduledir/$lufs_o";
_pass 1;
}
}
}
local $_;
-for (<$modbindir/*-$uname_r/*.o>,<$modbindir/*-${uname_r_base}/*.o>,<$modbindir/*/*.o>) {
- next if _system "rmmod lufs 2>/dev/null; insmod -o lufs -p $_ 2>/dev/null";
- do { cluck "Failed to symlink $_"; next; } if _system "rm -rf $moduledir; mkdir -p $moduledir; ln -s $_ $moduledir/lufs.o";
- _pass 1;
+for (<$modbindir/*-$uname_r*/$lufs_o>,<$modbindir/*-${uname_r_base}*/$lufs_o>,<$modbindir/*/$lufs_o>) {
+ # Do not: /sbin/insmod -o lufs -p $_ 2>/dev/null
+ # as 2.6 insmod has no options at all.
+ next if _system "/sbin/rmmod lufs 2>/dev/null; /sbin/insmod $_ 2>/dev/null";
+ do { cluck "Failed to symlink $_"; next; }
+ if _system "/bin/rm -rf $moduledir; /bin/mkdir -p $moduledir; /bin/ln -s $_ $moduledir/$lufs_o";
+ # 0 as already insmod(8)ed.
+ _pass 0;
}
-confess "lufs module not loaded: $basedir not compilable and no module of $modbindir/*.o usable";
+confess "lufs module not loaded: Try running $basedir/prepmod to see more." if $quiet;
+confess "Failed to prepare $lufs_o module for your Linux kernel $uname_r.\n"
+ .($kernel ? "Detected Linux kernel sources \"$kernel\" do not appear to be valid.\n"
+ : "No Linux kernel sources for your running kernel were found.\n")
+ ."Please install kernel-source-x.y.z.i386.rpm or kernel-headers_x.y.z_i386.deb.\n"
+ ."The following directory paths were search (first existing directory used):\n"
+ .join("",map("\t\t$_\n",@kernel_paths));
-sub build
+sub build_gcc
{
my($kernel,$uname_r,$destmodule)=@_;
my $kdebug="";
do { $kdebug=$_ if !/^@/; } for ('@KDEBUG_FLAGS@');
- my $cmdline="gcc"
+ my $cmdline="/usr/bin/gcc"
.($quiet ? " 2>/dev/null" : "")
- ." -O2 -pipe -fomit-frame-pointer -fno-strict-aliasing -mpreferred-stack-boundary=2 -Wall"
+ ." -Wall -Wstrict-prototypes -Wno-trigraphs"
+ ." -O2 -fno-strict-aliasing -fno-common -fomit-frame-pointer -pipe -mpreferred-stack-boundary=2"
+ #." -march=i586"
." -D__KERNEL__ -DMODULE -DLINUX -DKBUILD_MODNAME=lufs"
." ".$kdebug
." ".$kernel_gcc_args
." -I$kernel/include"
- ." -I$kernel/include/asm-i386/mach-default"; # gcc should not care if this 2.5 dir does not exist
+ ." -I$kernel/include/asm-i386/mach-default"; # gcc should not care if this 2.6 dir does not exist
my $config=_readfile "$kernel/.config","optional";
my $autoconf=_readfile "$kernel/include/linux/autoconf.h","optional";
- $cmdline.=" -DMODVERSIONS -include $kernel/include/linux/modversions.h"
- if 0
- || $config=~/^CONFIG_MODVERSIONS=y\b/m
- || $autoconf=~/^#define CONFIG_MODVERSIONS\b/m
- || (!$config && !$autoconf); # assume modversions if not known
+ if (0
+ || $config=~/^CONFIG_MODVERSIONS=y\b/m
+ || $autoconf=~/^#define CONFIG_MODVERSIONS\b/m
+ || (!$config && !$autoconf)) { # assume modversions if not known
+ $cmdline.=" -DMODVERSIONS";
+ $cmdline.=" -include $kernel/include/linux/version.h"
+ if -f "$kernel/include/linux/version.h";
+ $cmdline.=" -include $kernel/include/linux/modversions.h";
+ }
my @objects=map({ my $o=$_; $o=~s/[.]c$/.o/; $o; } @sources);
- return !_system "set -e; mkdir -p `dirname $destmodule`; rm -f $destmodule;"
+ return !_system "set -e; /bin/mkdir -p `dirname $destmodule`; /bin/rm -f $destmodule;"
.(!$vardir ? "" : " cd $vardir;")
." $cmdline -c ".join(" ",map({ srcdir($uname_r)."/".$_; } @sources)).";"
- ." ld -r -o $destmodule ".join(" ",@objects).";"
- ." rm -f ".join(" ",@objects);
+ ." /usr/bin/ld -r -o $destmodule ".join(" ",@objects).";"
+ ." /bin/rm -f ".join(" ",@objects);
+}
+
+
+sub build_make
+{
+my($kernel,$uname_r,$destmodule,%args)=@_;
+
+ print STDERR "Using kernel sources: $kernel\n" if !$quiet;
+ # 'Rules.make' not present in 2.6+ kernels
+ do { confess "Kernel sources $kernel do not contain '$_' file" if ! -f $_; } for ($kernel."/arch/i386/Makefile");
+
+ my $kdebug="";
+ do { $kdebug=$_ if !/^@/; } for ('@KDEBUG_FLAGS@');
+ my $predir=srcdir $uname_r;
+ $predir=$ENV{"PWD"}."/$predir" if $predir!~m#^/#;
+ # Workaround a bug in at least Red Hat 2.4.18-18.8.0
+ if (-f "$kernel/include/linux/version.h") {
+ for ("$kernel/include/linux/modversions.h") {
+ _system "cp -p $_ $_-orig" if ! -f "$_-orig";
+ _writefile $_,"#include <linux/version.h>\t/* lufs */\n"._readfile $_;
+ }
+ }
+ my $cmdline="make -C $kernel"
+ ." SUBDIRS=\"$predir\" modules"
+ ." EXTRA_CFLAGS=\"$kernel_gcc_args\""
+ .($quiet ? ' &>/dev/null' : '');
+ my @objects=map({ my $o=$_; $o=~s/[.]c$/.o/; $o; } @sources,"lufs.mod.c","lufs.c");
+ $cmdline="set -e; /bin/mkdir -p `dirname $destmodule`; /bin/rm -f $destmodule;"
+ ." $cmdline;"
+ ." /bin/mv -f $predir/lufs.".modext($uname_r)." $destmodule;"
+ ." /bin/rm -f ".join(" ",map(("$predir/$_","$predir/.$_.flags","$predir/.$_.cmd"),@objects),"$predir/lufs.mod.c","$predir/.lufs.ko.cmd").";";
+ my $r=!_system $cmdline;
+ return $r if $r;
+ # Rebuild existing '$kernel/tmp_include_depends' or '$kernel/.depend'
+ # as it may contain non-existing pathnames:
+ _system "make -C $kernel dep"
+ .($quiet ? ' &>/dev/null' : '');
+ return !_system $cmdline;
+}
+
+
+sub build
+{
+my($kernel,$uname_r,$destmodule,%args)=@_;
+
+ # Debian uname(1) does not support '-p'.
+ my $arch=_readfile "uname -p 2>/dev/null || true|"
+ || _readfile "uname -m|";
+ chomp $arch;
+ my $single_config=-f "$kernel/.config";
+ if (!$single_config) {
+ my $spec_config="$kernel/configs/kernel-$uname_r_base-$arch".($uname_smp ? "-smp" : "").".config";
+ _system "ln -s $spec_config $kernel/.config"
+ if -f $spec_config;
+ }
+ my $r;
+ # 'Rules.make' not present in 2.6+ kernels
+ if (-f $kernel."/arch/i386/Makefile" && -f "$kernel/.config")
+ { $r=build_make $kernel,$uname_r,$destmodule,%args; }
+ else
+ { $r=build_gcc $kernel,$uname_r,$destmodule,%args; }
+ _system "rm -f $kernel/.config"
+ if !$single_config;
+ return $r;
}
sub prebuild_kernel
{
-my($dir,$vendor,$uname_r)=@_;
+my($dir,$vendor,$uname_r,%args)=@_;
confess "Unrecognized vendor for dir: $dir" if !$vendor;
confess "Unrecognized uname_r for dir: $dir" if !$uname_r;
- confess "Failed to build $dir" if !build $dir,$uname_r,$modbindir."/lufs-$vendor-$uname_r.o";
+ confess "Failed to build $dir" if !build $dir,$uname_r,$modbindir."/lufs-$vendor-$uname_r.".modext($uname_r),%args;
}
my $uname_r;
$uname_r||=($rpm=~m#/kernel-source-([^-]+-[^-]+)[.][^.]+[.]rpm$#)[0];
my $uname_r_base=($uname_r=~/^([^-]+)/)[0];
- _system "rm -rf $tmp_dir; mkdir $tmp_dir; set -e;"
- # Here we will extract even some false 'include's but we filter dirs just for speed/space.
- ." rpm2cpio '$rpm' | (cd $tmp_dir; cpio -id --quiet ./usr/src/linux*/{.config,include/*})"
- and confess "Extraction of: $rpm";
my $dir;
- do { $dir||=$_ if -d $_; } for ($tmp_dir."/usr/src/linux-$uname_r");
- do { $dir||=$_ if -d $_; } for ($tmp_dir."/usr/src/linux-$uname_r_base"); # older RedHat kernels
+ do { $dir||=$_ if -d $_; } for ("/usr/src/linux-$uname_r");
+ do { $dir||=$_ if -d $_; } for ("/usr/src/linux-$uname_r_base"); # older RedHat kernels
+ confess "Kernel sources already found in $dir" if $dir;
+ # '--nodeps' to prevent: error: Failed dependencies: perl-base is needed by *mdk
+ _system "rpm -i --nodeps '$rpm'" and confess "RPM installation of $rpm";
+ do { $dir||=$_ if -d $_; } for ("/usr/src/linux-$uname_r");
+ do { $dir||=$_ if -d $_; } for ("/usr/src/linux-$uname_r_base"); # older RedHat kernels
$dir or confess "Kernel source tree not found in: $rpm";
- prebuild_kernel $dir,$vendor,$uname_r;
- _system "rm -rf $tmp_dir" and confess "Deletion of: $tmp_dir";
+ _system "cp -p $dir/include/linux/rhconfig.h $dir/include/linux/rhconfig.h-orig"
+ if -f "$dir/include/linux/rhconfig.h";
+ for my $smp ("","smp") {
+ my @archs=qw(i386 i586 i686 athlon);
+ for my $arch (@archs) {
+ my %boot=(
+ "__BOOT_KERNEL_SMP"=>$smp,
+ map({ ("__MODULE_KERNEL_$_"=>($arch eq $_)); } @archs),
+ "__BOOT_KERNEL_BOOT"=>0,
+ "__BOOT_KERNEL_BOOTSMP"=>0,
+ "__BOOT_KERNEL_ENTERPRISE"=>0,
+ "__BOOT_KERNEL_BIGMEM"=>0,
+ "__BOOT_KERNEL_DEBUG"=>0,
+ );
+ if (-f "$dir/include/linux/rhconfig.h") {
+ my $defines="";
+ for (keys(%boot)) {
+ $defines.="+#define $_ ".($boot{$_} ? 1 : 0)."\n";
+ }
+ _system "cp -p -f $dir/include/linux/rhconfig.h-orig $dir/include/linux/rhconfig.h";
+ _writefile "| patch $dir/include/linux/rhconfig.h",<<"RHCONFIG_H_NOBOOT_EOF";
+--- ./include/linux/rhconfig.h-orig Thu Aug 21 14:50:16 2003
++++ ./include/linux/rhconfig.h Thu Aug 21 14:59:22 2003
+\@\@ -10,7 +10,@{[ 7+keys(%boot) ]} \@\@
+ * /boot/kernel.h - initscripts should create it for us
+ */
+
+-#include "/boot/kernel.h"
++/* lufs: #include "/boot/kernel.h" */
+$defines
+ #if defined(__BOOT_KERNEL_SMP) && (__BOOT_KERNEL_SMP == 1)
+ #define __module__smp
+RHCONFIG_H_NOBOOT_EOF
+ }
+ # Mandrake packages have no configs/ and they have just that '.config' file.
+ my $single_config=-f "$dir/.config";
+ if (!$single_config) {
+ my $spec_config="$dir/configs/kernel-$uname_r_base-$arch".($smp ? "-smp" : "").".config";
+ next if ! -f $spec_config;
+ _system "ln -s $spec_config $dir/.config";
+ }
+ prebuild_kernel $dir,$vendor,$uname_r.$smp.".".$arch;
+ _system "rm -f $dir/.config"
+ if !$single_config;
+ }
+ }
+ _system "rpm -e kernel-source-$uname_r" and confess "Remove of kernel-source-$uname_r";
+ _system "rm -rf $dir";
}
sub prebuild_dir
my $vendor;
chomp (my $debian=_readfile "/etc/debian_version","optional");
+ $debian=~tr#/#_#;
$vendor="Debian".$debian if $debian && $dir=~m#^/usr/src/#;
my $uname_r;
$uname_r||=($dir=~m#/kernel-headers-([^/]+)/*$#)[0];