From a3f2f2b6d33b65266b31e29571fec84f3b61b689 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Tue, 17 Jun 2008 11:48:22 +0200 Subject: Hide certain fstab mounts Resolves #1359836 --- UCore.pas | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'UCore.pas') diff --git a/UCore.pas b/UCore.pas index 4001007..5e102a0 100644 --- a/UCore.pas +++ b/UCore.pas @@ -2380,8 +2380,11 @@ begin // Get mount name mntent := getmntent(fd); while mntent <> nil do begin + DebugMsg(['FillDefaultFstabMounterItems: found "', mntent^.mnt_dir, '" --> "', mntent^.mnt_fsname, '", fstype ', mntent^.mnt_type]); if (mntent^.mnt_dir <> '/') and (mntent^.mnt_dir <> '/boot') and (Pos('/proc', mntent^.mnt_dir) <> 1) and - (Pos('/dev', mntent^.mnt_dir) <> 1) and (mntent^.mnt_dir <> 'swap') and (mntent^.mnt_dir <> '') then + (Pos('/dev', mntent^.mnt_dir) <> 1) and (Pos('/sys', mntent^.mnt_dir) <> 1) and (mntent^.mnt_dir <> 'swap') and + (mntent^.mnt_type <> 'swap') and (mntent^.mnt_type <> 'rpc_pipefs') and (mntent^.mnt_type <> 'none') and + (mntent^.mnt_dir <> 'none') and (mntent^.mnt_dir <> '') then begin MounterItem := TMounterItem.Create; MounterItem.DisplayText := ''; -- cgit v1.2.3