From Openbox

Jump to: navigation, search

Originally appeared on repository.

Retrieved from the depths of the Wayback Machine.


#Written by Matthew Fitzgibbons, 03/25/05
#Bugfixes 05/01/05

use strict;

print "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
print "<openbox_pipe_menu>\n";

if (@ARGV[0] ne "") {
	print "\t<item label=\"Mount\">\n";
	print "\t\t<action name=\"Execute\"><execute>mount @ARGV[0]</execute></action>\n";
	print "\t</item>\n";
	print "\t<item label=\"Unmount\">\n";
	print "\t\t<action name=\"Execute\"><execute>umount @ARGV[0]</execute></action>\n";
	print "\t</item>\n";
	print "</openbox_pipe_menu>\n";

open FSTAB, "/etc/fstab" or die $!;

my @fstab;
my $mount;
my $label;
my $usermountable = 0;
my $i = 0;
my $j = 0;
my $name = 0;
while (<FSTAB>) {
  @fstab[$i] = $_;

close FSTAB;

foreach $mount (@fstab) {
	#ignore empty lines
	next if (substr($mount,0,1) eq "\n");
	#remove leading whitespace
	while (substr($mount,0,1) eq " " || substr($mount,0,1) eq "\t") {
		$mount = substr($mount,1,length($mount) - 1);
	#ignore comment lines
	next if (substr($mount,0,1) eq "\#");
	#find filesystems that are user mountable
	$usermountable = 1 if ($mount =~ "user");

	if ($usermountable) {
		#find position of mount point for label
		#NOTE: the split function won't compile on my machine :(
		$i = 0;
		while ((substr($mount,$i,1) ne " ") && (substr($mount,$i,1) ne "\t")) {++$i;}
		while (substr($mount,$i,1) eq " " || substr($mount,$i,1) eq "\t") {++$i;}
		$j = $i;
		while ((substr($mount,$j,1) ne " ") && (substr($mount,$j,1) ne "\t")) {++$j;}
		$label = substr($mount,$i + 1,$j - $i - 1);
		print "\t<menu id=\"mnt$name\" label=\"$label\" execute=\"perl $0 $label\" />\n";
		$usermountable = 0;

print "</openbox_pipe_menu>\n";

# an openbox pipe menu that parses /etc/fstab for user mountable filesystems and allows the user to mount them
# Copyright (C) 2005 Matthew Fitzgibbons

# This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.

# This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

# You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

# you may email the author at or visit my website at
Personal tools