hotdog-handleDriveMenuForDevice:.pl

#!/usr/bin/perl

$device = shift @ARGV;
if (not $device) {
    die('specify device');
}

@lines = `hotdog-listBlockDevices.pl`;
chomp @lines;
@lines = grep { m/\bfstype:[a-zA-Z0-9]+/ } @lines;

foreach $line (@lines) {
    if ($line =~ m/\bdevice:$device\b/) {
        if ($line =~ m/\bmountpoint:([^\s]+)/) {
            $mountpoint = $1;

            $quotedDevice = $device;
            $quotedDevice =~ s/\\/\\\\/g;
            $quotedDevice =~ s/"/\\"/g;
            $quotedMountpoint = $mountpoint;
            $quotedMountpoint =~ s/\\/\\\\/g;
            $quotedMountpoint =~ s/"/\\"/g;
            $text = "The device '$quotedDevice' is mounted at '$quotedMountpoint'.";
            $cmd = sprintf('hotdog radio OK Cancel %s %s %s %s',
                qq{"$text"},
                'nothing 1 "Do Nothing"',
                'view 0 View',
                'unmount 0 Unmount');
            $result = `$cmd`;
            chomp $result;
            if ($result eq 'view') {
                chdir $mountpoint;
                system('hotdog', 'nav', '.');
            } elsif ($result eq 'unmount') {
                system('hotdog-unmountDrive.pl', $mountpoint);
            }
            exit 0;
        } else {
            system('hotdog-mountDrive.pl', $device);
            exit 0;
        }
    }
}