Lines Matching full:"$ text"
78 &header($text{'index_title'}, "", "intro", 1, 1, undef,
102 print "<h2>$text{'DNS_settings'}</h2>";
104 print $text{'local_domain'};
107 print $text{'domain_needed'};
110 print $text{'expand_hosts'};
113 print $text{'bogus_priv'};
116 print $text{'filterwin2k'};
119 print $text{'hosts'};
122 print $text{'xhosts'};
125 print $text{'xhostsfile'};
128 print $text{'neg_cache'};
131 print $text{'cache_size'};
134 print $text{'cust_cache_size'};
137 print $text{'log_queries'};
140 print $text{'local_ttl'};
143 print $text{'ttl'};
146 print &ui_submit( $text{'save_button'} );
150 print $text{'servers_config'};
153 print $text{'iface_config'};
156 print $text{'alias_config'};
160 print $text{'DHCP_config'};
164 print $text{'restart'};
166 &footer("/", $text{'index'});
382 $text{'index'}); &header( "DNSmasq configuration", "" ); } print "$key = $config{$key}<br>"; { 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
426 print $text{warn_errors};
428 print $text{didnt_apply};
430 &footer( "/", $text{'index'});
436 print "<h2>".$text{srv_edit}."</h2>";
439 print "<br>".$text{in_use}.&ui_yesno_radio( "used",
441 print "<br>".$text{srv_named}.&ui_yesno_radio( "named",
443 print "<br>".$text{srv_name};
445 print "<br>".$text{srv_addr};
447 print "<br><br>" . &ui_submit( $text{'save_button'} )."<br>";
450 ">".$text{delet}."</a>";
451 #print "<a href=dns_del.cgi?idx=".$in{idx}.">".$text{delet}."</a>";
452 print "<br><a href=servers.cgi>".$text{servers_config}."</a>";
453 &footer( "/", $text{'index'});
997 # $text - the new contents of the line
1005 my $text = shift;
1011 $text :
1012 "#" . $text;
1054 &header($text{'index_title'}, "", "intro", 1, 1, undef,
1070 print $text{'DNS_servers'};
1073 print "<h3>".$text{dynamic}."</h3>";
1074 print $text{resolv};
1076 print "<br>".$text{resolv_file_explicit};
1078 print "<br>".$text{resolv_file};
1080 print "<br><br>".$text{poll}."<br>";
1082 print "<br><br>".$text{strict_order};
1084 print "<br><br><h3>".$text{in_file}."</h3>";
1085 print &ui_columns_start( [ $text{domain}, $text{address},
1086 $text{in_use}, "" ], 100 );
1112 ($$server{used})?$text{used}:$text{not_used}, $mover ],
1118 $text{new_dns_serv}."</a><hr>";
1119 print "<br>" . &ui_submit( $text{'save_button'} );
1123 print $text{'DNS_settings'};
1126 print $text{'iface_config'};
1129 print $text{'alias_config'};
1133 print $text{'DHCP_config'};
1135 &footer("/", $text{'index'});
1175 &header($text{'index_title'}, "", "intro", 1, 1, undef,
1191 print $text{'iface_listen'};
1193 print &ui_columns_start( [ $text{iface}, $text{in_use} ], 100 );
1197 print &ui_columns_row( [ $edit, ($$iface{used})?$text{used}:$text{not_used} ],
1203 $text{new_iface}."</a><hr>";
1205 print $text{'xiface_listen'};
1208 print &ui_columns_start( [ $text{xiface}, $text{in_use} ], 100 );
1212 print &ui_columns_row( [ $edit, ($$iface{used})?$text{used}:$text{not_used} ],
1218 $text{new_iface}."</a><hr>";
1220 print $text{'listen_addr'};
1223 print &ui_columns_start( [ $text{listen_addr}, $text{in_use} ], 100 );
1227 print &ui_columns_row( [ $edit, ($$iface{used})?$text{used}:$text{not_used} ],
1234 $text{new_addr}."</a><hr><br>";
1236 print $text{bind_iface};
1238 print "<br>".&ui_submit( $text{save_button} );
1240 print "<hr><br><a href=\"index.cgi\">".$text{'DNS_settings'}."</a><br>";
1241 print "<a href=\"servers.cgi\">".$text{'servers_config'}."</a><br>";
1242 print "<a href=\"alias.cgi\">".$text{'alias_config'}."</a><br>";
1245 print $text{'DHCP_config'};
1247 &footer("/", $text{'index'});
1300 print $text{warn_errors};
1302 print $text{didnt_apply};
1304 &footer( "/", $text{'index'});
1310 print "<h2>".$text{edit_iface}."</h2>";
1313 print "<br>".$text{in_use}.&ui_yesno_radio( "used",
1315 print "<br>".$text{iface_name};
1317 print "<br><br>" . &ui_submit( $text{'save_button'} )."<br>";
1320 ">".$text{delet}."</a>";
1321 print "<br><a href=iface.cgi>".$text{iface_config}."</a>";
1322 &footer( "/", $text{'index'});
1394 my $line="error.cgi?line=xx&type=".$text{err_configbad};
1398 &header($text{'index_title'}, "", "intro", 1, 1, undef,
1403 print "<h2>".$text{forced}."</h2>";
1406 print &ui_columns_start( [ $text{forced_domain}, $text{forced_ip},
1407 $text{in_use} ], 100 );
1412 $text{used} : $text{not_used} ],
1419 $text{forced_add}."</a>";
1424 print "<h2>".$text{alias}."</h2>";
1427 print &ui_columns_start( [ $text{forced_from}, $text{forced_ip},
1428 $text{forced_mask}, $text{in_use} ], 100 );
1437 $text{used} : $text{not_used} ],
1444 $text{alias_add}."</a>";
1448 print "<h2>".$text{nx}."</h2>";
1451 print &ui_columns_start( [ $text{forced_from}, $text{in_use} ], 100 );
1458 $text{used} : $text{not_used} ],
1465 $text{nx_add}."</a>";
1471 print $text{'DNS_settings'};
1474 print $text{'DNS_servers'};
1477 print $text{'iface_config'};
1481 print $text{'DHCP_config'};
1483 &footer("/", $text{'index'});
1523 &header($text{'index_title'}, "", "intro", 1, 1, undef,
1546 print "<h2>$text{'DHCP_settings'}</h2>";
1552 print "<h2>".$text{vendor_classes}."</h2>";
1553 print &ui_columns_start( [ $text{class},
1554 $text{vendor}, $text{in_use} ], 100 );
1561 $text{used} : $text{not_used} ],
1567 $text{vend_add}."</a><br><hr><br>";
1570 print "<h2>".$text{user_classes}."</h2>";
1571 print &ui_columns_start( [ $text{class},
1572 $text{user}, $text{in_use} ], 100 );
1579 $text{used} : $text{not_used} ],
1585 $text{user_add}."</a><br><hr><br>";
1588 print "<h2>".$text{dhcp_range}."</h2>";
1589 print &ui_columns_start( [ $text{net_id}, $text{forced_from}, $text{forced_ip},
1590 $text{forced_mask}, $text{leasetime},
1591 $text{in_use} ], 100 );
1599 $text{used} : $text{not_used} ],
1605 $text{range_add}."</a><br><hr><br>";
1608 print "<h2>".$text{hosts}."</h2>";
1609 print &ui_columns_start( [ $text{hosts}, $text{in_use} ], 100 );
1616 $text{used} : $text{not_used} ],
1622 $text{host_add}."</a><br><hr><br>";
1625 print "<h2>".$text{dhcp_options}."</h2>";
1626 print &ui_columns_start( [ $text{dhcp_option}, $text{in_use} ], 100 );
1633 $text{used} : $text{not_used} ],
1639 $text{dhcp_add}."</a><br><hr><br>";
1641 print "<h2>".$text{misc}."</h2><br>";
1642 print $text{read_ethers}.&ui_yesno_radio( "ethers",
1644 print "<br><br>".$text{use_bootp}.&ui_yesno_radio ( "bootp",
1646 print "<br>".$text{bootp_host}.&ui_textbox( "bootp_host",
1648 print "<br>".$text{bootp_file}.&ui_textbox( "bootp_file",
1650 print "<br>".$text{bootp_address}.&ui_textbox( "bootp_addr",
1652 print "<br><br>".$text{max_leases}.&ui_textbox( "max_leases",
1654 print "<br><br>".$text{leasefile}.&ui_yesno_radio( "useleasefile",
1656 print "<br>".$text{lfiletouse}.&ui_textbox( "leasefile",
1658 print "<br><br>".&ui_submit( $text{'save_button'} );
1661 print $text{'DNS_settings'};
1663 &footer("/", $text{'index'});
1703 &header($text{'index_title'}, "", "intro", 1, 1, undef,
1714 print $text{restarting} . "<br>";
1717 print $text{DNS_settings};
1719 &footer("/", $text{'index'});
1770 my $line = "error.cgi?line=xx&type=".$text{err_configbad};
1777 if( ($in{resolv_std}) && ($in{resolv_file} !~ /^$FILE$/) )
1778 {
1779 my $line = "error.cgi?line=".$text{resolv_file};
1778 $line .= "&type=".$text{err_filebad};
1870 print $text{warn_errors};
1872 print $text{didnt_apply};
1874 &footer( "/", $text{'index'});
1951 my $line = "error.cgi?line=xx&type=".$text{err_configbad};
1958 if( $in{addr} !~ /^$IPADDR$/ )
1959 {
1960 my $line = "error.cgi?line=".$text{srv_addr};
1959 $line .= "&type=".$text{err_notip};
1965 if( ($in{named}) && ($in{name} !~ /^$NAME$/) )
1966 {
1967 my $line = "error.cgi?line=".$text{srv_name};
1966 $line .= "&type=".$text{err_domainbad};
2030 my $line="error.cgi?line=xx&type=".$text{err_configbad};
2089 print $text{warn_errors};
2091 print $text{didnt_apply};
2093 &footer( "/", $text{'index'});
2099 print "<h2>".$text{edit_xiface}."</h2>";
2102 print "<br>".$text{in_use}.&ui_yesno_radio( "used",
2104 print "<br>".$text{xiface_name};
2106 print "<br><br>" . &ui_submit( $text{'save_button'} )."<br>";
2109 $text{delet}."</a>";
2110 print "<br>< a href=iface.cgi>".$text{iface_config}."</a>";
2111 &footer( "/", $text{'index'});
2162 print $text{warn_errors};
2164 print $text{didnt_apply};
2166 &footer( "/", $text{'index'});
2172 print "<h2>".$text{edit_listen}."</h2>";
2175 print "<br>".$text{in_use}.&ui_yesno_radio( "used",
2177 print "<br>".$text{listen_name};
2179 print "<br><br>" . &ui_submit( $text{'save_button'} )."<br>";
2182 ">".$text{delet}."</a>";
2183 print "<br><a href=iface.cgi>".$text{iface_config}."</a>";
2184 &footer( "/", $text{'index'});
2235 print $text{warn_errors};
2237 print $text{didnt_apply};
2239 &footer( "/", $text{'index'});
2245 print "<h2>".$text{bogus}."</h2>";
2248 print $text{forced_from}. &ui_textbox( "from",
2250 print "<br>".$text{in_use}.&ui_yesno_radio( "used",
2252 print "<br><br>" . &ui_submit( $text{'save_button'} )."<br>";
2255 ">".$text{delet}."</a>";
2256 print "<br><a href=alias.cgi>".$text{alias_config}."</a>";
2257 &footer( "/", $text{'index'});
2306 my $line="error.cgi?line=xx&type=".$text{err_configbad};
2420 my $line = "error.cgi?line=xx&type=".$text{err_configbad};
2482 my $line = "error.cgi?line=xx&type=".$text{err_configbad};
2544 my $line= "error.cgi?line=x&type=".$text{listen_addr};
2551 if( $in{addr} !~ /^$IPADDR$/ )
2552 {
2553 my $line= "error.cgi?line=".$text{listen_addr};
2552 $line .= "&type=".$text{err_notip};
2614 my $line = "error.cgi?line=xx&type=".$text{err_configbad};
2621 if( $in{from} !~ /^$IPADDR$/ )
2622 {
2623 my $line = "error.cgi?line=".$text{forced_from};
2622 $line .= "&type=".$text{err_notip};
2628 if( $in{to} !~ /^$IPADDR$/ )
2629 {
2630 my $line = "error.cgi?line=".$text{forced_ip};
2629 $line .= "&type=".$text{err_notip};
2635 if( ($in{masked}) && ($in{mask} !~ /^$IPADDR$/) )
2636 {
2637 my $line = "error.cgi?line=".$text{forced_mask};
2636 $line .= "&type=".$text{err_notmask};
2642 if( ($in{timed}) && ($in{'time'} !~ /^$TIME$/) )
2643 {
2644 my $line = "error.cgi?line=".$text{leasetime};
2643 $line .= "&type=".$text{err_nottime};
2731 print $text{warn_errors};
2733 print $text{didnt_apply};
2735 &footer( "/", $text{'index'});
2741 print "<h2>".$text{edit_host}."</h2>";
2744 print "<br>".$text{in_use}.&ui_yesno_radio( "used",
2746 print "<br>".$text{host_spec};
2748 print "<br><br>" . &ui_submit( $text{'save_button'} )."<br>";
2751 ">".$text{delet}."</a>";
2752 print "<br><a href=dhcp.cgi>".$text{DHCP_settings}."</a>";
2753 &footer( "/", $text{'index'});
2804 print $text{warn_errors};
2806 print $text{didnt_apply};
2808 &footer( "/", $text{'index'});
2814 print "<h2>".$text{range_edit}."</h2>";
2817 print "<br>".$text{in_use}.&ui_yesno_radio( "used",
2819 print "<br>".$text{ided}.&ui_yesno_radio( "ided",
2821 print "<br>".$text{id};
2823 print "<br>".$text{forced_from};
2825 print "<br>".$text{forced_ip};
2827 print "<br>".$text{forced_mask_used}.&ui_yesno_radio( "masked",
2829 print "<br>".$text{forced_mask};
2831 print "<br>".$text{timed}.&ui_yesno_radio( "timed",
2833 print "<br>".$text{leasetime};
2835 print "<br><br>" . &ui_submit( $text{'save_button'} )."<br>";
2838 ">".$text{delet}."</a>";
2839 print "<br><a href=dhcp.cgi>".$text{DHCP_settings}."</a>";
2840 &footer( "/", $text{'index'});
2891 print $text{warn_errors};
2893 print $text{didnt_apply};
2895 &footer( "/", $text{'index'});
2901 print "<h2>".$text{edit_opt}."</h2>";
2904 print "<br>".$text{in_use}.&ui_yesno_radio( "used",
2906 print "<br>".$text{option_spec};
2908 print "<br><br>" . &ui_submit( $text{'save_button'} )."<br>";
2911 ">".$text{delet}."</a>";
2912 print "<br><a href=dhcp.cgi>".$text{DHCP_settings}."</a>";
2913 &footer( "/", $text{'index'});
2962 my $line="error.cgi?line=xx&type=".$text{err_configbad};
3024 my $line = "error.cgi?line=xx&type=".$text{err_configbad};
3087 print $text{warn_errors};
3089 print $text{didnt_apply};
3091 &footer( "/", $text{'index'});
3097 print "<h2>".$text{forced}."</h2>";
3100 print $text{forced_domain}. &ui_textbox( "domain",
3103 print $text{forced_ip}. &ui_textbox( "to",
3105 print "<br>".$text{in_use}.&ui_yesno_radio( "used",
3107 print "<br><br>" . &ui_submit( $text{'save_button'} )."<br>";
3110 ">".$text{delet}."</a>";
3111 print "<br><a href=alias.cgi>".$text{alias_config}."</a>";
3112 &footer( "/", $text{'index'});
3161 my $line="error.cgi?line=xx&type=".$text{err_configbad};
3168 print "<h2>".$text{alias}."</h2>";
3171 print $text{forced_from}. &ui_textbox( "from",
3174 print $text{forced_ip}. &ui_textbox( "to",
3177 print $text{forced_mask_used}. &ui_yesno_radio( "mask",
3179 print $text{forced_mask}. &ui_textbox( "netmask",
3181 print "<br>".$text{in_use}.&ui_yesno_radio( "used",
3183 print "<br><br>" . &ui_submit( $text{'save_button'} )."<br>";
3186 ">".$text{delet}."</a>";
3187 print "<br><a href=alias.cgi>".$text{alias_config}."</a>";
3188 &footer( "/", $text{'index'});
3237 my $line= "error.cgi?line=x&type=".$text{listen_addr};
3299 my $line = "error.cgi?line=xx&type=".$text{err_configbad};
3306 if( $in{local_domain} !~ /^$FILE$/ )
3307 {
3308 my $line = "error.cgi?line=".$text{local_domain};
3307 $line .= "&type=".$text{err_domainbad};
3313 if( ($in{xhosts}) && ($in{addn_hosts} !~ /^$FILE$/) )
3314 {
3315 my $line = "error.cgi?line=".$text{xhostsfile};
3314 $line .= "&type=".$text{err_filebad};
3320 my $line = "error.cgi?line=".$text{cust_cache_size};
3321 $line .= "&type=".$text{err_numbbad};
3327 my $line = "error.cgi?line=".$text{ttl};
3328 $line .= "&type=".$text{err_numbbad};
3448 my $line="error.cgi?line=xx&type=".$text{err_configbad};
3455 if( $in{from} !~ /^$IPADDR$/ )
3456 {
3457 my $line="error.cgi?line=".$text{forced_from};
3456 $line .= "&type=".$text{err_notip};
3462 if( $in{to} !~ /^$IPADDR$/ )
3463 {
3464 my $line="error.cgi?line=".$text{forced_ip};
3463 $line .= "&type=".$text{err_notip};
3469 if( ($in{mask}) && ($in{netmask} !~ /^$IPADDR$/) )
3470 {
3471 my $line="error.cgi?line=".$text{forced_mask};
3470 $line .= "&type=".$text{err_notip};
3533 my $line="error.cgi?line=xx&type=".$text{err_configbad};
3540 if( $in{domain} !~ /^$NAME$/ )
3541 {
3542 my $line="error.cgi?line=".$text{forced_domain};
3541 $line .= "&type=".$text{err_domainbad};
3547 if( $in{to} !~ /^$IPADDR$/ )
3548 {
3549 my $line="error.cgi?line=".$text{forced_domain};
3548 $line .= "&type=".$text{err_domainbad};
3610 my $line= "error.cgi?line=x&type=".$text{listen_addr};
3617 if( $in{from} !~ /^$IPADDR$/ )
3618 {
3619 my $line= "error.cgi?line=".$text{forced_from};
3618 $line .= "&type=".$text{err_notip};
3682 print $text{warn_errors};
3684 print $text{didnt_apply};
3686 &footer( "/", $text{'index'});
3692 print "<h2>".$text{user_classes}."</h2>";
3695 print $text{in_use}.&ui_yesno_radio( "used",
3697 print $text{class}. &ui_textbox( "class",
3699 print "<br>".$text{user}. &ui_textbox( "user",
3701 print "<br><br>" . &ui_submit( $text{'save_button'} )."<br>";
3704 ">".$text{delet}."</a>";
3705 print "<br><a href=dhcp.cgi>".$text{DHCP_config}."</a>";
3706 &footer( "/", $text{'index'});
3757 print $text{warn_errors};
3759 print $text{didnt_apply};
3761 &footer( "/", $text{'index'});
3767 print "<h2>".$text{vendor_classes}."</h2>";
3770 print $text{in_use}.&ui_yesno_radio( "used",
3772 print $text{class}. &ui_textbox( "class",
3774 print "<br>".$text{vendor}. &ui_textbox( "vendor",
3776 print "<br><br>" . &ui_submit( $text{'save_button'} )."<br>";
3779 $text{delet}."</a>";
3780 print "<br><a href=dhcp.cgi>".$text{DHCP_config}."</a>";
3781 &footer( "/", $text{'index'});
3830 my $line="error.cgi?line=xx&type=".$text{err_configbad};
3837 if( $in{bootp_addr} !~ /^$IPADDR$/ )
3838 {
3839 my $line="error.cgi?line=".$text{bootp_address};
3838 $line .= "&type=".$text{err_notip};
3844 if( $in{bootp_file} !~ /^$FILE$/ )
3845 {
3846 my $line="error.cgi?line=".$text{bootp_file};
3845 $line .= "&type=".$text{err_filebad};
3851 $text{bootp_host};
3852 $line .= "&type=".$text{err_hostbad};
3858 if( $in{max_leases} !~ /^$NUMBER$/ )
3859 {
3860 my $line="error.cgi?line=".$text{max_leases};
3859 $line .= "&type=".$text{err_numbbad};
3865 if( $in{leasefile} !~ /^$FILE$/ )
3866 {
3867 my $line="error.cgi?line=".$text{leasefile};
3866 $line .= "&type=".$text{err_filebad};
3948 my $line = "error.cgi?line=xx&type=".$text{err_configbad};
3955 if( $in{class} !~ /^$NAME$/ )
3956 {
3957 my $line = "error.cgi?line=".$text{class};
3956 $line .= "&type=".$text{err_namebad};
3962 if( $in{user} !~ /^$NAME$/ )
3963 {
3964 my $line = "error.cgi?line=".$text{user};
3963 $line .= "&type=".$text{err_namebad};
4025 my $line = "error.cgi?line=xx&type=".$text{err_configbad};
4032 if( $in{class} !~ /^$NAME$/ )
4033 {
4034 my $line = "error.cgi?line=".$text{class};
4033 $line .= "&type=".$text{err_namebad};
4039 if( $in{vendor} !~ /^$NAME$/ )
4040 {
4041 my $line = "error.cgi?line=".$text{vendor};
4040 $line .= "&type=".$text{err_namebad};
4091 &header($text{'index_title'}, "", "intro", 1, 1, undef,
4099 print "<h2>".$text{error_heading}."</h2>";
4101 print $text{err_line};
4104 print $text{err_type};
4107 print $text{err_help};
4108 &footer("/", $text{'index'});
