#!/usr/bin/perl
#CopyRight Beijing IRTOUCHSYSTEMS Co.,Ltd (c) 2008
printf "\n";
printf "Beijing IRTOUCHSYSTEMS Co.,Ltd\n\n";
printf "Start Uninstall Touchscreen Driver for Linux\n\n";


my $localfile;
my $count = 0;
use Tie::File;
use File::Copy;
my $count1 = 0;
my $localpath;
my $calibfile;
my $Pirtouch;

if (-d '/usr/local/irtouch')
{
	$localpath = "/usr/local/irtouch";
	system("rm -r -f /usr/local/irtouch");
	printf "Delete $localpath directory success!\n";
}

if (-e '/etc/irtouch')
{
	$calibfile = "/etc/irtouch";
	system("rm -f /etc/irtouch");
	printf "Delete $calibfile file success!\n";	
}

if (-e '/tmp/irtouch')
{
	$Pirtouch = "/tmp/irtouch";
	system("rm -f /tmp/irtouch");
	printf "Delete $Pirtouch file success!\n";
}


$localfile1=`find /etc -name rc.local | head -n 1`;
$localfile2=`find /etc -name boot.local | head -n 1`;

if($localfile1)
{
  open LOCALFILE,"$localfile1";
  @check=<LOCALFILE>;
  close(LOCALFILE);

  foreach(@check)
  {
    if(/\usr\/local\/irtouch/i)
    {
        splice(@check,$count,2);
    }
  $count+=1;
  }
 open LOCALFILE,">$localfile1"; 
 print LOCALFILE @check;
}
elsif ($localfile2)
{
  open LOCALFILE,"$localfile2";
  @check=<LOCALFILE>;
  close(LOCALFILE);
  
  foreach(@check)
  {
    if(/\/usr\/local\/irtouch/i)
    {
        splice(@check,$count,2);
    }
$count+=1;
}
 open LOCALFILE,">$localfile2"; 
 print LOCALFILE @check;
 print LOCALFILE"\n";
}
else
{
	printf "Error: Modify rc.local file failure!";
}


$logfile=`find /var/log/ -name Xorg.0.log` || `find /var/log -name XFree86.0.log` or die "Default X-log File not found, check if a stable version of X-windows is present";

open LOGFILE,"$logfile";

my $modulepath;

@exactline=<LOGFILE>;

foreach(@exactline)
{
  if(/ModulePath set to/i)
  {
     my $line=$_;
     @exactpath=split(/"/,$line);
     $modulepath=$exactpath[1];
  }
}

system("rm -r -f $modulepath/input/irtouch_drv.so");
printf "Delete irtouch_drv.so file success!\n";


open LOGFILE,"$logfile";
my $systemconfigfile;

@exactline=<LOGFILE>;

foreach(@exactline)
{
  if(/Using config file/i)
  {
     my $line=$_;
     @Configfile=split(/"/,$line);
     $systemconfigfile=$Configfile[1];
  }
}

tie @array,'Tie::File',$systemconfigfile;
$newline="\tInputDevice    \"irtouch\"   \"SendCoreEvents\"";

foreach(@array)
{

   if(/\s+InputDevice\s+\"irtouch\"\s+\"SendCoreEvents\"/i)
   {
       
       splice @array,$count1,1;

   }
  if(/\s+Identifier\s+\"irtouch\"/i)
  {
      last;
  }

   $count1+=1;
}

$count1--;
splice @array,$count1,11;

printf "Touchscreen Driver Uninstall success!\n";
printf "\n";
printf "Please reboot the computer!\n";
printf "\n";
