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 / NVidia.pl < prev    next >
Perl Script  |  2006-11-29  |  479b  |  22 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. # Check if profile is valid
  15. #------------------------------------
  16. if (ProfileIsXOrgVendor ("nvidia")) {
  17.     open (FD,">",$profile) ||
  18.         die "NVidia: Can't open $profile: $!";
  19.     print FD "Device -> [X] -> Driver = nv\n";
  20.     close FD;
  21. }
  22.