#!/usr/bin/perl

# This script enable or disable mime-types entries in mozpluggerrc
# Written by Pascal Rigaux <pixel@mandriva.com>
#

use MDK::Common;

my $enable = $0 =~ /enable/;
my ($file, @mime_types) = @ARGV;

substInFile {
    if (/^\s*$/) {
	$one_is_uncommented = $define_if = 0; # reset
    } elsif ($define_if || /^\s*(define|if)\(/) {
	$define_if = 1;
    } elsif (my ($commented, $mime_type) = /^(#?)(\S+?):/) {
	if (member($mime_type, @mime_types)) {
	    $enable ? s/^#// : s/^#?/#/; # ensure it is uncommented or commented
	}
	$one_is_uncommented ||= /^[^#]/;
    } elsif (/^#?\s+\S/) {
	$one_is_uncommented ? s/^#// : s/^#?/#/;
    }
} $file

