Check for multiple device mounts overridable by '-o force'.

[captive.git] / src / client / lufs / mount.captive.in

diff --git a/src/client/lufs/mount.captive.in b/src/client/lufs/mount.captive.in
index dd96050..1c4d1bc 100755 (executable)
--- a/src/client/lufs/mount.captive.in
+++ b/src/client/lufs/mount.captive.in
@@ -38,10 +38,13 @@ $captive_sandbox_server_bin=~s#\$\Q{prefix}\E#'@prefix@';#ge;
 $captive_sandbox_server_bin="/usr/sbin/captive-sandbox-server" if $captive_sandbox_server_bin=~/^@/;
 
 
-my $fsname=($0=~m#([^/]*)$#)[0] or die "Cannot detetect my basename from: $0";
+my $ME=($0=~m#([^/]*)$#)[0] or die "Cannot detetect my basename from: $0";
+my $fsname=$ME;
 $fsname=~s/^mount[.]captive-// or die "Cannot detect captive filesystem module from my name: $fsname";
 my $image=shift @ARGV or die "Missing argv[1]: device or image pathname";
 -r $image or die "Image pathname not readable: $image";
+warn "warning: '-o loop' is not neccessary for Captive filesystem mounts"
+               if $image=~m#^/dev/loop#;
 my $dir=shift @ARGV or die "Missing argv[2]: mount point directory";
 -d $dir or die "Mount point directory not a valid directory: $dir";
 shift @ARGV if my $nomtab =$ARGV[0] && $ARGV[0] eq "-n";
@@ -50,34 +53,78 @@ my $oo="";
 do { shift @ARGV; $oo=shift @ARGV; } if $ARGV[0] && $ARGV[0] eq "-o";
 die "Excessive arguments: @ARGV" if @ARGV;
 
+sub die_install
+{
+       die
+"You should run captive-install-acquire(1) of 'captive-install' package,
+otherwise you can also acquire this file from URL:
+http://www.microsoft.com/WindowsXP/pro/downloads/servicepacks/sp1/checkedbuild.asp
+";
+}
+
 my $filesystem=$vardir."/".$fsname.".sys";
--r $filesystem or die "W32 filesystem .sys module not readable: $filesystem";
+if (!-r $filesystem) {
+       warn "W32 filesystem .sys module not found: $filesystem";
+       die_install();
+       }
 my $ntoskrnl=$vardir."/ntoskrnl.exe";
--r $ntoskrnl or die "W32 ntoskrnl.exe not readable: $ntoskrnl";
-
+if (!-r $ntoskrnl) {
+       warn "W32 ntoskrnl.exe not found: $ntoskrnl";
+       die_install();
+       }
 
 # Shameless advertisement:
 if ($fsname eq "ntfs") {
        for my $fh (*STDERR,*STDOUT) {
                if (-t $fh) {
-                       print $fh "Captive NTFS activated. Updates: http://www.jankratochvil.net/project/captive/\n";
+                       print $fh 'Captive NTFS v@VERSION@.  Check new version: http://www.jankratochvil.net/'."\n";
                        last;
                        }
                }
        }
 
 
-# Double-dashes are generally optional here.
+# Keep @opt_captive ordering
+# to let the options be overridable by user (such as 'ro').
+my @opt_captive=();
+my @opt_lufs=();
+my $opt_force;
+for (split /,/,$oo) {
+       $_="--$_" if $_ eq "ro" || $_ eq "rw";
+       $opt_force=1 if $_ eq "force";
+       push @opt_captive,$_ if  /^--/;
+       push @opt_lufs,$_    if !/^--/;
+       }
+
+if (!$opt_force) {
+       local *MTAB;
+       if (!open MTAB,"/etc/mtab") {
+               warn "Cannot open /etc/mtab: $!";
+               }
+       else {
+               local $/=undef();
+               my $mtab=<MTAB>;
+               close MTAB;
+               die ""
+                                               ."$ME: $image already mounted\n"
+                                               ."$ME: according to mtab, $image is mounted on $1\n"
+                                               ."$ME: Use '-o force' to mount the image notwithstanding.\n"
+                               if $mtab=~/^\Q$image\E\s+(\S+)/m;
+               }
+       }
+
 $oo=""
-               .($fsname eq "cdfs" ? "--cdrom,--ro," : "--disk,--rw,")
-               ."--load-module=$ntoskrnl,--filesystem=$filesystem,"
-               ."--sandbox-server=$captive_sandbox_server_bin,"
-               ."--bug-pathname=$vardir/bug-%FT%T.captivebug.xml.gz,"
-               ."--syslog,"
                ."mntent.mnt_fsname=$image,mntent.mnt_type=captive-$fsname,"    # Double-dashes forbidden.
                ."dir_cache_entries=0,"
                ."image=$image,"
-               .$oo;
+               .join(",",@opt_lufs).","
+               ."captive_options="
+                               .($fsname eq "cdfs" ? "--cdrom;--ro;" : "--disk;--rw;")
+                               ."--load-module=$ntoskrnl;--filesystem=$filesystem;"
+                               ."--sandbox-server=$captive_sandbox_server_bin;"
+                               ."--bug-pathname=$vardir/bug-%FT%T.captivebug.xml.gz;"
+                               ."--syslog;"
+                               .join(";",@opt_captive);
 
 warn "$0: '-n' not supported - ignored" if $nomtab;