OpenWrt – Blame information for rev 2
?pathlinks?
Rev | Author | Line No. | Line |
---|---|---|---|
1 | office | 1 | #!/usr/bin/env perl |
2 | |||
3 | while (<>) { |
||
4 | /^(# )?CONFIG_([^=]+)(=(.+)| is not set)/ and do { |
||
5 | my $default = $4; |
||
6 | $1 and $default = "n"; |
||
7 | my $name = $2; |
||
8 | my $type = "bool"; |
||
9 | $default =~ /^\"/ and $type = "string"; |
||
10 | $default =~ /^\d/ and $type = "int"; |
||
11 | print "config BUSYBOX_DEFAULT_$name\n\t$type\n\tdefault $default\n"; |
||
12 | }; |
||
13 | } |