#!/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-dnie")
	{
		$first = 1;
	}
$i++;
}
$i=0;
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-dnie/)
	{
		$ceres_found = 1;
		$i = $i+2;
		$cont = "";
	}

	print BUFFER $cont;
	$i++;
}
close(SESSION);
close(BUFFER);
if($first==1)
{
print("Updated default.session for not use opensc-dnie\n");
system("mv","/usr/share/gnome/defaultmodified.session","/usr/share/gnome/default.session");
}
