From: Mark Finlay (sisob at domain eircom.net)
Date: Mon 10 Jun 2002 - 23:11:57 IST
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
This archive was generated by hypermail 2.1.6 : Thu 06 Feb 2003 - 13:17:11 GMT