+
+ if ($line =~ /ifuname\(\!"(\w+)"\)/)
+ {
+ my $uname = $1;
+ if ($uname eq $^O)
+ {
+ $line = "";
+ return "";
+ }
+
+ $line =~ s/ifuname\(\!"(.+?)"\)//;
+ }
+
+ if ($line =~ /ifuname\("(\w+)"\)/)
+ {
+ my $uname = $1;
+ if ($uname ne $^O)
+ {
+ $line = "";
+ return "";
+ }
+
+ $line =~ s/ifuname\("(.+?)"\)//;
+ }
+
+ if ($line =~ /if\("(\w+)"\)/)
+ {
+ if (defined $main::config{$1})
+ {
+ if (($main::config{$1} !~ /y/i) and ($main::config{$1} ne "1"))
+ {
+ $line = "";
+ return "";
+ }
+ }
+
+ $line =~ s/if\("(.+?)"\)//;
+ }