Lines Matching full:foreach
382 foreach my $key (%config) # output as web page } } } $config{"$line"}=1; { else } $config{"$1"}=$2; { if ($line =~ /(.*)\=(.*)/) next if( $line =~ /^\#/ ); { if (defined ($line)) { foreach my $line (@$config_file) my %config; # pass into data structure $config_file = &read_file_lines( "/etc/dnsmasq.conf" ); # read config file ## Insert Output code here # uses the index_title entry from ./lang/en or appropriate "Written by Neil Fisher<BR><A HREF=mailto:neil\@magnecor.com.au>Author</A><BR><A HREF=http://www.authorpage.invalid>Home://page</A>"); &header($text{'index_title'}, "", "intro", 1, 1, undef, ## sanity checks ## put in ACL checks here if needed %access=&get_module_acl; &init_config("MODULENAME"); $|=1; do '../web-lib.pl'; # This module inherited from the Webmin Module Template 0.79.1 by tn # # GNU General Public License for more details. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # but WITHOUT ANY WARRANTY; without even the implied warranty of # This program is distributed in the hope that it will be useful, # # (at your option) any later version. # the Free Software Foundation; either version 2 of the License, or # it under the terms of the GNU General Public License as published by # This program is free software; you can redistribute it and/or modify # # Copyright (C) 2006 by Neil Fisher # DNSMasq Webmin Module # #!/usr/bin/perl dnsmasq/srv_edit.cgi 0000755 0000000 0000000 00000004503 10512323643 013531 0 ustar root root #!/usr/bin/perl
529 foreach my $line (@$$config_file)
1087 foreach my $server ( @{$config{servers}} )
1194 foreach my $iface ( @{$config{interface}} )
1209 foreach my $iface ( @{$config{ex_interface}} )
1224 foreach my $iface ( @{$config{listen_on}} )
1408 foreach my $frcd ( @{$config{forced}} )
1429 foreach my $frcd ( @{$config{alias}} )
1452 foreach my $frcd ( @{$config{bogus}} )
1555 foreach my $range ( @{$config{vendor_class}} )
1573 foreach my $range ( @{$config{user_class}} )
1592 foreach my $range ( @{$config{dhcp_range}} )
1610 foreach my $range ( @{$config{dhcp_host}} )
1627 foreach my $range ( @{$config{dhcp_option}} )
1890 foreach my $server (@{$config{servers}})
