#!/usr/bin/perl 

$sessionfile="/usr/share/gnome/default.session";
$buffersecundari="/usr/share/gnome/defaultmodified.session";
open(SESSION, $sessionfile);
open(BUFFER, ">".$buffersecundari);
$ceres_found = 0;
$i=0;
@filecontent=<SESSION>;
$first=0;
while($i<=$#filecontent)
{
	if($filecontent[$i]=~"opensc-ceres")
	{
		$first=1;
	}
	$i++;
}
$i=0;
if ($first==1)
{
	while($i<=$#filecontent)
	{
		$cont=$filecontent[$i];
		if($cont=~/num_clients=/)
		{
			$valor = substr($cont,index($cont,"num_client")+12,length($cont)-1);
		 	$len = length($cont);	
			$valor--;
		  	$cont = "num_clients=$valor\n";
		}
		if ($ceres_found == 1)
		{
			$buffer_fila = $cont;
			$valor = substr($buffer_fila,0,1);
			$cadena = substr($buffer_fila,1,length($cont));
			$valor--;
			print BUFFER "$valor$cadena";
			$cont = "";
		}
		if ($filecontent[$i+2]=~/opensc-ceres/)
		{
			$ceres_found = 1;
			$i = $i+2;
			$cont = "";
		}
	
		print BUFFER $cont;
		$i++;
	}
}
close(SESSION);
close(BUFFER);
print("Updated default.session for not use opensc-ceres\n");
if ($first == 1)
{
system("mv","/usr/share/gnome/defaultmodified.session","/usr/share/gnome/default.session");
}
