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 / NoDDC.pl < prev    next >
Encoding:
Perl Script  |  2006-11-29  |  1.0 KB  |  45 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 current bool options
  15. #------------------------------------
  16. my $import = new SaX::SaXImport ( $SaX::SAX_CARD );
  17. $import->setSource ( $SaX::SAX_AUTO_PROBE );
  18. $import->doImport();
  19. my $saxCard = new SaX::SaXManipulateCard ( $import );
  20. my %options = %{$saxCard -> getOptions()};
  21.  
  22. my @optlist = ();
  23. foreach my $opt (keys %options) {
  24.     if ($opt eq "NoDDC") {
  25.         next;
  26.     }
  27.     if ($options{$opt} eq "") {
  28.         push @optlist,$opt;
  29.     }
  30. }
  31.  
  32. #====================================
  33. # add NoDDC option
  34. #------------------------------------
  35. push @optlist,"NoDDC";
  36. my $options = join (",",@optlist);
  37.  
  38. #====================================
  39. # Do the profile adaptions...
  40. #------------------------------------
  41. open (FD,">",$profile) ||
  42.     die "NoDDC: Can't open $profile: $!";
  43. print FD "Device -> [X] -> Option = $options\n";
  44. close FD;
  45.