summaryrefslogtreecommitdiffstats
path: root/draksnapshot-applet
diff options
context:
space:
mode:
Diffstat (limited to 'draksnapshot-applet')
-rwxr-xr-xdraksnapshot-applet18
1 files changed, 18 insertions, 0 deletions
diff --git a/draksnapshot-applet b/draksnapshot-applet
index 6e6265b..a44a1ba 100755
--- a/draksnapshot-applet
+++ b/draksnapshot-applet
@@ -170,6 +170,24 @@ sub configure() {
sub firstCheck() {
my @discs = grep { $_->{usb_bus} && detect_devices::may_be_a_hd($_) } detect_devices::getSCSI();
+
+ # find root fs:
+ my $root;
+ foreach (cat_("/etc/mtab"), cat_("/proc/mounts")) {
+ my ($dev, $mntpoint) = split;
+ if ($mntpoint eq '/') {
+ $root = $dev;
+ last;
+ }
+ }
+
+ # we just want the basename of the root disc:
+ $root =~ s!.*/!!;
+ $root =~ s!\d*$!!;
+
+ # exclude root fs from found USB discs:
+ @discs = grep { $_ ne $root } map { $_->{device} } @discs;
+
go2State(@discs ? 'disk_found' : 'okay');
}