home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / boot / i386 / root / usr / share / sax / profile / wacom.pl < prev    next >
Perl Script  |  2006-11-29  |  750b  |  32 lines
  1. #!/usr/bin/perl
  2.  
  3. use lib '/usr/share/sax/profile';
  4.  
  5. use strict;
  6. use Profile;
  7.  
  8. #====================================
  9. # Init profile script
  10. #------------------------------------
  11. my $profile = ProfileInitScript();
  12.  
  13. #====================================
  14. # Get RealDevice from sysp
  15. #------------------------------------
  16. my $card   = ($ARGV[0] - 1) / 2;
  17. my $device = ProfileGetRealMouseDevice ($card);
  18.  
  19. #====================================
  20. # Adapt profile device
  21. #------------------------------------
  22. local $/;
  23. open (FD,"<",$profile) ||
  24.     die "wacom: Can't open $profile: $!";
  25. my $profileData = <FD>;
  26. $profileData =~ s/\/dev\/input\/mice/$device/;
  27. close FD;
  28. open (FD,">",$profile) ||
  29.     die "wacom: Can't open $profile: $!";
  30. print FD $profileData;
  31. close FD;
  32.