Skip to content
Snippets Groups Projects
Select Git revision
  • e019d8bd67c6f2ca35573a8a37c38b26e0346442
  • experimental default protected
  • v2023.2.5-ffs
  • nrb/ex400-remove-wps
  • nrb/airmax-test
  • v2023.2.4-ffs
  • nrb/ar9344-reset-sequence
  • autinerd/experimental-openwrt-24.10
  • v2023.2.3-ffs
  • v2023.2.2-ffs
  • v2023.2-ffs
  • v2023.1-ffs
  • v2022.1.4-ffs
  • feature/addMikrotikwAP
  • v2022.1.3-ffs
  • v2021.1.2-ffs
  • v2022.1.1-ffs
  • master protected
  • v2021.1.1-ffs
  • nrb/gluon-master-cpe510
  • v2021.1-ffs
  • experimental-2025-07-01
  • experimental-2025-07-01-base
  • experimental-2025-06-25
  • experimental-2025-06-25-base
  • experimental-2025-06-24
  • experimental-2025-06-24-base
  • experimental-2025-06-22
  • experimental-2025-06-22-base
  • v2023.2.5-ffs0.1
  • experimental-2025-06-08
  • experimental-2025-06-08-base
  • experimental-2025-06-06
  • experimental-2025-06-06-base
  • experimental-2025-05-27
  • experimental-2025-05-27-base
  • experimental-2025-05-18
  • experimental-2025-05-18-base
  • experimental-2025-05-15
  • experimental-2025-05-15-base
  • experimental-2025-05-13
41 results

sign.sh

Blame
  • generate.pl 402 B
    use warnings;
    
    
    my %config;
    
    sub add_config {
    	my ($prefix, $c) = @_;
    
    	foreach my $key (keys $c) {
    		my $val = $c->{$key};
    
    		if (ref($val) eq 'HASH') {
    			add_config($key . '.', $val);
    		}
    		unless (ref($val)) {
    			$config{'@' . $prefix . $key . '@'} = $val;
    		}
    	}
    }
    
    add_config('', $CONFIG);
    
    
    my $regex = join '|', map {quotemeta} keys %config;
    
    
    for (<>) {
    	s/($regex)/${config{$1}}/g;
    	print;
    }