OpenWrt – Rev 1

?pathlinks?

Blame – Last modification – View Log – Download

#!/usr/bin/env perl

while (<>) {
        /^(# )?CONFIG_([^=]+)(=(.+)| is not set)/ and do {
                my $default = $4;
                $1 and $default = "n";
                my $name = $2;
                my $type = "bool";
                $default =~ /^\"/ and $type = "string";
                $default =~ /^\d/ and $type = "int";
                print "config BUSYBOX_DEFAULT_$name\n\t$type\n\tdefault $default\n";
        };
}