[ILUG] More on Opposite of CAT >>

[Mark Finlay]

Home grown solutions are the best, here's what I did:

#!/usr/bin/perl

#---------------------------------------------------------------------------------------
# Find out which numerical id's the 2 items have been given by gnome
#---------------------------------------------------------------------------------------
$i = 0;
open(SVERSION, $ENV{'HOME'} . "/.gnome/session-manual") or die "Cannot
open ~/.sversionrc";

while ($line = <SVERSION>)
{

if ($line =~ /^(.+?),.+?ooqstart.+?$/)
    {
        #print "ooqstart found in item " . $1 . "\n"; #for debugging
	$i = $i + 1;
	$remove[$i] = $1;

   }

}
close (SVERSION);

#---------------------------------------------------------------------------------------
# remove matching patterns of correct numerical id
#---------------------------------------------------------------------------------------

open(SVERSION, $ENV{'HOME'} . "/.gnome/session-manual") or die "Cannot
open ~/.sversionrc";

while ($line = <SVERSION>)
{
    if ($line !~ /^$remove[1].+?$/ && $line !~ /^$remove[2].+?$/)
    {
	print $line;
    }
}
close (SVERSION);


________________

It's called with the following

#!/bin/bash
/usr/share/evolvedoo/quninstall.pl > ~/.gnome/session-temp
cp -f ~/.gnome/session-temp ~/.gnome/session-manual
rm -f ~/.gnome/session-temp


:) sucess - it's bullet-proof

-- 
Mark Finlay
"sisob's linux eXPerience"
http://sisob.dyndns.org
Registered Linux User: #243436