![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to dnsmasq.wbm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / dnsmasq / contrib / webmin|
Return to dnsmasq.wbm CVS log | Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / dnsmasq / contrib / webmin |
1.1 misho 1: dnsmasq/ 0000755 0000000 0000000 00000000000 10512645440 011223 5 ustar root root dnsmasq/config.info 0000644 0000000 0000000 00000000132 10505663743 013351 0 ustar root root config_file=Full path to DNSmasq config file,0
2: restart=Shell script to re-start DNSmasq,0
3: dnsmasq/config 0000644 0000000 0000000 00000000061 10505663767 012426 0 ustar root root config_file=/etc/dnsmasq.conf
4: restart=restart.sh
5: dnsmasq/images/ 0000755 0000000 0000000 00000000000 10506375201 012466 5 ustar root root dnsmasq/images/icon.gif 0000644 0000000 0000000 00000000616 10505632635 014116 0 ustar root root GIF89a0 0 ccc , 0 0 I8k;`xqBY~b
6: vq*W^9\HCG!ŏD ?+ -p P j:@o1~9~mz{~}m y|D-@ VQb ,P'V Or^Vjxz;[f^zøȰ ܞħL}1O`By {{H@0E 1F,D )~dH!%̑rґYm_61ɓgw4+3&,;\ZTEL{Z
7: 5jS?Έ ; dnsmasq/images/template.gif 0000644 0000000 0000000 00000003560 06771443034 015005 0 ustar root root GIF89a&0 UUU 999rrr !Made with GIMP , &0 8AZdiӠhksh߶L|G,rY̥q0 Ԓ0-]%6AkX=Q}~T{M oa-W~~x,vuc&$xa4e Sy u`g$bͽ~ʣ `lˁj\QԸꪀ>"{9ۗ& FḃYWͳ?QdƌJf)hcv'w+ #1|XgO-ahB (`DZڄU.EbP FKD[B <
8: [Ŝ " JÞi0*a -VI@
9: \( I
10: /*!0@*>Lhp20:v6V.᧲.Ԛa& 9M$bE\
11: d"uKw;_a_J]6㰣'yDt3WA3i6In: &Q,~tj'-&W{!& ϵ 71w^w P 8h Y
2T\mS|FG]څGEvM1%!U.#pG DeV+.ע>> Y68duZ&8\ GM}gMY{U.٢XX&#)kpKL(X F1M \J h#Ma&qrYF*]AhF9hT)L\]1lfj`\㩝pyV*M֪|8tY.$>\)(vJ:(܆N۬n/{'^yyS&U洦 gj5ۃ-,䮳%K5;[~&,|ӌJ:uzAd^8) W1 ʩz)nj. zÇ9scm%Z[=Sy\ So]5E_]K[+uO5Sn3
12: bM Ēܶэ5rmBN!-?58Ŕ
hOk~
}3^Q8Yκi{=8'r;+pڛͻz*r4[0k&< #/$q;֜ tŅ" C
Mtv0_+PI 7 >$*F,N|H}t&>YxT7s=X!ZÓJsؿd ;v尋F`%-xG#6. .O8xdH! D춨XjXϢV>q7c @<2_V1X^F p\2)Ѹ'OEf'$Gce˲eҐٛD/rI4ڥ@,+'6dlT T(7!@*:!,&ɴ< } h&iRUiџ η ibkCfPM~O('%Sfxy:5&v*_I6m =Hn $z4Z(Q\e >5
DnRۘj&4 W百5%&Gi:fXJQ-IXq" :xFS| `H ɔj-- {
13: DGjRv-[rzhhGKҚ iWֺ6{lgKڢ ͭnwk\
pEr=ߒ:}t+R5.K ; dnsmasq/images/up.gif 0000644 0000000 0000000 00000000147 10506373750 013612 0 ustar root root GIF89a rrr !Made with GIMP !&
14: , &
15: |'Io|b%eRG;Ssf ; dnsmasq/images/down.gif 0000644 0000000 0000000 00000000154 10506373750 014133 0 ustar root root GIF89a rrr !Made with GIMP !&
16: , + @"IUieJbA I m.dN ; dnsmasq/images/gap.gif 0000644 0000000 0000000 00000000111 10506375201 013715 0 ustar root root GIF89a !Made with GIMP !&
17: , ڋ> ; dnsmasq/module.info 0000644 0000000 0000000 00000000142 10501433425 013356 0 ustar root root name=DNSMasq
18: desc=DNSMasq integrated DNS & DHCP servers
19: os_support=
20: depends=0.77
21: category=servers
22: dnsmasq/index.cgi 0000755 0000000 0000000 00000007531 10512641067 013030 0 ustar root root #!/usr/bin/perl
23: #
24: # DNSMasq Webmin Module - index.cgi; basic DNS config
25: # Copyright (C) 2006 by Neil Fisher
26: #
27: # This program is free software; you can redistribute it and/or modify
28: # it under the terms of the GNU General Public License as published by
29: # the Free Software Foundation; either version 2 of the License, or
30: # (at your option) any later version.
31: #
32: # This program is distributed in the hope that it will be useful,
33: # but WITHOUT ANY WARRANTY; without even the implied warranty of
34: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
35: # GNU General Public License for more details.
36: #
37: # This module inherited from the Webmin Module Template 0.79.1 by tn
38:
39: do '../web-lib.pl';
40: do '../ui-lib.pl';
41: do 'dnsmasq-lib.pl';
42:
43: $|=1;
44: &init_config("DNSMasq");
45:
46: %access=&get_module_acl;
47:
48: ## put in ACL checks here if needed
49:
50:
51: ## sanity checks
52:
53: &header($text{'index_title'}, "", "intro", 1, 1, undef,
54: "Written by Neil Fisher<BR><A HREF=mailto:neil\@magnecor.com.au>Author</A><BR><A HREF=http://www.authorpage.invalid>Home://page</A>");
55: # uses the index_title entry from ./lang/en or appropriate
56:
57: ## Insert Output code here
58: # read config file
59: $config_file = &read_file_lines( $config{config_file} );
60: # pass into data structure
61:
62:
63: # output as web page
64:
65:
66: &header( "DNSMasq settings", "" );
67: &parse_config_file( \%config, \$config_file );
68: print "<hr>\n";
69: if( $config{errors} > 0 )
70: {
71: print "<h3>WARNING: found ";
72: print $config{errors};
73: print "errors in config file!</h3><br>\n";
74: }
75: print &ui_form_start( 'basic_apply.cgi', "post" );
76: print "<br>\n";
77: print "<h2>$text{'DNS_settings'}</h2>";
78: print "<br><br>\n";
79: print $text{'local_domain'};
80: print &ui_textbox( "local_domain", $config{domain}{domain}, 32 );
81: print "<br><br>\n";
82: print $text{'domain_needed'};
83: print &ui_yesno_radio( "domain_needed", ($config{domain_needed}{used})?1:0 );
84: print "<br><br>\n";
85: print $text{'expand_hosts'};
86: print &ui_yesno_radio( "expand_hosts", ($config{expand_hosts}{used})?1:0 );
87: print "<br><br>\n";
88: print $text{'bogus_priv'};
89: print &ui_yesno_radio( "bogus_priv", ($config{bogus_priv}{used})?0:1 );
90: print "<br><br>\n";
91: print $text{'filterwin2k'};
92: print &ui_yesno_radio( "filterwin2k", ($config{filterwin2k}{used})?1:0 );
93: print "<br><br>\n";
94: print $text{'hosts'};
95: print &ui_yesno_radio( "hosts", ($config{no_hosts}{used}?0:1) );
96: print "<br>\n";
97: print $text{'xhosts'};
98: print &ui_yesno_radio( "xhosts", ($config{addn_hosts}{used}?1:0) );
99: print "<br>\n";
100: print $text{'xhostsfile'};
101: print &ui_textbox( "addn_hosts", $config{addn_hosts}{file}, 40 );
102: print "<br><br>\n";
103: print $text{'neg_cache'};
104: print &ui_yesno_radio( "neg_cache", ($config{neg_cache}{used}?0:1) );
105: print "<br><br>\n";
106: print $text{'cache_size'};
107: print &ui_yesno_radio( "cache_size", ($config{cache_size}{used}?1:0) );
108: print "<br>\n";
109: print $text{'cust_cache_size'};
110: print &ui_textbox( "cust_cache_size", $config{cache_size}{size}, 40 );
111: print "<br><br>\n";
112: print $text{'log_queries'};
113: print &ui_yesno_radio( "log_queries", ($config{log_queries}{used}?1:0) );
114: print "<br><br>\n";
115: print $text{'local_ttl'};
116: print &ui_yesno_radio( "local_ttl", ($config{local_ttl}{used}?1:0) );
117: print "<br>\n";
118: print $text{'ttl'};
119: print &ui_textbox( "ttl", $config{local_ttl}{ttl}, 40 );
120: print "<br><br>\n";
121: print &ui_submit( $text{'save_button'} );
122: print &ui_form_end( );
123: print "<hr>";
124: print "<a href=\"servers.cgi\">";
125: print $text{'servers_config'};
126: print "</a><br>";
127: print "<a href=\"iface.cgi\">";
128: print $text{'iface_config'};
129: print "</a><br>";
130: print "<a href=\"alias.cgi\">";
131: print $text{'alias_config'};
132: print "</a><br>";
133: print "<hr>";
134: print "<a href=\"dhcp.cgi\">";
135: print $text{'DHCP_config'};
136: print "</a><br>";
137: print "<hr>";
138: print "<a href=\"restart.cgi\">";
139: print $text{'restart'};
140: print "</a><br>";
141: &footer("/", $text{'index'});
142: # uses the index entry in /lang/en
143:
144:
145:
146: ## if subroutines are not in an extra file put them here
147:
148:
149: ### END of index.cgi ###.
150: dnsmasq/acl_security.pl 0000644 0000000 0000000 00000000561 07000420647 014246 0 ustar root root
151: # acl_security_form(&options)
152: # Output HTML for editing security options for the apache module
153: sub acl_security_form
154: {
155:
156: ## Here you have to fill in the code for output
157:
158: }
159:
160: # acl_security_save(&options)
161: # Parse the form for security options for the apache module
162: sub acl_security_save
163: {
164:
165: ## here you have to fill in the handling code for the saving the ACL
166:
167: }
168:
169: ### END. dnsmasq/lang/ 0000755 0000000 0000000 00000000000 10512641175 012145 5 ustar root root dnsmasq/lang/en 0000644 0000000 0000000 00000007666 10512637344 012514 0 ustar root root
170: lang=en
171: author=Neil Fisher
172: module_author=Neil Fisher
173: homepage=www.nonexistent.invalid
174: copyright=(C) 2006 by Neil Fisher <neil@magnecor.com.au>
175: license=GPL
176:
177: index_title=DNSMasq - integrated DNS and DHCP servers
178: DNS_settings=Basic DNS settings
179: DHCP_settings=DHCP settings
180: DNS_servers=DNS Upstream Servers Configuration
181: iface_settings=Network Interface Settings
182: alias_settings=Alias / Redirect Settings
183: local_domain=Local domain name
184: domain_needed=Only forward names with a domain part
185: expand_hosts=Add local domain name to DHCP leases & hosts in /etc/hosts
186: bogus_priv=Allow unresolved reverse lookups on local network to propogate out
187: filterwin2k=Prevent windows SOA & SRV requests propogating out
188: resolv=Read /etc/resolv.conf
189: poll=poll resolv.conf file
190: resolv_file_explicit=Use non-standard resolv.conf file
191: resolv_file=non-standard resolv.conf file to use
192: strict_order=Always use nameservers in order provided
193: hosts=Read /etc/hosts file
194: xhosts=Use additional hosts file
195: xhostsfile=File to use for additional hosts
196: neg_cache=Cache negative responses
197: log_queries=Log each DNS lookup
198: cache_size=Use custom cache size
199: cust_cache_size=Custom cache size to use
200: local_ttl=Use specified local Time-To-Live
201: ttl=Local TTL
202: dynamic=Defined in resolv.conf file
203: domain=For domain
204: address=IP address
205: in_use=In use
206: used=In Use
207: not_used=Defined only (not used)
208: in_file=Defined in config file
209: new_dns_serv=Add new upstream server to config file
210: save_button=Save
211: servers_config=Configure upstream DNS Servers
212: alias_config=Configure Forced Domains and Alias responses
213: iface_config=Configure network interfaces
214: DHCP_config=Configure DHCP
215: restart=Restart DNSmasq
216: restarting=Trying to restart DNSmasq. Script messages are:
217: srv_edit=Edit upstream DNS server
218: srv_named=For specific domain
219: srv_name=Specific domain
220: srv_addr=Server address
221: delet=Delete
222: iface=Interface
223: xiface=Except Interface
224: listen=Listen on
225: new_iface=Add new interface
226: iface_listen=Interface to listen on
227: xiface_listen=Except interfaces
228: listen_addr=Listen Address
229: new_addr=Add new address
230: edit_iface=Edit interface
231: iface_name=Interface name
232: edit_xiface=Edit except interface
233: listen_name=Listen address
234: edit_listen=Edit listen address
235: xiface_name=Except interface name
236: bind_iface=Bind to individual interfaces instead of wildcard address
237: forced=Forced domain responses
238: nx=Forced NXDOMAIN IP addresses
239: alias=Aliased IP addresses
240: forced_domain=Domain name
241: forced_ip=To IP address
242: forced_from=From IP address
243: forced_mask=Netmask
244: forced_mask_used=Use a netmask
245: forced_add=Add new forced domain
246: alias_add=Add new alias
247: nx_add=Add new forced NXDOMAIN
248: forced_edit=Edit forced domain reponse
249: alias_edit=Edit IP address alias
250: nx_edit=Edit Forced NXDOMAIN response
251: net_id=Network/Client ID
252: timed=Use a lease time
253: leasetime=Lease time
254: dhcp_range=DHCP IP address ranges
255: range_edit=Edit DHCP range
256: range_add=Add new DHCP range
257: ided=Network ID
258: id=Network ID to use
259: hosts=Specific Hosts
260: host_add=Add a new host specification
261: vendor_classes=Vendor Class Specification
262: user_classes=User Class Specification
263: vendor=Vendor
264: user=User
265: class=Class
266: vend_add=Add new vendor class
267: user_add=Add new user class
268: read_ethers=Read /etc/ethers for lease info
269: misc=Miscellaneous DHCP options
270: dhcp_options=Non-standard DHCP options
271: dhcp_option=Option
272: dhcp_add=Add new option
273: edit_host=Edit DHCP host specification
274: edit_opt=Edit DHCP options
275: opt_spec=DHCP option specification
276: use_bootp=Use BOOTP (network boot)
277: bootp_host=Hostname
278: bootp_file=File
279: bootp_address=IP Address
280: max_leases=Maximum number of leases to grant
281: leasefile=Use a nonstandard lease file
282: lfikletouse=Nonstandard leasefile to use
283: error_heading=Warning - ERROR!!!!
284: err_line=Error in line:
285: err_type=Type of error is:
286: err_help=Try going back and retyping the offending information
287: err_notip=Not a valid IP address
288: err_notmask=Not a valid netmask
289: err_nottime=not a valid time
290: err_configbad=Configuration file has an error
291: err_filebad=Bad file name
292: err_hostbad=Bad host name
293: err_numbbad=Bad number
294: err_domainbad=Bad domain
295: err_namebad=Bad name
296: dnsmasq/lang/en~ 0000644 0000000 0000000 00000000344 07076651262 012702 0 ustar root root
297: lang=en
298: author=Name of language file author here
299: module_author=Writers name here
300: homepage=modules homepage url here
301: copyright=(C) YYYY by author <email@author.any>
302: license=GPL
303:
304: your_message=here you have to write your messages
305: dnsmasq/.index.cgi.swp 0000644 0000000 0000000 00000030000 10475225557 013710 0 ustar root root b0VIM 6.3 R+DB # staff upstairs.localnet ~staff/template/index.cgi 3210#"! U tp& I & & ad $ \ I V U
R
Q
=
7
&
] B A 5 4
306:
307:
308:
309:
310:
311:
312:
313:
314: ~
315: z
316: w
317: u
318: t
319: _
320: E
321: C
322:
323:
324:
325: x w v \ ### END of### END of index.cgi ###. ## if subroutines are not in an extra file put them here # uses the index entry in /lang/en &footer("/", $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
326: #
327: # DNSMasq Webmin Module - dns_edit.cgi; upstream server edit
328: # Copyright (C) 2006 by Neil Fisher
329: #
330: # This program is free software; you can redistribute it and/or modify
331: # it under the terms of the GNU General Public License as published by
332: # the Free Software Foundation; either version 2 of the License, or
333: # (at your option) any later version.
334: #
335: # This program is distributed in the hope that it will be useful,
336: # but WITHOUT ANY WARRANTY; without even the implied warranty of
337: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
338: # GNU General Public License for more details.
339: #
340: # This module inherited from the Webmin Module Template 0.79.1 by tn
341:
342: do '../web-lib.pl';
343: do '../ui-lib.pl';
344: do 'dnsmasq-lib.pl';
345:
346: $|=1;
347: &init_config("DNSMasq");
348:
349: %access=&get_module_acl;
350:
351: ## put in ACL checks here if needed
352:
353:
354: ## sanity checks
355:
356:
357: ## Insert Output code here
358: # read config file
359: $config_file = &read_file_lines( $config{config_file} );
360: # pass into data structure
361: &parse_config_file( \%config, \$config_file );
362: # read posted data
363: &ReadParse();
364: # check for errors in read config
365: if( $config{errors} > 0 )
366: {
367: &header( "DNSMasq settings", "" );
368: print "<hr><h2>";
369: print $text{warn_errors};
370: print $config{errors};
371: print $text{didnt_apply};
372: print "</h3><hr>\n";
373: &footer( "/", $text{'index'});
374: exit;
375: }
376: # adjust everything to what we got
377: #
378: &header( "DNSMasq settings", "" );
379: print "<h2>".$text{srv_edit}."</h2>";
380: print &ui_form_start( "srv_edit_apply.cgi", "post" );
381: print &ui_hidden( "idx", $in{idx} );
382: print "<br>".$text{in_use}.&ui_yesno_radio( "used",
383: ($config{servers}[$in{idx}]{used})?1:0 );
384: print "<br>".$text{srv_named}.&ui_yesno_radio( "named",
385: ($config{servers}[$in{idx}]{domain_used})?1:0 );
386: print "<br>".$text{srv_name};
387: print &ui_textbox( "name", $config{servers}[$in{idx}]{domain}, 50 );
388: print "<br>".$text{srv_addr};
389: print &ui_textbox( "addr", $config{servers}[$in{idx}]{address}, 18 );
390: print "<br><br>" . &ui_submit( $text{'save_button'} )."<br>";
391: print &ui_form_end();
392: print "<a href=delete.cgi?idx=".$in{idx}."&what=servers&where=servers.cgi".
393: ">".$text{delet}."</a>";
394: #print "<a href=dns_del.cgi?idx=".$in{idx}.">".$text{delet}."</a>";
395: print "<br><a href=servers.cgi>".$text{servers_config}."</a>";
396: &footer( "/", $text{'index'});
397: #
398:
399: #
400: # sub-routines
401: #
402: ### END of dns_edit.cgi ###.
403: dnsmasq/dnsmasq-lib.pl 0000755 0000000 0000000 00000033547 10512631060 014002 0 ustar root root #
404: # dnsmasq-lib.pl
405: #
406: # dnsmasq webmin module library module
407: #
408: #
409: # the config hash holds the parsed config file
410: #
411: my %config = {
412: errors => 0,
413: mx_host => { used => 0, line => 0, host => "" },
414: mx_target => { used => 0, line => 0, host => "" },
415: selfmx => { used => 0, line => 0 },
416: localmx => { used => 0, line => 0 },
417: domain_needed => { line => 0, used => 0 },
418: bogus_priv => { line =>0, used => 0 },
419: filterwin2k => { line => 0, used => 0 },
420: resolv_file => { line => 0, used => 0,
421: filename => "/etc/hosts"
422: },
423: strict_order => { line => 0, used => 0 },
424: no_resolv => { line => 0, used => 0 },
425: no_poll => { line => 0, used => 0 },
426: servers => [],
427: locals => [],
428: forced => [],
429: bogus => [],
430: user => { used => 0, user =>"" },
431: group => { used => 0, group => "" },
432: interface => [],
433: ex_interface => [],
434: listen_on => [],
435: alias => [],
436: bind_interfaces => { used => 0, line => 0 },
437: no_hosts => { used => 0, line => 0 },
438: addn_hosts => { used => 0, line => 0, file => "" },
439: expand_hosts => { used => 0, line => 0 },
440: domain => { used => 0, line => 0, domain => "" },
441: cache_size => { used => 0, line =>0, size => 0 },
442: neg_cache => { used => 0, line => 0 },
443: local_ttl => { used => 0, line => 0, ttl => 0 },
444: log_queries => { used => 0, line => 0 },
445: dhcp_range => [],
446: dhcp_host => [],
447: vendor_class => [],
448: user_class => [],
449: dhcp_option => [],
450: dhcp_boot => { used => 0, line => 0, file => "",
451: host => "", address => "" },
452: dhcp_leasemax => { used => 0, line => 0, max => 0 },
453: dhcp_leasefile => { used => 0, line => 0, file => "" },
454: dhcp_ethers => { used => 0, line => 0 }
455: };
456: #
457: # parse the configuration file and populate the %config structure
458: #
459: sub parse_config_file
460: {
461:
462: my $lineno;
463: my $config = shift;
464: my $config_file = shift;
465: $IPADDR = "[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}";
466: $NAME = "[a-zA-Z\_\.][0-9a-zA-Z\_\.]*";
467: $TIME = "[0-9}+[h|m]*";
468: $FILE = "[0-9a-zA-Z\_\-\.\/]+";
469: $NUMBER="[0-9]+";
470:
471: $lineno=-1;
472: foreach my $line (@$$config_file)
473: {
474: my $subline;
475: my %temp;
476:
477: $lineno++;
478: if (defined ($line))
479: {
480: #
481: # we always use regexp starting with
482: # ^[\#]*[\s]*
483: # because that allows for a commented out line with
484: # possibly space(s) between the comment marker and keyword
485: # while rejecting any comments that carry our keyword
486: #
487: # reject lines blank at start!
488: next if ($line !~ /^[0-9a-zA-Z\_\-\#]/);
489: # MX records server?
490: if ( $line =~ /(^[\#]*[\s]*mx-host)\=([0-9a-zA-Z\.\-]*)/ )
491: {
492: }
493: elsif ($line =~ /(^[\#]*[\s]*mx-target)\=([0-9a-zA-Z\.\-]*)/ )
494: {
495: }
496: elsif ($line =~ /^[\#]*[\s]*selfmx/ )
497: {
498: $$config{selfmx}{line}=$lineno;
499: $$config{selfmx}{used}=($line !~ /^\#/);
500: }
501: elsif ($line =~ /^[\#]*[\s]*localmx/ )
502: {
503: $$config{localmx}{line}=$lineno;
504: $$config{localmx}{used}=($line !~ /^\#/);
505: }
506: # forward names witout a domain?
507: elsif ($line =~ /^[\#]*[\s]*domain-needed/ )
508: {
509: $$config{domain_needed}{used}=($line!~/^\#/);
510: $$config{domain_needed}{line}=$lineno;
511: }
512: #forward names in nonrouted address space?
513: elsif ($line =~ /^[\#]*[\s]*bogus-priv/ )
514: {
515: $$config{bogus_priv}{used}=($line!~/^\#/);
516: $$config{bogus_priv}{line}=$lineno;
517: }
518: # filter windows wierdo names?
519: elsif ($line =~ /^[\#]*[\s]*filterwin2k/ )
520: {
521: $$config{filterwin2k}{used}=($line!~/^\#/);
522: $$config{filterwin2k}{line}=$lineno;
523: }
524: # resolv.conf file
525: elsif ($line =~ /(^[\#]*[\s]*resolv-file\=)([0-9a-zA-Z\/\.\-]*)/ )
526: {
527: $$config{resolv_file}{filename}=$2;
528: $$config{resolv_file}{line}=$lineno;
529: $$config{resolv_file}{used}=($line!~/^\#/);
530: }
531: # any resolv.conf file at all?
532: elsif ($line =~ /^[\#]*[\s]*no-resolv/ )
533: {
534: $$config{no_resolv}{used}=($line!~/^\#/);
535: $$config{no_resolv}{line}=$lineno;
536: }
537: # upstream servers in order?
538: elsif ($line =~ /^[\#]*[\s]*strict-order/ )
539: {
540: $$config{strict_order}{used}=($line!~/^\#/);
541: $$config{strict_order}{line}=$lineno;
542: }
543: # check resolv. conf regularly?
544: elsif ($line =~ /^[\#]*[\s]*no-poll/ )
545: {
546: $$config{no_poll}{used}=($line!~/^\#/);
547: $$config{no_poll}{line}=$lineno;
548: }
549: # extra name servers?
550: elsif ($line =~ /(^[\#]*[\s]*server\=)([0-9a-zA-Z\.\-\/]*)/ )
551: {
552: $subline=$2;
553: %temp = {};
554: if( $subline =~ /\/($NAME)\/($IPADDR)/ )
555: {
556: $temp{domain}=$1;
557: $temp{domain_used}=1;
558: $temp{address}=$2;
559: $temp{line}=$lineno;
560: $temp{used}= ($line !~ /^\#/);
561: push @{ $$config{servers} }, { %temp };
562: }
563: elsif( $subline =~ /($IPADDR)/ )
564: {
565: $temp{domain}="";
566: $temp{domain_used}=0;
567: $temp{address}=$1;
568: $temp{line}=$lineno;
569: $temp{used}= ($line !~ /^\#/);
570: push @{ $$config{servers} }, { %temp };
571: }
572: else
573: {
574: print "Error in line $lineno!";
575: $$config{errors}++;
576: }
577: }
578: # local-only domains
579: elsif ($line =~ /(^[\#]*[\s]*local\=)([0-9a-zA-Z\.\-\/]*)/ )
580: {
581: $subline=$2;
582: %temp={};
583: if( $subline =~ /\/($NAME)\// )
584: {
585: $temp{domain}=$1;
586: $temp{lineno}=$lineno;
587: $temp{used}=($line !~ /^\#/);
588: push @{ $$config{locals} }, { %temp };
589: }
590: else
591: {
592: print "Error in line $lineno!";
593: $$config{errors}++;
594: }
595: }
596: # force lookups to addresses
597: elsif ($line =~ /(^[\#]*[\s]*address\=)([0-9a-zA-Z\.\-\/]*)/ )
598: {
599: $subline=$2;
600: %temp = {};
601: if( $subline =~ /\/($NAME)\/($IPADDR)/ )
602: {
603: $temp{line}=$lineno;
604: $temp{domain}=$1;
605: $temp{addr}=$2;
606: $temp{used}=($line !~ /^\#/);
607: push @{ $$config{forced} }, { %temp };
608: }
609: else
610: {
611: print "Error in line $lineno!";
612: $$config{errors}++;
613: }
614: }
615: # deprecated /etc/ppp/resolv.conf permissions
616: elsif ($line =~ /(^[\#]*[\s]*user\=)([0-9a-zA-Z\.\-\/]*)/ )
617: {
618: }
619: elsif ($line =~ /(^[\#]*[\s]*group\=)([0-9a-zA-Z\.\-\/]*)/ )
620: {
621: }
622: # where and how do we listen?
623: elsif ($line =~ /(^[\#]*[\s]*listen-address\=)([0-9\.]*)/ )
624: {
625: $subline=$2;
626: %temp = {};
627: if( $subline =~ /($IPADDR)/ )
628: {
629: $temp{line}=$lineno;
630: $temp{address}=$1;
631: $temp{used}= ($line !~ /^\#/);
632: push @{ $$config{listen_on} }, { %temp };
633: }
634: else
635: {
636: print "Error in line $lineno!";
637: $$config{errors}++;
638: }
639: }
640: elsif ($line =~ /(^[\#]*[\s]*except-interface\=)([0-9a-zA-Z\.\-\/]*)/ )
641: {
642: $subline=$2;
643: %temp = {};
644: if( $subline =~ /($NAME)/ )
645: {
646: $temp{line}=$lineno;
647: $temp{iface}=$1;
648: $temp{used}= ($line !~ /^\#/);
649: push @{ $$config{ex_interface} }, { %temp };
650: }
651: else
652: {
653: print "Error in line $lineno!";
654: $$config{errors}++;
655: }
656: }
657: elsif ($line =~ /(^[\#]*[\s]*interface\=)([0-9a-zA-Z\.\-\/]*)/ )
658: {
659: $subline=$2;
660: %temp = {};
661: if( $subline =~ /($NAME)/ )
662: {
663: $temp{line}=$lineno;
664: $temp{iface}=$1;
665: $temp{used}= ($line !~ /^\#/);
666: push @{ $$config{interface} }, { %temp };
667: }
668: else
669: {
670: print "Error in line $lineno!";
671: $$config{errors}++;
672: }
673: }
674: elsif ($line =~ /^[\#]*[\s]*bind-interfaces/ )
675: {
676: $$config{bind_interfaces}{used}=($line!~/^\#/);
677: $$config{bind_interfaces}{line}=$lineno;
678: }
679: # hosts file
680: elsif ($line =~ /^[\#]*[\s]*no-hosts/ )
681: {
682: $$config{no_hosts}{used}=($line!~/^\#/);
683: $$config{no_hosts}{line}=$lineno;
684: }
685: elsif ($line =~ /(^[\#]*[\s]*addn-hosts\=)([0-9a-zA-Z\_\.\-\/]*)/ )
686: {
687: $$config{addn_hosts}{line}=$lineno;
688: $$config{addn_hosts}{file}=$2;
689: $$config{addn_hosts}{used}=($line!~/^\#/);
690: }
691: # add domain to hosts file?
692: elsif ($line =~ /^[\#]*[\s]*expand-hosts/ )
693: {
694: $$config{expand_hosts}{used}=($line!~/^\#/);
695: $$config{expand_hosts}{line}=$lineno;
696: }
697: # translate wild-card responses to NXDOMAIN
698: elsif ($line =~ /(^[\#]*[\s]*bogus-nxdomain\=)([0-9\.]*)/ )
699: {
700: $subline=$2;
701: %temp = {};
702: if( $subline =~ /($IPADDR)/ )
703: {
704: $temp{line}=$lineno;
705: $temp{addr}=$1;
706: $temp{used}= ($line !~ /^\#/);
707: push @{ $$config{bogus} }, { %temp };
708: }
709: else
710: {
711: print "Error in line $lineno!";
712: $$config{errors}++;
713: }
714: }
715: # local domain
716: elsif ($line =~ /(^[\#]*[\s]*domain\=)([0-9a-zA-Z\.\-\/]*)/ )
717: {
718: $$config{domain}{line}=$lineno;
719: $$config{domain}{domain}=$2;
720: $$config{domain}{used}=($line!~/^\#/);
721: }
722: # cache size
723: elsif ($line =~ /(^[\#]*[\s]*cache-size\=)([0-9]*)/ )
724: {
725: $$config{cache_size}{line}=$lineno;
726: $$config{cache_size}{size}=$2;
727: $$config{cache_size}{used}=($line !~/^\#/);
728: }
729: # negative cache
730: elsif ($line =~ /(^[\#]*[\s]*no-negcache)/ )
731: {
732: $$config{neg_cache}{line}=$lineno;
733: $$config{neg_cache}{used}=($line !~/^\#/);
734: }
735: # local ttl
736: elsif ($line =~ /(^[\#]*[\s]*local-ttl\=)([0-9]*)/ )
737: {
738: $$config{local_ttl}{line}=$lineno;
739: $$config{local_ttl}{ttl}=$2;
740: $$config{local_ttl}{used}=($line !~/^\#/);
741: }
742: # log requests?
743: elsif ($line =~ /(^[\#]*[\s]*log-queries)/ )
744: {
745: $$config{log_queries}{line}=$lineno;
746: $$config{log_queries}{used}=($line !~/^\#/);
747: }
748: # alias IP addresses
749: elsif ($line =~ /(^[\#]*[\s]*alias\=)([0-9\.\,]*)/ )
750: {
751: $subline=$2;
752: %temp = {};
753: if( $subline =~ /($IPADDR)\,($IPADDR)\,($IPADDR)/ )
754: { # with netmask
755: $temp{line}=$lineno;
756: $temp{from}=$1;
757: $temp{to}=$2;
758: $temp{netmask}=$3;
759: $temp{netmask_used}=1;
760: $temp{used}= ($line !~ /^\#/);
761: push @{ $$config{alias} }, { %temp };
762: }
763: elsif( $subline =~ /($IPADDR)\,($IPADDR)/ )
764: { # no netmask
765: $temp{line}=$lineno;
766: $temp{from}=$1;
767: $temp{to}=$2;
768: $temp{netmask}=0;
769: $temp{netmask_used}=0;
770: $temp{used}= ($line !~ /^\#/);
771: push @{ $$config{alias} }, { %temp };
772: }
773: else
774: {
775: print "Error in line $lineno!";
776: $$config{errors}++;
777: }
778: }
779: # DHCP
780: # address range to use
781: elsif ($line =~ /(^[\#]*[\s]*dhcp-range\=)([0-9a-zA-Z\.\,\-\_]*)/ )
782: {
783: %temp={};
784: $subline=$2;
785: $temp{line}=$lineno;
786: $temp{used}=($line !~/^\#/);
787: if ($subline =~ /^($NAME)\,($IPADDR)\,($IPADDR)\,($IPADDR)(\,*)(\d*[mh]*)/ )
788: {
789: # network id, start, end, netmask, time (optionally)
790: $temp{id}=$1;
791: $temp{id_used}=1;
792: $temp{start}=$2;
793: $temp{end}=$3;
794: $temp{mask}=$4;
795: $temp{mask_used}=1;
796: $temp{leasetime}=$6;
797: $temp{time_used}=($6 =~ /^\d/);
798: $temp{used} =( $line !~ /^\#/ );
799: push @{ $$config{dhcp_range} }, { %temp };
800: }
801: elsif ($subline =~ /^($NAME)\,($IPADDR)\,($IPADDR)(\,*)(\d*[mh]*)/ )
802: {
803: # network id, start, end, time (optionally)
804: $temp{id}=$1;
805: $temp{id_used}=1;
806: $temp{start}=$2;
807: $temp{end}=$3;
808: $temp{mask}="";
809: $temp{mask_used}=0;
810: $temp{leasetime}=$5;
811: $temp{time_used}=($5 =~ /^\d/);
812: $temp{used} =( $line !~ /^\#/ );
813: push @{ $$config{dhcp_range} }, { %temp };
814: }
815: elsif ($subline =~ /^($IPADDR)\,($IPADDR)\,($IPADDR)(\,*)(\d*[mh]*)/ )
816: {
817: # start, end, netmask, time (optionally)
818: $temp{id}="";
819: $temp{id_used}=0;
820: $temp{start}=$1;
821: $temp{end}=$2;
822: $temp{mask}=$3;
823: $temp{mask_used}=1;
824: $temp{leasetime}=$5;
825: $temp{time_used}=($5 =~ /^\d/);
826: $temp{used} =( $line !~ /^\#/ );
827: push @{ $$config{dhcp_range} }, { %temp };
828: }
829: elsif ($subline =~ /^($IPADDR)\,($IPADDR)(\,*)(\d*[mh]*)/ )
830: {
831: # start, end, time (optionally)
832: $temp{id}="";
833: $temp{id_used}=0;
834: $temp{start}=$1;
835: $temp{end}=$2;
836: $temp{mask}="";
837: $temp{mask_used}=0;
838: $temp{leasetime}=$4;
839: $temp{time_used}=($4 =~ /^\d/);
840: $temp{used} =( $line !~ /^\#/ );
841: push @{ $$config{dhcp_range} }, { %temp };
842: }
843: else
844: {
845: print "Error in line $lineno!";
846: $$config{errors}++;
847: }
848: }
849: # specify hosts
850: elsif ($line =~ /(^[\#]*[\s]*dhcp-host\=)([0-9a-zA-Z\.\:\,\*]*)/)
851: {
852: # too many to classify - all as string!
853: %temp = {};
854: $temp{line}=$lineno;
855: $temp{option}=$2;
856: $temp{used}=($line !~/^\#/);
857: push @{ $$config{dhcp_host} }, { %temp };
858: }
859: # vendor class
860: elsif ($line =~ /(^[\#]*[\s]*dhcp-vendorclass\=)($NAME)\,($NAME)/ )
861: {
862: %temp = {};
863: $temp{line}=$lineno;
864: $temp{class}=$2;
865: $temp{vendor}=$3;
866: $temp{used}=($line !~/^\#/);
867: push @{ $$config{vendor_class} }, { %temp };
868: }
869: # user class
870: elsif ($line =~ /(^[\#]*[\s]*dhcp-userclass\=)($NAME)\,($NAME)/ )
871: {
872: %temp = {};
873: $temp{line}=$lineno;
874: $temp{class}=$2;
875: $temp{user}=$3;
876: $temp{used}=($line !~/^\#/);
877: push @{ $$config{user_class} }, { %temp };
878: }
879: # /etc/ethers?
880: elsif ($line =~ /(^[\#]*[\s]*read-ethers)/ )
881: {
882: $$config{dhcp_ethers}{line}=$lineno;
883: $$config{dhcp_ethers}{used}=($line !~/^\#/);
884: }
885: # dchp options
886: elsif ($line =~ /(^[\#]*[\s]*dhcp-option\=)([0-9a-zA-Z\,\_\.]*)/ )
887: {
888: # too many to classify - all as string!
889: %temp = {};
890: $temp{line}=$lineno;
891: $temp{option}=$2;
892: $temp{used}=($line !~/^\#/);
893: push @{ $$config{dhcp_option} }, { %temp };
894: }
895: # lease time
896: elsif ($line =~ /(^[\#]*[\s]*dhcp-lease-max\=)([0-9]*)/ )
897: {
898: $$config{dhcp_leasemax}{line}=$lineno;
899: $$config{dhcp_leasemax}{max}=$2;
900: $$config{dhcp_leasemax}{used}=($line !~/^\#/);
901: }
902: # bootp host & file
903: elsif ($line =~ /(^[\#]*[\s]*dhcp-boot\=)([0-9a-zA-Z0-9\,\_\.\/]*)/ )
904: {
905: $subline=$2;
906: if( $subline =~ /([0-9a-zA-Z\.\-\_\/]+)\,($NAME)\,($IPADDR)/ )
907: {
908: $$config{dhcp_boot}{line}=$lineno;
909: $$config{dhcp_boot}{file}=$1;
910: $$config{dhcp_boot}{host}=$2;
911: $$config{dhcp_boot}{address}=$3;
912: $$config{dhcp_boot}{used}=($line !~/^\#/);
913: }
914: }
915: # leases file
916: elsif ($line =~ /(^[\#]*[\s]*dhcp-leasefile\=)([0-9a-zA-Z0-9\_\.\/]*)/ )
917: {
918: $$config{dhcp_leasefile}{line}=$lineno;
919: $$config{dhcp_leasefile}{file}=$2;
920: $$config{dhcp_leasefile}{used}=($line !~/^\#/);
921: }
922: else
923: {
924: # everything else that's not a comment
925: # we don't understand so it may be an error!
926: if( $line !~ /^#/ )
927: {
928: $config{errors}++;
929: }
930: }
931: }
932: }
933:
934: } #end of sub read_config_file
935: #
936: # update the config file array
937: #
938: # arguments are:
939: # $lineno - the line number (array index) to update
940: # $text - the new contents of the line
941: # $file - reference to the array to change
942: # $comm - put a comment marker ('#') at start of line?
943: # false (0) means comment the line
944: #
945: sub update
946: {
947: my $lineno = shift;
948: my $text = shift;
949: my $file = shift;
950: my $comm = shift;
951: my $line;
952:
953: $line = ( $comm != 0 ) ?
954: $text :
955: "#" . $text;
956: if( $lineno == 0 )
957: {
958: push @$file, $line;
959: }
960: else
961: {
962: @$file[$lineno]=$line;
963: }
964: } # end of sub update
965: 1;
966: dnsmasq/servers.cgi 0000755 0000000 0000000 00000007040 10512350076 013402 0 ustar root root #!/usr/bin/perl
967: #
968: # DNSMasq Webmin Module - server.cgi; Upstream Servers config
969: # Copyright (C) 2006 by Neil Fisher
970: #
971: # This program is free software; you can redistribute it and/or modify
972: # it under the terms of the GNU General Public License as published by
973: # the Free Software Foundation; either version 2 of the License, or
974: # (at your option) any later version.
975: #
976: # This program is distributed in the hope that it will be useful,
977: # but WITHOUT ANY WARRANTY; without even the implied warranty of
978: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
979: # GNU General Public License for more details.
980: #
981: # This module inherited from the Webmin Module Template 0.79.1 by tn
982:
983: do '../web-lib.pl';
984: do '../ui-lib.pl';
985: do 'dnsmasq-lib.pl';
986:
987: $|=1;
988: &init_config("DNSMasq");
989:
990: %access=&get_module_acl;
991:
992: ## put in ACL checks here if needed
993:
994:
995: ## sanity checks
996:
997: &header($text{'index_title'}, "", "intro", 1, 1, undef,
998: "Written by Neil Fisher<BR><A HREF=mailto:neil\@magnecor.com.au>Author</A><BR><A HREF=http://www.authorpage.invalid>Home://page</A>");
999: # uses the index_title entry from ./lang/en or appropriate
1000:
1001: ## Insert Output code here
1002: # read config file
1003: $config_file = &read_file_lines( $config{config_file} );
1004: # pass into data structure
1005:
1006:
1007: # output as web page
1008:
1009: my $count=0;
1010: &header( "DNSMasq settings", "" );
1011: &parse_config_file( \%config, \$config_file );
1012: print "<h2>";
1013: print $text{'DNS_servers'};
1014: print "</h2>";
1015: print &ui_form_start( "srv_apply.cgi", "post" );
1016: print "<h3>".$text{dynamic}."</h3>";
1017: print $text{resolv};
1018: print &ui_yesno_radio( "resolv", ($config{no_resolv}{used}?0:1) );
1019: print "<br>".$text{resolv_file_explicit};
1020: print &ui_yesno_radio( "resolv_std", ($config{resolv_file}{used}?1:0) );
1021: print "<br>".$text{resolv_file};
1022: print &ui_textbox( "resolv_file", $config{resolv_file}{filename}, 50 );
1023: print "<br><br>".$text{poll}."<br>";
1024: print &ui_yesno_radio( "poll", ($config{no_poll}{used}?0:1) );
1025: print "<br><br>".$text{strict_order};
1026: print &ui_yesno_radio( "strict", ($config{strict_order}{used}?1:0) );
1027: print "<br><br><h3>".$text{in_file}."</h3>";
1028: print &ui_columns_start( [ $text{domain}, $text{address},
1029: $text{in_use}, "" ], 100 );
1030: foreach my $server ( @{$config{servers}} )
1031: {
1032: local ( $mover, $edit );
1033: if( $count == @{$config{servers}}-1 )
1034: {
1035: $mover="<img src=images/gap.gif>";
1036: }
1037: else
1038: {
1039: $mover = "<a href='srv_move.cgi?idx=$count&".
1040: "dir=down'><img src=".
1041: "images/down.gif border=0></a>";
1042: }
1043: if( $count == 0 )
1044: {
1045: $mover.="<img src=images/gap.gif>";
1046: }
1047: else
1048: {
1049: $mover .= "<a href='srv_move.cgi?idx=$count&".
1050: "dir=up'><img src=images/up.gif ".
1051: "border=0></a>";
1052: }
1053: $edit = "<a href=srv_edit.cgi?idx=$count>".$$server{address}."</a>";
1054: print &ui_columns_row( [ $$server{domain}, $edit,
1055: ($$server{used})?$text{used}:$text{not_used}, $mover ],
1056: [ "width=30%", "width=30%", "width=30%", "width=10%" ] );
1057: $count++;
1058: }
1059: print &ui_columns_end();
1060: print "<br><a href=add.cgi?what=server=0.0.0.0&where=servers.cgi>".
1061: $text{new_dns_serv}."</a><hr>";
1062: print "<br>" . &ui_submit( $text{'save_button'} );
1063: print &ui_form_end();
1064: print "<hr>";
1065: print "<a href=\"index.cgi\">";
1066: print $text{'DNS_settings'};
1067: print "</a><br>";
1068: print "<a href=\"iface.cgi\">";
1069: print $text{'iface_config'};
1070: print "</a><br>";
1071: print "<a href=\"alias.cgi\">";
1072: print $text{'alias_config'};
1073: print "</a><br>";
1074: print "<hr>";
1075: print "<a href=\"dhcp.cgi\">";
1076: print $text{'DHCP_config'};
1077: print "</a><br>";
1078: &footer("/", $text{'index'});
1079: # uses the index entry in /lang/en
1080:
1081:
1082:
1083: ## if subroutines are not in an extra file put them here
1084:
1085:
1086: ### END of servers.cgi ###.
1087: dnsmasq/iface.cgi 0000755 0000000 0000000 00000007117 10512345430 012763 0 ustar root root #!/usr/bin/perl
1088: #
1089: # DNSMasq Webmin Module - iface.cgi; network interfaces
1090: # Copyright (C) 2006 by Neil Fisher
1091: #
1092: # This program is free software; you can redistribute it and/or modify
1093: # it under the terms of the GNU General Public License as published by
1094: # the Free Software Foundation; either version 2 of the License, or
1095: # (at your option) any later version.
1096: #
1097: # This program is distributed in the hope that it will be useful,
1098: # but WITHOUT ANY WARRANTY; without even the implied warranty of
1099: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
1100: # GNU General Public License for more details.
1101: #
1102: # This module inherited from the Webmin Module Template 0.79.1 by tn
1103:
1104: do '../web-lib.pl';
1105: do '../ui-lib.pl';
1106: do 'dnsmasq-lib.pl';
1107:
1108: $|=1;
1109: &init_config("DNSMasq");
1110:
1111: %access=&get_module_acl;
1112:
1113: ## put in ACL checks here if needed
1114:
1115:
1116: ## sanity checks
1117:
1118: &header($text{'index_title'}, "", "intro", 1, 1, undef,
1119: "Written by Neil Fisher<BR><A HREF=mailto:neil\@magnecor.com.au>Author</A><BR><A HREF=http://www.authorpage.invalid>Home://page</A>");
1120: # uses the index_title entry from ./lang/en or appropriate
1121:
1122: ## Insert Output code here
1123: # read config file
1124: $config_file = &read_file_lines( $config{config_file} );
1125: # pass into data structure
1126:
1127:
1128: # output as web page
1129:
1130: my $count=0;
1131: &header( "DNSMasq settings", "" );
1132: &parse_config_file( \%config, \$config_file );
1133: print "<h2>";
1134: print $text{'iface_listen'};
1135: print "</h2>";
1136: print &ui_columns_start( [ $text{iface}, $text{in_use} ], 100 );
1137: foreach my $iface ( @{$config{interface}} )
1138: {
1139: my $edit = "<a href=iface_edit.cgi?idx=$count>".$$iface{iface}."</a>";
1140: print &ui_columns_row( [ $edit, ($$iface{used})?$text{used}:$text{not_used} ],
1141: [ "width=30%", "width=30%", "width=30%" ] );
1142: $count++;
1143: }
1144: print &ui_columns_end();
1145: print "<br><a href=add.cgi?what=interface=new&where=iface.cgi>".
1146: $text{new_iface}."</a><hr>";
1147: print "<h2>";
1148: print $text{'xiface_listen'};
1149: print "</h2>";
1150: $count=0;
1151: print &ui_columns_start( [ $text{xiface}, $text{in_use} ], 100 );
1152: foreach my $iface ( @{$config{ex_interface}} )
1153: {
1154: my $edit = "<a href=xiface_edit.cgi?idx=$count>".$$iface{iface}."</a>";
1155: print &ui_columns_row( [ $edit, ($$iface{used})?$text{used}:$text{not_used} ],
1156: [ "width=30%", "width=30%", "width=30%" ] );
1157: $count++;
1158: }
1159: print &ui_columns_end();
1160: print "<br><a href=add.cgi?what=except-interface=new&where=iface.cgi>".
1161: $text{new_iface}."</a><hr>";
1162: print "<h2>";
1163: print $text{'listen_addr'};
1164: print "</h2>";
1165: $count=0;
1166: print &ui_columns_start( [ $text{listen_addr}, $text{in_use} ], 100 );
1167: foreach my $iface ( @{$config{listen_on}} )
1168: {
1169: my $edit = "<a href=listen_edit.cgi?idx=$count>".$$iface{address}."</a>";
1170: print &ui_columns_row( [ $edit, ($$iface{used})?$text{used}:$text{not_used} ],
1171: [ "width=30%", "width=30%", "width=30%" ] );
1172: $count++;
1173: }
1174: print &ui_columns_end();
1175: print "<br>";
1176: print "<br><a href=add.cgi?what=listen-address=0.0.0.0&where=iface.cgi>".
1177: $text{new_addr}."</a><hr><br>";
1178: print &ui_form_start( 'iface_apply.cgi', "post" );
1179: print $text{bind_iface};
1180: print &ui_yesno_radio( "bind_iface", ($config{bind_interfaces}{used})?1:0 );
1181: print "<br>".&ui_submit( $text{save_button} );
1182: print &ui_form_end();
1183: print "<hr><br><a href=\"index.cgi\">".$text{'DNS_settings'}."</a><br>";
1184: print "<a href=\"servers.cgi\">".$text{'servers_config'}."</a><br>";
1185: print "<a href=\"alias.cgi\">".$text{'alias_config'}."</a><br>";
1186: print "<hr>";
1187: print "<a href=\"dhcp.cgi\">";
1188: print $text{'DHCP_config'};
1189: print "</a><br>";
1190: &footer("/", $text{'index'});
1191: # uses the index entry in /lang/en
1192:
1193:
1194:
1195: ## if subroutines are not in an extra file put them here
1196:
1197:
1198: ### END of iface.cgi ###.
1199: dnsmasq/iface_edit.cgi 0000755 0000000 0000000 00000004061 10512324451 013763 0 ustar root root #!/usr/bin/perl
1200: #
1201: # DNSMasq Webmin Module - iface_edit.cgi; edit interface
1202: # Copyright (C) 2006 by Neil Fisher
1203: #
1204: # This program is free software; you can redistribute it and/or modify
1205: # it under the terms of the GNU General Public License as published by
1206: # the Free Software Foundation; either version 2 of the License, or
1207: # (at your option) any later version.
1208: #
1209: # This program is distributed in the hope that it will be useful,
1210: # but WITHOUT ANY WARRANTY; without even the implied warranty of
1211: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
1212: # GNU General Public License for more details.
1213: #
1214: # This module inherited from the Webmin Module Template 0.79.1 by tn
1215:
1216: do '../web-lib.pl';
1217: do '../ui-lib.pl';
1218: do 'dnsmasq-lib.pl';
1219:
1220: $|=1;
1221: &init_config("DNSMasq");
1222:
1223: %access=&get_module_acl;
1224:
1225: ## put in ACL checks here if needed
1226:
1227:
1228: ## sanity checks
1229:
1230:
1231: ## Insert Output code here
1232: # read config file
1233: $config_file = &read_file_lines( $config{config_file} );
1234: # pass into data structure
1235: &parse_config_file( \%config, \$config_file );
1236: # read posted data
1237: &ReadParse();
1238: # check for errors in read config
1239: if( $config{errors} > 0 )
1240: {
1241: &header( "DNSMasq settings", "" );
1242: print "<hr><h2>";
1243: print $text{warn_errors};
1244: print $config{errors};
1245: print $text{didnt_apply};
1246: print "</h3><hr>\n";
1247: &footer( "/", $text{'index'});
1248: exit;
1249: }
1250: # adjust everything to what we got
1251: #
1252: &header( "DNSMasq settings", "" );
1253: print "<h2>".$text{edit_iface}."</h2>";
1254: print &ui_form_start( "iface_edit_apply.cgi", "post" );
1255: print &ui_hidden( "idx", $in{idx} );
1256: print "<br>".$text{in_use}.&ui_yesno_radio( "used",
1257: ($config{interface}[$in{idx}]{used})?1:0 );
1258: print "<br>".$text{iface_name};
1259: print &ui_textbox( "iface", $config{interface}[$in{idx}]{iface}, 50 );
1260: print "<br><br>" . &ui_submit( $text{'save_button'} )."<br>";
1261: print &ui_form_end();
1262: print "<a href=delete.cgi?idx=".$in{idx}."&what=interface&where=iface.cgi".
1263: ">".$text{delet}."</a>";
1264: print "<br><a href=iface.cgi>".$text{iface_config}."</a>";
1265: &footer( "/", $text{'index'});
1266: #
1267:
1268: #
1269: # sub-routines
1270: #
1271: ### END of iface_edit.cgi ###.
1272: dnsmasq/help/ 0000755 0000000 0000000 00000000000 10507121320 012141 5 ustar root root dnsmasq/help/intro.html 0000644 0000000 0000000 00000002022 10507121320 014156 0 ustar root root <header>DNSmasq Configuration</header>
1273:
1274: <h3>Introduction to DNSmasq</h3>
1275: DNSmasq is an integrated DNS caching proxy server and DHCP server designed
1276: to run on a host that is masquerading a local private network to the rest
1277: of the internet. <p>
1278: <h3>Configuring DNSmasq</h3>
1279: In most cases, all you'll need to change will be the local domain name. Under
1280: some circumstances, you may want to change how DNSmasq resolves names to
1281: allow for other local nameservers (if for example you are using a VPN
1282: tunnel to another location).<p>
1283: All the functionality of DNSmasq is beyond the scope of this help file -
1284: please read the man pages!
1285: <h3>Limitations</h3>
1286: Please read the README file.<br>
1287: In Short, this is a quick and dirty implementation with virtually <em>
1288: no error checking</em>. Therefore, it assumes <em>you
1289: know what you are doing!</em> <br>
1290: <h3>Use with care!</h3> If you enter a name where a IP address
1291: should be (for example) then you may need to edit the config file
1292: manually to remove or edit the offending line. YOU HAVE BEEN WARNED!
1293: dnsmasq/alias.cgi 0000755 0000000 0000000 00000007540 10512627251 013011 0 ustar root root #!/usr/bin/perl
1294: #
1295: # DNSMasq Webmin Module - alias.cgi; aliasing and redirection
1296: # Copyright (C) 2006 by Neil Fisher
1297: #
1298: # This program is free software; you can redistribute it and/or modify
1299: # it under the terms of the GNU General Public License as published by
1300: # the Free Software Foundation; either version 2 of the License, or
1301: # (at your option) any later version.
1302: #
1303: # This program is distributed in the hope that it will be useful,
1304: # but WITHOUT ANY WARRANTY; without even the implied warranty of
1305: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
1306: # GNU General Public License for more details.
1307: #
1308: # This module inherited from the Webmin Module Template 0.79.1 by tn
1309:
1310: do '../web-lib.pl';
1311: do '../ui-lib.pl';
1312: do 'dnsmasq-lib.pl';
1313:
1314: $|=1;
1315: &init_config("DNSMasq");
1316:
1317: %access=&get_module_acl;
1318:
1319: ## put in ACL checks here if needed
1320:
1321:
1322: ## sanity checks
1323:
1324:
1325: ## Insert Output code here
1326: # read config file
1327: $config_file = &read_file_lines( $config{config_file} );
1328: # pass into data structure
1329:
1330:
1331: # output as web page
1332:
1333:
1334: &parse_config_file( \%config, \$config_file );
1335: if( $config{errors} > 0 )
1336: {
1337: my $line="error.cgi?line=xx&type=".$text{err_configbad};
1338: &redirect( $line );
1339: exit;
1340: }
1341: &header($text{'index_title'}, "", "intro", 1, 1, undef,
1342: "Written by Neil Fisher<BR><A HREF=mailto:neil\@magnecor.com.au>Author</A><BR><A HREF=http://www.authorpage.invalid>Home://page</A>");
1343: print "<hr>\n";
1344: # uses the index_title entry from ./lang/en or appropriate
1345: print "<br>\n";
1346: print "<h2>".$text{forced}."</h2>";
1347: print "<br><br>\n";
1348: my $count=0;
1349: print &ui_columns_start( [ $text{forced_domain}, $text{forced_ip},
1350: $text{in_use} ], 100 );
1351: foreach my $frcd ( @{$config{forced}} )
1352: {
1353: my $edit = "<a href=forced_edit.cgi?idx=$count>".$$frcd{domain}."</a>";
1354: print &ui_columns_row( [ $edit, $$frcd{addr}, ($$frcd{used}) ?
1355: $text{used} : $text{not_used} ],
1356: [ "width=30%", "width=30%", "width=30%" ] );
1357: $count++;
1358: }
1359: print &ui_columns_end();
1360: print "<br>\n";
1361: print "<a href=add.cgi?what=address=/new/0.0.0.0&where=alias.cgi>".
1362: $text{forced_add}."</a>";
1363: print "<br>\n";
1364: print "<br><br>\n";
1365: print "<hr>";
1366: print "<br>\n";
1367: print "<h2>".$text{alias}."</h2>";
1368: print "<br><br>\n";
1369: $count=0;
1370: print &ui_columns_start( [ $text{forced_from}, $text{forced_ip},
1371: $text{forced_mask}, $text{in_use} ], 100 );
1372: foreach my $frcd ( @{$config{alias}} )
1373: {
1374: my $edit = "<a href=alias_edit.cgi?idx=$count>".$$frcd{from}."</a>";
1375: print &ui_columns_row( [
1376: $edit, $$frcd{to},
1377: ($$frcd{netmask_used}) ?
1378: $$frcd{netmask} : "255.255.255.255",
1379: ($$frcd{used}) ?
1380: $text{used} : $text{not_used} ],
1381: [ "width=25%", "width=25%", "width=25%", "width=25%" ] );
1382: $count++;
1383: }
1384: print &ui_columns_end();
1385: print "<br>\n";
1386: print "<a href=add.cgi?what=alias=0.0.0.0,0.0.0.0&where=alias.cgi>".
1387: $text{alias_add}."</a>";
1388: print "<br>\n";
1389: print "<hr>";
1390: print "<br>\n";
1391: print "<h2>".$text{nx}."</h2>";
1392: print "<br><br>\n";
1393: $count=0;
1394: print &ui_columns_start( [ $text{forced_from}, $text{in_use} ], 100 );
1395: foreach my $frcd ( @{$config{bogus}} )
1396: {
1397: my $edit = "<a href=nx_edit.cgi?idx=$count>".$$frcd{addr}."</a>";
1398: print &ui_columns_row( [
1399: $edit,
1400: ($$frcd{used}) ?
1401: $text{used} : $text{not_used} ],
1402: [ "width=50%", "width=50%" ] );
1403: $count++;
1404: }
1405: print &ui_columns_end();
1406: print "<br>\n";
1407: print "<a href=add.cgi?what=bogus-nxdomain=0.0.0.0&where=alias.cgi>".
1408: $text{nx_add}."</a>";
1409: print "<br>\n";
1410: print "<hr>";
1411: print "<br><br>\n";
1412: print "<br><br>\n";
1413: print "<a href=\"index.cgi\">";
1414: print $text{'DNS_settings'};
1415: print "</a><br>";
1416: print "<a href=\"servers.cgi\">";
1417: print $text{'DNS_servers'};
1418: print "</a><br>";
1419: print "<a href=\"iface.cgi\">";
1420: print $text{'iface_config'};
1421: print "</a><br>";
1422: print "<hr>";
1423: print "<a href=\"dhcp.cgi\">";
1424: print $text{'DHCP_config'};
1425: print "</a><br>";
1426: &footer("/", $text{'index'});
1427: # uses the index entry in /lang/en
1428:
1429:
1430:
1431: ## if subroutines are not in an extra file put them here
1432:
1433:
1434: ### END of alias.cgi ###.
1435: dnsmasq/dhcp.cgi 0000755 0000000 0000000 00000013060 10512347345 012633 0 ustar root root #!/usr/bin/perl
1436: #
1437: # DNSMasq Webmin Module - dhcp.cgi; DHCP config
1438: # Copyright (C) 2006 by Neil Fisher
1439: #
1440: # This program is free software; you can redistribute it and/or modify
1441: # it under the terms of the GNU General Public License as published by
1442: # the Free Software Foundation; either version 2 of the License, or
1443: # (at your option) any later version.
1444: #
1445: # This program is distributed in the hope that it will be useful,
1446: # but WITHOUT ANY WARRANTY; without even the implied warranty of
1447: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
1448: # GNU General Public License for more details.
1449: #
1450: # This module inherited from the Webmin Module Template 0.79.1 by tn
1451:
1452: do '../web-lib.pl';
1453: do '../ui-lib.pl';
1454: do 'dnsmasq-lib.pl';
1455:
1456: $|=1;
1457: &init_config("DNSMasq");
1458:
1459: %access=&get_module_acl;
1460:
1461: ## put in ACL checks here if needed
1462:
1463:
1464: ## sanity checks
1465:
1466: &header($text{'index_title'}, "", "intro", 1, 1, undef,
1467: "Written by Neil Fisher<BR><A HREF=mailto:neil\@magnecor.com.au>Author</A><BR><A HREF=http://www.authorpage.invalid>Home://page</A>");
1468: # uses the index_title entry from ./lang/en or appropriate
1469:
1470: ## Insert Output code here
1471: # read config file
1472: $config_file = &read_file_lines( $config{config_file} );
1473: # pass into data structure
1474:
1475:
1476: # output as web page
1477:
1478:
1479: &header( "DNSMasq settings", "" );
1480: &parse_config_file( \%config, \$config_file );
1481: print "<hr>\n";
1482: if( $config{errors} > 0 )
1483: {
1484: print "<h3>WARNING: found ";
1485: print $config{errors};
1486: print "errors in config file!</h3><br>\n";
1487: }
1488: print "<br>\n";
1489: print "<h2>$text{'DHCP_settings'}</h2>";
1490: print "<br><hr><br>\n";
1491: my $count;
1492: my $width;
1493: $count=0;
1494: $width="width=33%";
1495: print "<h2>".$text{vendor_classes}."</h2>";
1496: print &ui_columns_start( [ $text{class},
1497: $text{vendor}, $text{in_use} ], 100 );
1498: foreach my $range ( @{$config{vendor_class}} )
1499: {
1500: my $edit = "<a href=vend_edit.cgi?idx=$count>".$$range{class}."</a>";
1501: print &ui_columns_row( [
1502: $edit, $$range{vendor},
1503: ($$range{used}) ?
1504: $text{used} : $text{not_used} ],
1505: [ $width, $width, $width ] );
1506: $count++;
1507: }
1508: print &ui_columns_end();
1509: print "<br><a href=add.cgi?what=dhcp-vendorclass=new&where=dhcp.cgi>".
1510: $text{vend_add}."</a><br><hr><br>";
1511: $count=0;
1512: $width="width=33%";
1513: print "<h2>".$text{user_classes}."</h2>";
1514: print &ui_columns_start( [ $text{class},
1515: $text{user}, $text{in_use} ], 100 );
1516: foreach my $range ( @{$config{user_class}} )
1517: {
1518: my $edit = "<a href=user_edit.cgi?idx=$count>".$$range{class}."</a>";
1519: print &ui_columns_row( [
1520: $edit, $$range{user},
1521: ($$range{used}) ?
1522: $text{used} : $text{not_used} ],
1523: [ $width, $width, $width ] );
1524: $count++;
1525: }
1526: print &ui_columns_end();
1527: print "<br><a href=add.cgi?what=dhcp-userclass=new&where=dhcp.cgi>".
1528: $text{user_add}."</a><br><hr><br>";
1529: $count=0;
1530: $width="20%";
1531: print "<h2>".$text{dhcp_range}."</h2>";
1532: print &ui_columns_start( [ $text{net_id}, $text{forced_from}, $text{forced_ip},
1533: $text{forced_mask}, $text{leasetime},
1534: $text{in_use} ], 100 );
1535: foreach my $range ( @{$config{dhcp_range}} )
1536: {
1537: my $edit = "<a href=range_edit.cgi?idx=$count>".$$range{start}."</a>";
1538: print &ui_columns_row( [
1539: $$range{id}, $edit, $$range{end}, $$range{mask},
1540: $$range{leasetime},
1541: ($$range{used}) ?
1542: $text{used} : $text{not_used} ],
1543: [ $width, $width, $width, $width, $width ] );
1544: $count++;
1545: }
1546: print &ui_columns_end();
1547: print "<br><a href=add.cgi?what=dhcp-range=0.0.0.0,0.0.0.0&where=dhcp.cgi>".
1548: $text{range_add}."</a><br><hr><br>";
1549: $count=0;
1550: $width="width=50%";
1551: print "<h2>".$text{hosts}."</h2>";
1552: print &ui_columns_start( [ $text{hosts}, $text{in_use} ], 100 );
1553: foreach my $range ( @{$config{dhcp_host}} )
1554: {
1555: my $edit = "<a href=host_edit.cgi?idx=$count>".$$range{option}."</a>";
1556: print &ui_columns_row( [
1557: $edit,
1558: ($$range{used}) ?
1559: $text{used} : $text{not_used} ],
1560: [ $width, $width ] );
1561: $count++;
1562: }
1563: print &ui_columns_end();
1564: print "<br><a href=add.cgi?what=dhcp-host=new,0.0.0.0&where=dhcp.cgi>".
1565: $text{host_add}."</a><br><hr><br>";
1566: $count=0;
1567: $width="width=50%";
1568: print "<h2>".$text{dhcp_options}."</h2>";
1569: print &ui_columns_start( [ $text{dhcp_option}, $text{in_use} ], 100 );
1570: foreach my $range ( @{$config{dhcp_option}} )
1571: {
1572: my $edit = "<a href=option_edit.cgi?idx=$count>".$$range{option}."</a>";
1573: print &ui_columns_row( [
1574: $edit,
1575: ($$range{used}) ?
1576: $text{used} : $text{not_used} ],
1577: [ $width, $width ] );
1578: $count++;
1579: }
1580: print &ui_columns_end();
1581: print "<br><a href=add.cgi?what=dhcp-option=27&where=dhcp.cgi>".
1582: $text{dhcp_add}."</a><br><hr><br>";
1583: print &ui_form_start( 'dhcp_apply.cgi', "get" );
1584: print "<h2>".$text{misc}."</h2><br>";
1585: print $text{read_ethers}.&ui_yesno_radio( "ethers",
1586: ($config{dhcp_ethers}{used})?1:0 );
1587: print "<br><br>".$text{use_bootp}.&ui_yesno_radio ( "bootp",
1588: ($config{dhcp_boot}{used})?1:0 );
1589: print "<br>".$text{bootp_host}.&ui_textbox( "bootp_host",
1590: $config{dhcp_boot}{host}, 80 );
1591: print "<br>".$text{bootp_file}.&ui_textbox( "bootp_file",
1592: $config{dhcp_boot}{file}, 80 );
1593: print "<br>".$text{bootp_address}.&ui_textbox( "bootp_addr",
1594: $config{dhcp_boot}{address}, 80 );
1595: print "<br><br>".$text{max_leases}.&ui_textbox( "max_leases",
1596: $config{dhcp_leasemax}{max}, 10 );
1597: print "<br><br>".$text{leasefile}.&ui_yesno_radio( "useleasefile",
1598: ($config{dhcp_leasefile}{used})?1:0 );
1599: print "<br>".$text{lfiletouse}.&ui_textbox( "leasefile",
1600: $config{dhcp_leasefile}{file}, 80 );
1601: print "<br><br>".&ui_submit( $text{'save_button'} );
1602: print &ui_form_end( );
1603: print "<br><hr><br><a href=\"index.cgi\">";
1604: print $text{'DNS_settings'};
1605: print "</a><br>";
1606: &footer("/", $text{'index'});
1607: # uses the index entry in /lang/en
1608:
1609:
1610:
1611: ## if subroutines are not in an extra file put them here
1612:
1613:
1614: ### END of dhcp.cgi ###.
1615: dnsmasq/restart.cgi 0000755 0000000 0000000 00000003005 10507123056 013372 0 ustar root root #!/usr/bin/perl
1616: #
1617: # DNSMasq Webmin Module - restart.cgi; restart DNSmasq
1618: # Copyright (C) 2006 by Neil Fisher
1619: #
1620: # This program is free software; you can redistribute it and/or modify
1621: # it under the terms of the GNU General Public License as published by
1622: # the Free Software Foundation; either version 2 of the License, or
1623: # (at your option) any later version.
1624: #
1625: # This program is distributed in the hope that it will be useful,
1626: # but WITHOUT ANY WARRANTY; without even the implied warranty of
1627: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
1628: # GNU General Public License for more details.
1629: #
1630: # This module inherited from the Webmin Module Template 0.79.1 by tn
1631:
1632: do '../web-lib.pl';
1633: do '../ui-lib.pl';
1634: do 'dnsmasq-lib.pl';
1635:
1636: $|=1;
1637: &init_config("DNSMasq");
1638:
1639: %access=&get_module_acl;
1640:
1641: ## put in ACL checks here if needed
1642:
1643:
1644: ## sanity checks
1645:
1646: &header($text{'index_title'}, "", "intro", 1, 1, undef,
1647: "Written by Neil Fisher<BR><A HREF=mailto:neil\@magnecor.com.au>Author</A><BR><A HREF=http://www.authorpage.invalid>Home://page</A>");
1648: # uses the index_title entry from ./lang/en or appropriate
1649:
1650: ## Insert Output code here
1651:
1652:
1653: # output as web page
1654:
1655: my $line=$config{restart};
1656: &header( "DNSMasq settings", "" );
1657: print $text{restarting} . "<br>";
1658: print `$line`;
1659: print "<br><hr><a href=index.cgi>";
1660: print $text{DNS_settings};
1661: print "</a>";
1662: &footer("/", $text{'index'});
1663: # uses the index entry in /lang/en
1664:
1665:
1666:
1667: ## if subroutines are not in an extra file put them here
1668:
1669:
1670: ### END of restart.cgi ###.
1671: dnsmasq/srv_apply.cgi 0000755 0000000 0000000 00000004153 10512642213 013727 0 ustar root root #!/usr/bin/perl
1672: #
1673: # DNSMasq Webmin Module - srv_apply.cgi; update DNS server info
1674: # Copyright (C) 2006 by Neil Fisher
1675: #
1676: # This program is free software; you can redistribute it and/or modify
1677: # it under the terms of the GNU General Public License as published by
1678: # the Free Software Foundation; either version 2 of the License, or
1679: # (at your option) any later version.
1680: #
1681: # This program is distributed in the hope that it will be useful,
1682: # but WITHOUT ANY WARRANTY; without even the implied warranty of
1683: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
1684: # GNU General Public License for more details.
1685: #
1686: # This module inherited from the Webmin Module Template 0.79.1 by tn
1687:
1688: do '../web-lib.pl';
1689: do '../ui-lib.pl';
1690: do 'dnsmasq-lib.pl';
1691:
1692: $|=1;
1693: &init_config("DNSMasq");
1694:
1695: %access=&get_module_acl;
1696:
1697: ## put in ACL checks here if needed
1698:
1699:
1700: ## sanity checks
1701:
1702:
1703: ## Insert Output code here
1704: # read config file
1705: $config_file = &read_file_lines( $config{config_file} );
1706: # pass into data structure
1707: &parse_config_file( \%config, \$config_file );
1708: # read posted data
1709: &ReadParse();
1710: # check for errors in read config
1711: if( $config{errors} > 0 )
1712: {
1713: my $line = "error.cgi?line=xx&type=".$text{err_configbad};
1714: &redirect( $line );
1715: exit;
1716: }
1717: # check for input data errors
1718: if( ($in{resolv_std}) && ($in{resolv_file} !~ /^$FILE$/) )
1719: {
1720: my $line = "error.cgi?line=".$text{resolv_file};
1721: $line .= "&type=".$text{err_filebad};
1722: &redirect( $line );
1723: exit;
1724: }
1725: # adjust everything to what we got
1726:
1727: #
1728: # use resolv.conf?
1729: #
1730: &update( $config{no_resolv}{line}, "no-resolv",
1731: $config_file, ( $in{resolv} == 0 ) );
1732: #
1733: # standard location for resolv.conf?
1734: #
1735: &update( $config{resolv_file}{line}, "resolv-file=".$in{resolv_file},
1736: $config_file, ( $in{resolv_std} == 1 ) );
1737:
1738: #
1739: # servers in order provided?
1740: #
1741: &update( $config{strict_order}{line}, "strict-order",
1742: $config_file, ( $in{strict} == 1 ) );
1743: #
1744: # poll resolv.conf?
1745: #
1746: &update( $config{no_poll}{line}, "no-poll",
1747: $config_file, ( $in{poll} == 0 ) );
1748: #
1749: #
1750: # write file!!
1751: &flush_file_lines();
1752: #
1753: # re-load basic page
1754: &redirect( "servers.cgi" );
1755:
1756: #
1757: # sub-routines
1758: #
1759: ### END of srv_apply.cgi ###.
1760: dnsmasq/restart.sh 0000755 0000000 0000000 00000000340 10506066357 013252 0 ustar root root #!/bin/bash
1761: echo "killing existing process PID is "
1762: cat /var/run/dnsmasq.pid
1763: kill -9 `cat /var/run/dnsmasq.pid`
1764: echo "done. Starting new process..."
1765: /usr/local/sbin/dnsmasq
1766: echo "Done. New PID is "
1767: cat /var/run/dnsmasq.pid
1768:
1769: dnsmasq/srv_move.cgi 0000755 0000000 0000000 00000004045 10507102723 013551 0 ustar root root #!/usr/bin/perl
1770: #
1771: # DNSMasq Webmin Module - dns_move.cgi; move server
1772: # Copyright (C) 2006 by Neil Fisher
1773: #
1774: # This program is free software; you can redistribute it and/or modify
1775: # it under the terms of the GNU General Public License as published by
1776: # the Free Software Foundation; either version 2 of the License, or
1777: # (at your option) any later version.
1778: #
1779: # This program is distributed in the hope that it will be useful,
1780: # but WITHOUT ANY WARRANTY; without even the implied warranty of
1781: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
1782: # GNU General Public License for more details.
1783: #
1784: # This module inherited from the Webmin Module Template 0.79.1 by tn
1785:
1786: do '../web-lib.pl';
1787: do '../ui-lib.pl';
1788: do 'dnsmasq-lib.pl';
1789:
1790: $|=1;
1791: &init_config("DNSMasq");
1792:
1793: %access=&get_module_acl;
1794:
1795: ## put in ACL checks here if needed
1796:
1797:
1798: ## sanity checks
1799:
1800:
1801: ## Insert Output code here
1802: # read config file
1803: $config_file = &read_file_lines( $config{config_file} );
1804: # pass into data structure
1805: &parse_config_file( \%config, \$config_file );
1806: # read posted data
1807: &ReadParse();
1808: # check for errors in read config
1809: if( $config{errors} > 0 )
1810: {
1811: &header( "DNSMasq settings", "" );
1812: print "<hr><h2>";
1813: print $text{warn_errors};
1814: print $config{errors};
1815: print $text{didnt_apply};
1816: print "</h3><hr>\n";
1817: &footer( "/", $text{'index'});
1818: exit;
1819: }
1820: # adjust everything to what we got
1821: #
1822: my $selected=$config{servers}[$in{idx}]{line};
1823: if( $in{dir} eq "up" )
1824: {
1825: $config{servers}[$in{idx}]{line}=$config{servers}[$in{idx}-1]{line};
1826: $config{servers}[$in{idx}-1]{line}=$selected;
1827: }
1828: else
1829: {
1830: $config{servers}[$in{idx}]{line}=$config{servers}[$in{idx}+1]{line};
1831: $config{servers}[$in{idx}+1]{line}=$selected;
1832: }
1833: foreach my $server (@{$config{servers}})
1834: {
1835: $line= ($$server{domain_used}) ?
1836: "server=/".$$server{domain}."/".$$server{address} :
1837: "server=".$$server{address};
1838: &update( $$server{line}, $line,
1839: $config_file, ($$server{used}) );
1840: }
1841: #
1842: # write file!!
1843: &flush_file_lines();
1844: #
1845: # re-load basic page
1846: &redirect( "servers.cgi" );
1847:
1848: #
1849: # sub-routines
1850: #
1851: ### END of dns_move.cgi ###.
1852: dnsmasq/srv_edit_apply.cgi 0000755 0000000 0000000 00000003646 10512642225 014745 0 ustar root root #!/usr/bin/perl
1853: #
1854: # DNSMasq Webmin Module - srv_edit_apply.cgi; do the update
1855: # Copyright (C) 2006 by Neil Fisher
1856: #
1857: # This program is free software; you can redistribute it and/or modify
1858: # it under the terms of the GNU General Public License as published by
1859: # the Free Software Foundation; either version 2 of the License, or
1860: # (at your option) any later version.
1861: #
1862: # This program is distributed in the hope that it will be useful,
1863: # but WITHOUT ANY WARRANTY; without even the implied warranty of
1864: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
1865: # GNU General Public License for more details.
1866: #
1867: # This module inherited from the Webmin Module Template 0.79.1 by tn
1868:
1869: do '../web-lib.pl';
1870: do '../ui-lib.pl';
1871: do 'dnsmasq-lib.pl';
1872:
1873: $|=1;
1874: &init_config("DNSMasq");
1875:
1876: %access=&get_module_acl;
1877:
1878: ## put in ACL checks here if needed
1879:
1880:
1881: ## sanity checks
1882:
1883:
1884: ## Insert Output code here
1885: # read config file
1886: $config_file = &read_file_lines( $config{config_file} );
1887: # pass into data structure
1888: &parse_config_file( \%config, \$config_file );
1889: # read posted data
1890: &ReadParse();
1891: # check for errors in read config
1892: if( $config{errors} > 0 )
1893: {
1894: my $line = "error.cgi?line=xx&type=".$text{err_configbad};
1895: &redirect( $line );
1896: exit;
1897: }
1898: # check for input data errors
1899: if( $in{addr} !~ /^$IPADDR$/ )
1900: {
1901: my $line = "error.cgi?line=".$text{srv_addr};
1902: $line .= "&type=".$text{err_notip};
1903: &redirect( $line );
1904: exit;
1905: }
1906: if( ($in{named}) && ($in{name} !~ /^$NAME$/) )
1907: {
1908: my $line = "error.cgi?line=".$text{srv_name};
1909: $line .= "&type=".$text{err_domainbad};
1910: &redirect( $line );
1911: exit;
1912: }
1913: # adjust everything to what we got
1914: #
1915: my $line="server=";
1916: $line .= ($in{named})?"/".$in{name}."/":"";
1917: $line .= $in{addr};
1918: &update( $config{servers}[$in{idx}]{line}, $line,
1919: $config_file, ( $in{used} == 1 ) );
1920: #
1921: # write file!!
1922: &flush_file_lines();
1923: #
1924: # re-load basic page
1925: &redirect( "servers.cgi" );
1926:
1927: #
1928: # sub-routines
1929: #
1930: ### END of srv_edit_apply.cgi ###.
1931: dnsmasq/delete.cgi 0000755 0000000 0000000 00000002654 10512627424 013165 0 ustar root root #!/usr/bin/perl
1932: #
1933: # DNSMasq Webmin Module - delete.cgi; delete a line
1934: # Copyright (C) 2006 by Neil Fisher
1935: #
1936: # This program is free software; you can redistribute it and/or modify
1937: # it under the terms of the GNU General Public License as published by
1938: # the Free Software Foundation; either version 2 of the License, or
1939: # (at your option) any later version.
1940: #
1941: # This program is distributed in the hope that it will be useful,
1942: # but WITHOUT ANY WARRANTY; without even the implied warranty of
1943: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
1944: # GNU General Public License for more details.
1945: #
1946: # This module inherited from the Webmin Module Template 0.79.1 by tn
1947:
1948: do '../web-lib.pl';
1949: do '../ui-lib.pl';
1950: do 'dnsmasq-lib.pl';
1951:
1952: $|=1;
1953: &init_config("DNSMasq");
1954:
1955: %access=&get_module_acl;
1956:
1957: ## put in ACL checks here if needed
1958:
1959:
1960: ## sanity checks
1961:
1962:
1963: ## Insert Output code here
1964: # read config file
1965: $config_file = &read_file_lines( $config{config_file} );
1966: # pass into data structure
1967: &parse_config_file( \%config, \$config_file );
1968: # read posted data
1969: &ReadParse();
1970: # check for errors in read config
1971: if( $config{errors} > 0 )
1972: {
1973: my $line="error.cgi?line=xx&type=".$text{err_configbad};
1974: &redirect( $line );
1975: exit;
1976: }
1977: # adjust everything to what we got
1978: #
1979: #
1980: &update( $config{$in{what}}[$in{idx}]{line}, "",
1981: $config_file, 0 );
1982: &flush_file_lines();
1983: &redirect( $in{where} );
1984: #
1985: # sub-routines
1986: #
1987: ### END of delete.cgi ###.
1988: dnsmasq/xiface_edit.cgi 0000755 0000000 0000000 00000004104 10512343715 014155 0 ustar root root #!/usr/bin/perl
1989: #
1990: # DNSMasq Webmin Module - xiface_edit.cgi; edit except interface
1991: # Copyright (C) 2006 by Neil Fisher
1992: #
1993: # This program is free software; you can redistribute it and/or modify
1994: # it under the terms of the GNU General Public License as published by
1995: # the Free Software Foundation; either version 2 of the License, or
1996: # (at your option) any later version.
1997: #
1998: # This program is distributed in the hope that it will be useful,
1999: # but WITHOUT ANY WARRANTY; without even the implied warranty of
2000: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2001: # GNU General Public License for more details.
2002: #
2003: # This module inherited from the Webmin Module Template 0.79.1 by tn
2004:
2005: do '../web-lib.pl';
2006: do '../ui-lib.pl';
2007: do 'dnsmasq-lib.pl';
2008:
2009: $|=1;
2010: &init_config("DNSMasq");
2011:
2012: %access=&get_module_acl;
2013:
2014: ## put in ACL checks here if needed
2015:
2016:
2017: ## sanity checks
2018:
2019:
2020: ## Insert Output code here
2021: # read config file
2022: $config_file = &read_file_lines( $config{config_file} );
2023: # pass into data structure
2024: &parse_config_file( \%config, \$config_file );
2025: # read posted data
2026: &ReadParse();
2027: # check for errors in read config
2028: if( $config{errors} > 0 )
2029: {
2030: &header( "DNSMasq settings", "" );
2031: print "<hr><h2>";
2032: print $text{warn_errors};
2033: print $config{errors};
2034: print $text{didnt_apply};
2035: print "</h3><hr>\n";
2036: &footer( "/", $text{'index'});
2037: exit;
2038: }
2039: # adjust everything to what we got
2040: #
2041: &header( "DNSMasq settings", "" );
2042: print "<h2>".$text{edit_xiface}."</h2>";
2043: print &ui_form_start( "xiface_edit_apply.cgi", "post" );
2044: print &ui_hidden( "idx", $in{idx} );
2045: print "<br>".$text{in_use}.&ui_yesno_radio( "used",
2046: ($config{ex_interface}[$in{idx}]{used})?1:0 );
2047: print "<br>".$text{xiface_name};
2048: print &ui_textbox( "iface", $config{ex_interface}[$in{idx}]{iface}, 50 );
2049: print "<br><br>" . &ui_submit( $text{'save_button'} )."<br>";
2050: print &ui_form_end();
2051: print "<a href=delete.cgi?idx=".$in{idx}."&what=ex_interface&where=dhcp.cgi>".
2052: $text{delet}."</a>";
2053: print "<br>< a href=iface.cgi>".$text{iface_config}."</a>";
2054: &footer( "/", $text{'index'});
2055: #
2056:
2057: #
2058: # sub-routines
2059: #
2060: ### END of xiface_edit.cgi ###.
2061: dnsmasq/listen_edit.cgi 0000755 0000000 0000000 00000004070 10512324553 014215 0 ustar root root #!/usr/bin/perl
2062: #
2063: # DNSMasq Webmin Module - listen_edit.cgi; edit listen on
2064: # Copyright (C) 2006 by Neil Fisher
2065: #
2066: # This program is free software; you can redistribute it and/or modify
2067: # it under the terms of the GNU General Public License as published by
2068: # the Free Software Foundation; either version 2 of the License, or
2069: # (at your option) any later version.
2070: #
2071: # This program is distributed in the hope that it will be useful,
2072: # but WITHOUT ANY WARRANTY; without even the implied warranty of
2073: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2074: # GNU General Public License for more details.
2075: #
2076: # This module inherited from the Webmin Module Template 0.79.1 by tn
2077:
2078: do '../web-lib.pl';
2079: do '../ui-lib.pl';
2080: do 'dnsmasq-lib.pl';
2081:
2082: $|=1;
2083: &init_config("DNSMasq");
2084:
2085: %access=&get_module_acl;
2086:
2087: ## put in ACL checks here if needed
2088:
2089:
2090: ## sanity checks
2091:
2092:
2093: ## Insert Output code here
2094: # read config file
2095: $config_file = &read_file_lines( $config{config_file} );
2096: # pass into data structure
2097: &parse_config_file( \%config, \$config_file );
2098: # read posted data
2099: &ReadParse();
2100: # check for errors in read config
2101: if( $config{errors} > 0 )
2102: {
2103: &header( "DNSMasq settings", "" );
2104: print "<hr><h2>";
2105: print $text{warn_errors};
2106: print $config{errors};
2107: print $text{didnt_apply};
2108: print "</h3><hr>\n";
2109: &footer( "/", $text{'index'});
2110: exit;
2111: }
2112: # adjust everything to what we got
2113: #
2114: &header( "DNSMasq settings", "" );
2115: print "<h2>".$text{edit_listen}."</h2>";
2116: print &ui_form_start( "listen_edit_apply.cgi", "post" );
2117: print &ui_hidden( "idx", $in{idx} );
2118: print "<br>".$text{in_use}.&ui_yesno_radio( "used",
2119: ($config{listen_on}[$in{idx}]{used})?1:0 );
2120: print "<br>".$text{listen_name};
2121: print &ui_textbox( "addr", $config{listen_on}[$in{idx}]{address}, 50 );
2122: print "<br><br>" . &ui_submit( $text{'save_button'} )."<br>";
2123: print &ui_form_end();
2124: print "<a href=delete.cgi?idx=".$in{idx}."&what=listen_on&where=iface.cgi".
2125: ">".$text{delet}."</a>";
2126: print "<br><a href=iface.cgi>".$text{iface_config}."</a>";
2127: &footer( "/", $text{'index'});
2128: #
2129:
2130: #
2131: # sub-routines
2132: #
2133: ### END of listen_edit.cgi ###.
2134: dnsmasq/nx_edit.cgi 0000755 0000000 0000000 00000004025 10512324660 013343 0 ustar root root #!/usr/bin/perl
2135: #
2136: # DNSMasq Webmin Module - nx_edit.cgi; edit forced NXDOMAIN
2137: # Copyright (C) 2006 by Neil Fisher
2138: #
2139: # This program is free software; you can redistribute it and/or modify
2140: # it under the terms of the GNU General Public License as published by
2141: # the Free Software Foundation; either version 2 of the License, or
2142: # (at your option) any later version.
2143: #
2144: # This program is distributed in the hope that it will be useful,
2145: # but WITHOUT ANY WARRANTY; without even the implied warranty of
2146: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2147: # GNU General Public License for more details.
2148: #
2149: # This module inherited from the Webmin Module Template 0.79.1 by tn
2150:
2151: do '../web-lib.pl';
2152: do '../ui-lib.pl';
2153: do 'dnsmasq-lib.pl';
2154:
2155: $|=1;
2156: &init_config("DNSMasq");
2157:
2158: %access=&get_module_acl;
2159:
2160: ## put in ACL checks here if needed
2161:
2162:
2163: ## sanity checks
2164:
2165:
2166: ## Insert Output code here
2167: # read config file
2168: $config_file = &read_file_lines( $config{config_file} );
2169: # pass into data structure
2170: &parse_config_file( \%config, \$config_file );
2171: # read posted data
2172: &ReadParse();
2173: # check for errors in read config
2174: if( $config{errors} > 0 )
2175: {
2176: &header( "DNSMasq settings", "" );
2177: print "<hr><h2>";
2178: print $text{warn_errors};
2179: print $config{errors};
2180: print $text{didnt_apply};
2181: print "</h3><hr>\n";
2182: &footer( "/", $text{'index'});
2183: exit;
2184: }
2185: # adjust everything to what we got
2186: #
2187: &header( "DNSMasq settings", "" );
2188: print "<h2>".$text{bogus}."</h2>";
2189: print &ui_form_start( "nx_edit_apply.cgi", "post" );
2190: print &ui_hidden( "idx", $in{idx} );
2191: print $text{forced_from}. &ui_textbox( "from",
2192: $config{bogus}[$in{idx}]{addr}, 15 );
2193: print "<br>".$text{in_use}.&ui_yesno_radio( "used",
2194: ($config{bogus}[$in{idx}]{used})?1:0 );
2195: print "<br><br>" . &ui_submit( $text{'save_button'} )."<br>";
2196: print &ui_form_end();
2197: print "<a href=delete.cgi?idx=".$in{idx}."&what=bogus&where=alias.cgi".
2198: ">".$text{delet}."</a>";
2199: print "<br><a href=alias.cgi>".$text{alias_config}."</a>";
2200: &footer( "/", $text{'index'});
2201: #
2202:
2203: #
2204: # sub-routines
2205: #
2206: ### END of nx_edit.cgi ###.
2207: dnsmasq/add.cgi 0000755 0000000 0000000 00000002650 10512627117 012446 0 ustar root root #!/usr/bin/perl
2208: #
2209: # DNSMasq Webmin Module - add.cgi; add a line
2210: # Copyright (C) 2006 by Neil Fisher
2211: #
2212: # This program is free software; you can redistribute it and/or modify
2213: # it under the terms of the GNU General Public License as published by
2214: # the Free Software Foundation; either version 2 of the License, or
2215: # (at your option) any later version.
2216: #
2217: # This program is distributed in the hope that it will be useful,
2218: # but WITHOUT ANY WARRANTY; without even the implied warranty of
2219: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2220: # GNU General Public License for more details.
2221: #
2222: # This module inherited from the Webmin Module Template 0.79.1 by tn
2223:
2224: do '../web-lib.pl';
2225: do '../ui-lib.pl';
2226: do 'dnsmasq-lib.pl';
2227:
2228: $|=1;
2229: &init_config("DNSMasq");
2230:
2231: %access=&get_module_acl;
2232:
2233: ## put in ACL checks here if needed
2234:
2235:
2236: ## sanity checks
2237:
2238:
2239: ## Insert Output code here
2240: # read config file
2241: $config_file = &read_file_lines( $config{config_file} );
2242: # pass into data structure
2243: &parse_config_file( \%config, \$config_file );
2244: # read posted data
2245: &ReadParse();
2246: # check for errors in read config
2247: if( $config{errors} > 0 )
2248: {
2249: my $line="error.cgi?line=xx&type=".$text{err_configbad};
2250: &redirect( $line );
2251: exit;
2252: }
2253: # adjust everything to what we got
2254: #
2255: push @{$config_file}, "#".$in{what};
2256: #
2257: # write file!!
2258: &flush_file_lines();
2259: #
2260: # re-load basic page
2261: &redirect( $in{where} );
2262:
2263: #
2264: # sub-routines
2265: #
2266: ### END of add.cgi ###.
2267: dnsmasq/README 0000644 0000000 0000000 00000004255 10512644024 012106 0 ustar root root
2268: This is the README for the DNSmasq webmin module.
2269:
2270: Problems:
2271:
2272: 1) There's only basic error checking - if you enter some bad
2273: addresses or names, they will go straight into the config file
2274: although we do check for things like IP addresses being of
2275: the correct form (no letters, 4 groups of up to 3 digits
2276: separated by dots etc). One thing that ISN'T CHECKED FOR is
2277: that IP dotted quads are all numbers < 256. Another is that
2278: netmasks are logical (you could enter a netmask of 255.0.255.0
2279: for example). Essentially, if it'll pass the config file
2280: regex scanner (and the above examples will), it won't be
2281: flagged as "bad" even if it is a big no-no for dnsmasq itself.
2282:
2283: 2) Code is ugly and a kludge - I ain't a programmer! There are probably
2284: a lot of things that could be done to tidy up the code - eg,
2285: it probably wouldn't hurt to move some common stuff into the lib file.
2286:
2287: 3) I've used the %text hash and written an english lang file, but
2288: I am mono-lingual so no other language support as yet.
2289:
2290: 4) for reasons unknown to me, the icon does not appear properly
2291: on the servers page of webmin (at least it doesn't for me!)
2292:
2293: 5) icons have been shamelessly stolen from the ipfilter module,
2294: specifically the up and down arrows.
2295:
2296: 6) if you delete an item, the config file will contain
2297: an otherwise empty, but commented line. This means that if
2298: you add some new stuff, then delete it, the config file
2299: will have a number of lines at the end that are just comments.
2300: Therefore, the config file could possibly grow quite large.
2301:
2302: 7) NO INCLUDE FILES!
2303: if you use an include file, it'll be flagged as an error.
2304: OK if the include file line is commented out though.
2305:
2306: 8) deprecated lines not supported (eg user and group) - they
2307: may produce an error! (user and group don't, but you can't change
2308: them)
2309:
2310: IOW, it works, it's just not very elegant and not very robust.
2311:
2312: Hope you find it useful though - I do, as I prevents me having to ever
2313: wade through the config file and man pages again.
2314:
2315: If you modify it, or add a language file, and you have a spare moment,
2316: please e-mail me - I won't be upset at all if you fix my poor coding!
2317: (rather the opposite - I'd be pleased someone found it usefull)
2318:
2319: Cheers,
2320: Neil Fisher <neil@magnecor.com.au>
2321: dnsmasq/iface_edit_apply.cgi 0000755 0000000 0000000 00000003040 10512633233 015165 0 ustar root root #!/usr/bin/perl
2322: #
2323: # DNSMasq Webmin Module - iface_edit_apply.cgi; do the update
2324: # Copyright (C) 2006 by Neil Fisher
2325: #
2326: # This program is free software; you can redistribute it and/or modify
2327: # it under the terms of the GNU General Public License as published by
2328: # the Free Software Foundation; either version 2 of the License, or
2329: # (at your option) any later version.
2330: #
2331: # This program is distributed in the hope that it will be useful,
2332: # but WITHOUT ANY WARRANTY; without even the implied warranty of
2333: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2334: # GNU General Public License for more details.
2335: #
2336: # This module inherited from the Webmin Module Template 0.79.1 by tn
2337:
2338: do '../web-lib.pl';
2339: do '../ui-lib.pl';
2340: do 'dnsmasq-lib.pl';
2341:
2342: $|=1;
2343: &init_config("DNSMasq");
2344:
2345: %access=&get_module_acl;
2346:
2347: ## put in ACL checks here if needed
2348:
2349:
2350: ## sanity checks
2351:
2352:
2353: ## Insert Output code here
2354: # read config file
2355: $config_file = &read_file_lines( $config{config_file} );
2356: # pass into data structure
2357: &parse_config_file( \%config, \$config_file );
2358: # read posted data
2359: &ReadParse();
2360: # check for errors in read config
2361: if( $config{errors} > 0 )
2362: {
2363: my $line = "error.cgi?line=xx&type=".$text{err_configbad};
2364: &redirect( $line );
2365: exit;
2366: }
2367: # adjust everything to what we got
2368: #
2369: my $line="interface=".$in{iface};
2370: &update( $config{interface}[$in{idx}]{line}, $line,
2371: $config_file, ( $in{used} == 1 ) );
2372: #
2373: # write file!!
2374: &flush_file_lines();
2375: #
2376: # re-load basic page
2377: &redirect( "iface.cgi" );
2378:
2379: #
2380: # sub-routines
2381: #
2382: ### END of iface_edit_apply.cgi ###.
2383: dnsmasq/xiface_edit_apply.cgi 0000755 0000000 0000000 00000003055 10512640306 015362 0 ustar root root #!/usr/bin/perl
2384: #
2385: # DNSMasq Webmin Module - xiface_edit_apply.cgi; do the update
2386: # Copyright (C) 2006 by Neil Fisher
2387: #
2388: # This program is free software; you can redistribute it and/or modify
2389: # it under the terms of the GNU General Public License as published by
2390: # the Free Software Foundation; either version 2 of the License, or
2391: # (at your option) any later version.
2392: #
2393: # This program is distributed in the hope that it will be useful,
2394: # but WITHOUT ANY WARRANTY; without even the implied warranty of
2395: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2396: # GNU General Public License for more details.
2397: #
2398: # This module inherited from the Webmin Module Template 0.79.1 by tn
2399:
2400: do '../web-lib.pl';
2401: do '../ui-lib.pl';
2402: do 'dnsmasq-lib.pl';
2403:
2404: $|=1;
2405: &init_config("DNSMasq");
2406:
2407: %access=&get_module_acl;
2408:
2409: ## put in ACL checks here if needed
2410:
2411:
2412: ## sanity checks
2413:
2414:
2415: ## Insert Output code here
2416: # read config file
2417: $config_file = &read_file_lines( $config{config_file} );
2418: # pass into data structure
2419: &parse_config_file( \%config, \$config_file );
2420: # read posted data
2421: &ReadParse();
2422: # check for errors in read config
2423: if( $config{errors} > 0 )
2424: {
2425: my $line = "error.cgi?line=xx&type=".$text{err_configbad};
2426: &redirect( $line );
2427: exit;
2428: }
2429: # adjust everything to what we got
2430: #
2431: my $line="except-interface=".$in{iface};
2432: &update( $config{ex_interface}[$in{idx}]{line}, $line,
2433: $config_file, ( $in{used} == 1 ) );
2434: #
2435: # write file!!
2436: &flush_file_lines();
2437: #
2438: # re-load basic page
2439: &redirect( "iface.cgi" );
2440:
2441: #
2442: # sub-routines
2443: #
2444: ### END of _xiface_edit_apply.cgi ###.
2445: dnsmasq/listen_edit_apply.cgi 0000755 0000000 0000000 00000003325 10512642154 015424 0 ustar root root #!/usr/bin/perl
2446: #
2447: # DNSMasq Webmin Module - listen_edit_apply.cgi; do the update
2448: # Copyright (C) 2006 by Neil Fisher
2449: #
2450: # This program is free software; you can redistribute it and/or modify
2451: # it under the terms of the GNU General Public License as published by
2452: # the Free Software Foundation; either version 2 of the License, or
2453: # (at your option) any later version.
2454: #
2455: # This program is distributed in the hope that it will be useful,
2456: # but WITHOUT ANY WARRANTY; without even the implied warranty of
2457: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2458: # GNU General Public License for more details.
2459: #
2460: # This module inherited from the Webmin Module Template 0.79.1 by tn
2461:
2462: do '../web-lib.pl';
2463: do '../ui-lib.pl';
2464: do 'dnsmasq-lib.pl';
2465:
2466: $|=1;
2467: &init_config("DNSMasq");
2468:
2469: %access=&get_module_acl;
2470:
2471: ## put in ACL checks here if needed
2472:
2473:
2474: ## sanity checks
2475:
2476:
2477: ## Insert Output code here
2478: # read config file
2479: $config_file = &read_file_lines( $config{config_file} );
2480: # pass into data structure
2481: &parse_config_file( \%config, \$config_file );
2482: # read posted data
2483: &ReadParse();
2484: # check for errors in read config
2485: if( $config{errors} > 0 )
2486: {
2487: my $line= "error.cgi?line=x&type=".$text{listen_addr};
2488: &redirect( $line );
2489: exit;
2490: }
2491: # check for input data errors
2492: if( $in{addr} !~ /^$IPADDR$/ )
2493: {
2494: my $line= "error.cgi?line=".$text{listen_addr};
2495: $line .= "&type=".$text{err_notip};
2496: &redirect( $line );
2497: exit;
2498: }
2499: # adjust everything to what we got
2500: #
2501: my $line="listen-address=".$in{addr};
2502: &update( $config{listen_on}[$in{idx}]{line}, $line,
2503: $config_file, ( $in{used} == 1 ) );
2504: #
2505: # write file!!
2506: &flush_file_lines();
2507: #
2508: # re-load basic page
2509: &redirect( "iface.cgi" );
2510:
2511: #
2512: # sub-routines
2513: #
2514: ### END of listen_edit_apply.cgi ###.
2515: dnsmasq/range_edit_apply.cgi 0000755 0000000 0000000 00000005352 10512642203 015217 0 ustar root root #!/usr/bin/perl
2516: #
2517: # DNSMasq Webmin Module - range_edit_apply.cgi; do the update
2518: # Copyright (C) 2006 by Neil Fisher
2519: #
2520: # This program is free software; you can redistribute it and/or modify
2521: # it under the terms of the GNU General Public License as published by
2522: # the Free Software Foundation; either version 2 of the License, or
2523: # (at your option) any later version.
2524: #
2525: # This program is distributed in the hope that it will be useful,
2526: # but WITHOUT ANY WARRANTY; without even the implied warranty of
2527: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2528: # GNU General Public License for more details.
2529: #
2530: # This module inherited from the Webmin Module Template 0.79.1 by tn
2531:
2532: do '../web-lib.pl';
2533: do '../ui-lib.pl';
2534: do 'dnsmasq-lib.pl';
2535:
2536: $|=1;
2537: &init_config("DNSMasq");
2538:
2539: %access=&get_module_acl;
2540:
2541: ## put in ACL checks here if needed
2542:
2543:
2544: ## sanity checks
2545:
2546:
2547: ## Insert Output code here
2548: # read config file
2549: $config_file = &read_file_lines( $config{config_file} );
2550: # pass into data structure
2551: &parse_config_file( \%config, \$config_file );
2552: # read posted data
2553: &ReadParse();
2554: # check for errors in read config
2555: if( $config{errors} > 0 )
2556: {
2557: my $line = "error.cgi?line=xx&type=".$text{err_configbad};
2558: &redirect( $line );
2559: exit;
2560: }
2561: # check for input data errors
2562: if( $in{from} !~ /^$IPADDR$/ )
2563: {
2564: my $line = "error.cgi?line=".$text{forced_from};
2565: $line .= "&type=".$text{err_notip};
2566: &redirect( $line );
2567: exit;
2568: }
2569: if( $in{to} !~ /^$IPADDR$/ )
2570: {
2571: my $line = "error.cgi?line=".$text{forced_ip};
2572: $line .= "&type=".$text{err_notip};
2573: &redirect( $line );
2574: exit;
2575: }
2576: if( ($in{masked}) && ($in{mask} !~ /^$IPADDR$/) )
2577: {
2578: my $line = "error.cgi?line=".$text{forced_mask};
2579: $line .= "&type=".$text{err_notmask};
2580: &redirect( $line );
2581: exit;
2582: }
2583: if( ($in{timed}) && ($in{'time'} !~ /^$TIME$/) )
2584: {
2585: my $line = "error.cgi?line=".$text{leasetime};
2586: $line .= "&type=".$text{err_nottime};
2587: &redirect( $line );
2588: exit;
2589: }
2590: # adjust everything to what we got
2591: #
2592: my $line="dhcp-range=";
2593: $line .= $in{id}."," if $in{ided};
2594: $line .= $in{from}.",".$in{to};
2595: $line .= $in{mask} if $in{masked};
2596: $line .= $in{'time'} if $in{timed};
2597: &update( $config{dhcp_range}[$in{idx}]{line}, $line,
2598: $config_file, ( $in{used} == 1 ) );
2599: #
2600: # write file!!
2601: &flush_file_lines();
2602: #
2603: # re-load basic page
2604: &redirect( "dhcp.cgi" );
2605:
2606: #
2607: # sub-routines
2608: #
2609: ### END of range_edit_apply.cgi ###.
2610: # adjust everything to what we got
2611: #
2612: my $line="dhcp-range=";
2613: $line .= $in{id}."," if $in{ided};
2614: $line .= $in{from}.",".$in{to};
2615: $line .= $in{mask} if $in{masked};
2616: $line .= $in{'time'} if $in{timed};
2617: &update( $config{dhcp_range}[$in{idx}]{line}, $line,
2618: $config_file, ( $in{used} == 1 ) );
2619: #
2620: # write file!!
2621: &flush_file_lines();
2622: #
2623: # re-load basic page
2624: &redirect( "dhcp.cgi" );
2625:
2626: #
2627: # sub-routines
2628: #
2629: ### END of range_edit_apply.cgi ###.
2630: dnsmasq/host_edit.cgi 0000755 0000000 0000000 00000004057 10512351537 013703 0 ustar root root #!/usr/bin/perl
2631: #
2632: # DNSMasq Webmin Module - host_edit.cgi; edit DHCP host
2633: # Copyright (C) 2006 by Neil Fisher
2634: #
2635: # This program is free software; you can redistribute it and/or modify
2636: # it under the terms of the GNU General Public License as published by
2637: # the Free Software Foundation; either version 2 of the License, or
2638: # (at your option) any later version.
2639: #
2640: # This program is distributed in the hope that it will be useful,
2641: # but WITHOUT ANY WARRANTY; without even the implied warranty of
2642: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2643: # GNU General Public License for more details.
2644: #
2645: # This module inherited from the Webmin Module Template 0.79.1 by tn
2646:
2647: do '../web-lib.pl';
2648: do '../ui-lib.pl';
2649: do 'dnsmasq-lib.pl';
2650:
2651: $|=1;
2652: &init_config("DNSMasq");
2653:
2654: %access=&get_module_acl;
2655:
2656: ## put in ACL checks here if needed
2657:
2658:
2659: ## sanity checks
2660:
2661:
2662: ## Insert Output code here
2663: # read config file
2664: $config_file = &read_file_lines( $config{config_file} );
2665: # pass into data structure
2666: &parse_config_file( \%config, \$config_file );
2667: # read posted data
2668: &ReadParse();
2669: # check for errors in read config
2670: if( $config{errors} > 0 )
2671: {
2672: &header( "DNSMasq settings", "" );
2673: print "<hr><h2>";
2674: print $text{warn_errors};
2675: print $config{errors};
2676: print $text{didnt_apply};
2677: print "</h3><hr>\n";
2678: &footer( "/", $text{'index'});
2679: exit;
2680: }
2681: # adjust everything to what we got
2682: #
2683: &header( "DNSMasq settings", "" );
2684: print "<h2>".$text{edit_host}."</h2>";
2685: print &ui_form_start( "host_edit_apply.cgi", "post" );
2686: print &ui_hidden( "idx", $in{idx} );
2687: print "<br>".$text{in_use}.&ui_yesno_radio( "used",
2688: ($config{dhcp_host}[$in{idx}]{used})?1:0 );
2689: print "<br>".$text{host_spec};
2690: print &ui_textbox( "host", $config{dhcp_host}[$in{idx}]{option}, 80 );
2691: print "<br><br>" . &ui_submit( $text{'save_button'} )."<br>";
2692: print &ui_form_end();
2693: print "<a href=delete.cgi?idx=".$in{idx}."&what=dhcp_host&where=dhcp.cgi".
2694: ">".$text{delet}."</a>";
2695: print "<br><a href=dhcp.cgi>".$text{DHCP_settings}."</a>";
2696: &footer( "/", $text{'index'});
2697: #
2698:
2699: #
2700: # sub-routines
2701: #
2702: ### END of host_edit.cgi ###.
2703: dnsmasq/range_edit.cgi 0000755 0000000 0000000 00000005413 10512347165 014021 0 ustar root root #!/usr/bin/perl
2704: #
2705: # DNSMasq Webmin Module - range_edit.cgi; DHCP range edit
2706: # Copyright (C) 2006 by Neil Fisher
2707: #
2708: # This program is free software; you can redistribute it and/or modify
2709: # it under the terms of the GNU General Public License as published by
2710: # the Free Software Foundation; either version 2 of the License, or
2711: # (at your option) any later version.
2712: #
2713: # This program is distributed in the hope that it will be useful,
2714: # but WITHOUT ANY WARRANTY; without even the implied warranty of
2715: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2716: # GNU General Public License for more details.
2717: #
2718: # This module inherited from the Webmin Module Template 0.79.1 by tn
2719:
2720: do '../web-lib.pl';
2721: do '../ui-lib.pl';
2722: do 'dnsmasq-lib.pl';
2723:
2724: $|=1;
2725: &init_config("DNSMasq");
2726:
2727: %access=&get_module_acl;
2728:
2729: ## put in ACL checks here if needed
2730:
2731:
2732: ## sanity checks
2733:
2734:
2735: ## Insert Output code here
2736: # read config file
2737: $config_file = &read_file_lines( $config{config_file} );
2738: # pass into data structure
2739: &parse_config_file( \%config, \$config_file );
2740: # read posted data
2741: &ReadParse();
2742: # check for errors in read config
2743: if( $config{errors} > 0 )
2744: {
2745: &header( "DNSMasq settings", "" );
2746: print "<hr><h2>";
2747: print $text{warn_errors};
2748: print $config{errors};
2749: print $text{didnt_apply};
2750: print "</h3><hr>\n";
2751: &footer( "/", $text{'index'});
2752: exit;
2753: }
2754: # adjust everything to what we got
2755: #
2756: &header( "DNSMasq settings", "" );
2757: print "<h2>".$text{range_edit}."</h2>";
2758: print &ui_form_start( "range_edit_apply.cgi", "post" );
2759: print &ui_hidden( "idx", $in{idx} );
2760: print "<br>".$text{in_use}.&ui_yesno_radio( "used",
2761: ($config{dhcp_range}[$in{idx}]{used})?1:0 );
2762: print "<br>".$text{ided}.&ui_yesno_radio( "ided",
2763: ($config{dhcp_range}[$in{idx}]{id_used})?1:0 );
2764: print "<br>".$text{id};
2765: print &ui_textbox( "id", $config{dhcp_range}[$in{idx}]{id}, 50 );
2766: print "<br>".$text{forced_from};
2767: print &ui_textbox( "from", $config{dhcp_range}[$in{idx}]{start}, 18 );
2768: print "<br>".$text{forced_ip};
2769: print &ui_textbox( "to", $config{dhcp_range}[$in{idx}]{end}, 18 );
2770: print "<br>".$text{forced_mask_used}.&ui_yesno_radio( "masked",
2771: ($config{dhcp_range}[$in{idx}]{mask_used})?1:0 );
2772: print "<br>".$text{forced_mask};
2773: print &ui_textbox( "mask", $config{dhcp_range}[$in{idx}]{mask}, 18 );
2774: print "<br>".$text{timed}.&ui_yesno_radio( "timed",
2775: ($config{dhcp_range}[$in{idx}]{time_used})?1:0 );
2776: print "<br>".$text{leasetime};
2777: print &ui_textbox( "time", $config{dhcp_range}[$in{idx}]{leasetime}, 18 );
2778: print "<br><br>" . &ui_submit( $text{'save_button'} )."<br>";
2779: print &ui_form_end();
2780: print "<a href=delete.cgi?idx=".$in{idx}."&what=dhcp_range&where=dhcp.cgi".
2781: ">".$text{delet}."</a>";
2782: print "<br><a href=dhcp.cgi>".$text{DHCP_settings}."</a>";
2783: &footer( "/", $text{'index'});
2784: #
2785:
2786: #
2787: # sub-routines
2788: #
2789: ### END of range_edit.cgi ###.
2790: dnsmasq/option_edit.cgi 0000755 0000000 0000000 00000004076 10512351517 014235 0 ustar root root #!/usr/bin/perl
2791: #
2792: # DNSMasq Webmin Module - option_edit.cgi; edit DHCP option
2793: # Copyright (C) 2006 by Neil Fisher
2794: #
2795: # This program is free software; you can redistribute it and/or modify
2796: # it under the terms of the GNU General Public License as published by
2797: # the Free Software Foundation; either version 2 of the License, or
2798: # (at your option) any later version.
2799: #
2800: # This program is distributed in the hope that it will be useful,
2801: # but WITHOUT ANY WARRANTY; without even the implied warranty of
2802: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2803: # GNU General Public License for more details.
2804: #
2805: # This module inherited from the Webmin Module Template 0.79.1 by tn
2806:
2807: do '../web-lib.pl';
2808: do '../ui-lib.pl';
2809: do 'dnsmasq-lib.pl';
2810:
2811: $|=1;
2812: &init_config("DNSMasq");
2813:
2814: %access=&get_module_acl;
2815:
2816: ## put in ACL checks here if needed
2817:
2818:
2819: ## sanity checks
2820:
2821:
2822: ## Insert Output code here
2823: # read config file
2824: $config_file = &read_file_lines( $config{config_file} );
2825: # pass into data structure
2826: &parse_config_file( \%config, \$config_file );
2827: # read posted data
2828: &ReadParse();
2829: # check for errors in read config
2830: if( $config{errors} > 0 )
2831: {
2832: &header( "DNSMasq settings", "" );
2833: print "<hr><h2>";
2834: print $text{warn_errors};
2835: print $config{errors};
2836: print $text{didnt_apply};
2837: print "</h3><hr>\n";
2838: &footer( "/", $text{'index'});
2839: exit;
2840: }
2841: # adjust everything to what we got
2842: #
2843: &header( "DNSMasq settings", "" );
2844: print "<h2>".$text{edit_opt}."</h2>";
2845: print &ui_form_start( "option_edit_apply.cgi", "post" );
2846: print &ui_hidden( "idx", $in{idx} );
2847: print "<br>".$text{in_use}.&ui_yesno_radio( "used",
2848: ($config{dhcp_option}[$in{idx}]{used})?1:0 );
2849: print "<br>".$text{option_spec};
2850: print &ui_textbox( "host", $config{dhcp_option}[$in{idx}]{option}, 80 );
2851: print "<br><br>" . &ui_submit( $text{'save_button'} )."<br>";
2852: print &ui_form_end();
2853: print "<a href=delete.cgi?idx=".$in{idx}."&what=dhcp_option&where=dhcp.cgi".
2854: ">".$text{delet}."</a>";
2855: print "<br><a href=dhcp.cgi>".$text{DHCP_settings}."</a>";
2856: &footer( "/", $text{'index'});
2857: #
2858:
2859: #
2860: # sub-routines
2861: #
2862: ### END of option_edit.cgi ###.
2863: dnsmasq/host_edit_apply.cgi 0000755 0000000 0000000 00000003032 10512633002 015066 0 ustar root root #!/usr/bin/perl
2864: #
2865: # DNSMasq Webmin Module - host_edit_apply.cgi; do the update
2866: # Copyright (C) 2006 by Neil Fisher
2867: #
2868: # This program is free software; you can redistribute it and/or modify
2869: # it under the terms of the GNU General Public License as published by
2870: # the Free Software Foundation; either version 2 of the License, or
2871: # (at your option) any later version.
2872: #
2873: # This program is distributed in the hope that it will be useful,
2874: # but WITHOUT ANY WARRANTY; without even the implied warranty of
2875: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2876: # GNU General Public License for more details.
2877: #
2878: # This module inherited from the Webmin Module Template 0.79.1 by tn
2879:
2880: do '../web-lib.pl';
2881: do '../ui-lib.pl';
2882: do 'dnsmasq-lib.pl';
2883:
2884: $|=1;
2885: &init_config("DNSMasq");
2886:
2887: %access=&get_module_acl;
2888:
2889: ## put in ACL checks here if needed
2890:
2891:
2892: ## sanity checks
2893:
2894:
2895: ## Insert Output code here
2896: # read config file
2897: $config_file = &read_file_lines( $config{config_file} );
2898: # pass into data structure
2899: &parse_config_file( \%config, \$config_file );
2900: # read posted data
2901: &ReadParse();
2902: # check for errors in read config
2903: if( $config{errors} > 0 )
2904: {
2905: my $line="error.cgi?line=xx&type=".$text{err_configbad};
2906: &redirect( $line );
2907: exit;
2908: }
2909: # adjust everything to what we got
2910: #
2911: my $line="dhcp-host=".$in{host};
2912: &update( $config{dhcp_host}[$in{idx}]{line}, $line,
2913: $config_file, ( $in{used} == 1 ) );
2914: #
2915: # write file!!
2916: &flush_file_lines();
2917: #
2918: # re-load basic page
2919: &redirect( "dhcp.cgi" );
2920:
2921: #
2922: # sub-routines
2923: #
2924: ### END of host_edit_apply.cgi ###.
2925: dnsmasq/iface_apply.cgi 0000755 0000000 0000000 00000003002 10512633156 014162 0 ustar root root #!/usr/bin/perl
2926: #
2927: # DNSMasq Webmin Module - iface_apply.cgi; do the update
2928: # Copyright (C) 2006 by Neil Fisher
2929: #
2930: # This program is free software; you can redistribute it and/or modify
2931: # it under the terms of the GNU General Public License as published by
2932: # the Free Software Foundation; either version 2 of the License, or
2933: # (at your option) any later version.
2934: #
2935: # This program is distributed in the hope that it will be useful,
2936: # but WITHOUT ANY WARRANTY; without even the implied warranty of
2937: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2938: # GNU General Public License for more details.
2939: #
2940: # This module inherited from the Webmin Module Template 0.79.1 by tn
2941:
2942: do '../web-lib.pl';
2943: do '../ui-lib.pl';
2944: do 'dnsmasq-lib.pl';
2945:
2946: $|=1;
2947: &init_config("DNSMasq");
2948:
2949: %access=&get_module_acl;
2950:
2951: ## put in ACL checks here if needed
2952:
2953:
2954: ## sanity checks
2955:
2956:
2957: ## Insert Output code here
2958: # read config file
2959: $config_file = &read_file_lines( $config{config_file} );
2960: # pass into data structure
2961: &parse_config_file( \%config, \$config_file );
2962: # read posted data
2963: &ReadParse();
2964: # check for errors in read config
2965: if( $config{errors} > 0 )
2966: {
2967: my $line = "error.cgi?line=xx&type=".$text{err_configbad};
2968: &redirect( $line );
2969: exit;
2970: }
2971: # adjust everything to what we got
2972: #
2973: &update( $config{bind_interfaces}{line}, "bind-interfaces",
2974: $config_file, ( $in{bind_iface} == 1 ) );
2975: #
2976: # write file!!
2977: &flush_file_lines();
2978: #
2979: # re-load basic page
2980: &redirect( "iface.cgi" );
2981:
2982: #
2983: # sub-routines
2984: #
2985: ### END of iface_apply.cgi ###.
2986: dnsmasq/forced_edit.cgi 0000755 0000000 0000000 00000004230 10512324260 014152 0 ustar root root #!/usr/bin/perl
2987: #
2988: # DNSMasq Webmin Module - forced_edit.cgi; forced domain response edit
2989: # Copyright (C) 2006 by Neil Fisher
2990: #
2991: # This program is free software; you can redistribute it and/or modify
2992: # it under the terms of the GNU General Public License as published by
2993: # the Free Software Foundation; either version 2 of the License, or
2994: # (at your option) any later version.
2995: #
2996: # This program is distributed in the hope that it will be useful,
2997: # but WITHOUT ANY WARRANTY; without even the implied warranty of
2998: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2999: # GNU General Public License for more details.
3000: #
3001: # This module inherited from the Webmin Module Template 0.79.1 by tn
3002:
3003: do '../web-lib.pl';
3004: do '../ui-lib.pl';
3005: do 'dnsmasq-lib.pl';
3006:
3007: $|=1;
3008: &init_config("DNSMasq");
3009:
3010: %access=&get_module_acl;
3011:
3012: ## put in ACL checks here if needed
3013:
3014:
3015: ## sanity checks
3016:
3017:
3018: ## Insert Output code here
3019: # read config file
3020: $config_file = &read_file_lines( $config{config_file} );
3021: # pass into data structure
3022: &parse_config_file( \%config, \$config_file );
3023: # read posted data
3024: &ReadParse();
3025: # check for errors in read config
3026: if( $config{errors} > 0 )
3027: {
3028: &header( "DNSMasq settings", "" );
3029: print "<hr><h2>";
3030: print $text{warn_errors};
3031: print $config{errors};
3032: print $text{didnt_apply};
3033: print "</h3><hr>\n";
3034: &footer( "/", $text{'index'});
3035: exit;
3036: }
3037: # adjust everything to what we got
3038: #
3039: &header( "DNSMasq settings", "" );
3040: print "<h2>".$text{forced}."</h2>";
3041: print &ui_form_start( "forced_edit_apply.cgi", "post" );
3042: print &ui_hidden( "idx", $in{idx} );
3043: print $text{forced_domain}. &ui_textbox( "domain",
3044: $config{forced}[$in{idx}]{domain}, 50 );
3045: print "<br>";
3046: print $text{forced_ip}. &ui_textbox( "to",
3047: $config{forced}[$in{idx}]{addr}, 15 );
3048: print "<br>".$text{in_use}.&ui_yesno_radio( "used",
3049: ($config{forced}[$in{idx}]{used})?1:0 );
3050: print "<br><br>" . &ui_submit( $text{'save_button'} )."<br>";
3051: print &ui_form_end();
3052: print "<a href=delete.cgi?idx=".$in{idx}."&what=forced&where=alias.cgi".
3053: ">".$text{delet}."</a>";
3054: print "<br><a href=alias.cgi>".$text{alias_config}."</a>";
3055: &footer( "/", $text{'index'});
3056: #
3057:
3058: #
3059: # sub-routines
3060: #
3061: ### END of forced_edit.cgi ###.
3062: dnsmasq/alias_edit.cgi 0000755 0000000 0000000 00000004350 10512627345 014016 0 ustar root root #!/usr/bin/perl
3063: #
3064: # DNSMasq Webmin Module - alias_edit.cgi; IP alias edit
3065: # Copyright (C) 2006 by Neil Fisher
3066: #
3067: # This program is free software; you can redistribute it and/or modify
3068: # it under the terms of the GNU General Public License as published by
3069: # the Free Software Foundation; either version 2 of the License, or
3070: # (at your option) any later version.
3071: #
3072: # This program is distributed in the hope that it will be useful,
3073: # but WITHOUT ANY WARRANTY; without even the implied warranty of
3074: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3075: # GNU General Public License for more details.
3076: #
3077: # This module inherited from the Webmin Module Template 0.79.1 by tn
3078:
3079: do '../web-lib.pl';
3080: do '../ui-lib.pl';
3081: do 'dnsmasq-lib.pl';
3082:
3083: $|=1;
3084: &init_config("DNSMasq");
3085:
3086: %access=&get_module_acl;
3087:
3088: ## put in ACL checks here if needed
3089:
3090:
3091: ## sanity checks
3092:
3093:
3094: ## Insert Output code here
3095: # read config file
3096: $config_file = &read_file_lines( $config{config_file} );
3097: # pass into data structure
3098: &parse_config_file( \%config, \$config_file );
3099: # read posted data
3100: &ReadParse();
3101: # check for errors in read config
3102: if( $config{errors} > 0 )
3103: {
3104: my $line="error.cgi?line=xx&type=".$text{err_configbad};
3105: &redirect( $line );
3106: exit;
3107: }
3108: # adjust everything to what we got
3109: #
3110: &header( "DNSMasq settings", "" );
3111: print "<h2>".$text{alias}."</h2>";
3112: print &ui_form_start( "alias_edit_apply.cgi", "post" );
3113: print &ui_hidden( "idx", $in{idx} );
3114: print $text{forced_from}. &ui_textbox( "from",
3115: $config{alias}[$in{idx}]{from}, 15 );
3116: print "<br>";
3117: print $text{forced_ip}. &ui_textbox( "to",
3118: $config{alias}[$in{idx}]{to}, 15 );
3119: print "<br>";
3120: print $text{forced_mask_used}. &ui_yesno_radio( "mask",
3121: ($config{alias}[$in{idx}]{netmask_used})?1:0 );
3122: print $text{forced_mask}. &ui_textbox( "netmask",
3123: $config{alias}[$in{idx}]{netmask}, 15 );
3124: print "<br>".$text{in_use}.&ui_yesno_radio( "used",
3125: ($config{forced}[$in{idx}]{used})?1:0 );
3126: print "<br><br>" . &ui_submit( $text{'save_button'} )."<br>";
3127: print &ui_form_end();
3128: print "<a href=delete.cgi?idx=".$in{idx}."&what=alias&where=alias.cgi".
3129: ">".$text{delet}."</a>";
3130: print "<br><a href=alias.cgi>".$text{alias_config}."</a>";
3131: &footer( "/", $text{'index'});
3132: #
3133:
3134: #
3135: # sub-routines
3136: #
3137: ### END of alias_edit.cgi ###.
3138: dnsmasq/option_edit_apply.cgi 0000755 0000000 0000000 00000003040 10512633571 015433 0 ustar root root #!/usr/bin/perl
3139: #
3140: # DNSMasq Webmin Module - option_edit_apply.cgi; do the update
3141: # Copyright (C) 2006 by Neil Fisher
3142: #
3143: # This program is free software; you can redistribute it and/or modify
3144: # it under the terms of the GNU General Public License as published by
3145: # the Free Software Foundation; either version 2 of the License, or
3146: # (at your option) any later version.
3147: #
3148: # This program is distributed in the hope that it will be useful,
3149: # but WITHOUT ANY WARRANTY; without even the implied warranty of
3150: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3151: # GNU General Public License for more details.
3152: #
3153: # This module inherited from the Webmin Module Template 0.79.1 by tn
3154:
3155: do '../web-lib.pl';
3156: do '../ui-lib.pl';
3157: do 'dnsmasq-lib.pl';
3158:
3159: $|=1;
3160: &init_config("DNSMasq");
3161:
3162: %access=&get_module_acl;
3163:
3164: ## put in ACL checks here if needed
3165:
3166:
3167: ## sanity checks
3168:
3169:
3170: ## Insert Output code here
3171: # read config file
3172: $config_file = &read_file_lines( $config{config_file} );
3173: # pass into data structure
3174: &parse_config_file( \%config, \$config_file );
3175: # read posted data
3176: &ReadParse();
3177: # check for errors in read config
3178: if( $config{errors} > 0 )
3179: {
3180: my $line= "error.cgi?line=x&type=".$text{listen_addr};
3181: &redirect( $line );
3182: exit;
3183: }
3184: # adjust everything to what we got
3185: #
3186: my $line="dhcp-option=".$in{host};
3187: &update( $config{dhcp_option}[$in{idx}]{line}, $line,
3188: $config_file, ( $in{used} == 1 ) );
3189: #
3190: # write file!!
3191: &flush_file_lines();
3192: #
3193: # re-load basic page
3194: &redirect( "dhcp.cgi" );
3195:
3196: #
3197: # sub-routines
3198: #
3199: ### END of option_edit_apply.cgi ###.
3200: dnsmasq/basic_apply.cgi 0000755 0000000 0000000 00000007200 10512642037 014176 0 ustar root root #!/usr/bin/perl
3201: #
3202: # DNSMasq Webmin Module - dns_apply.cgi; update basic DNS info
3203: # Copyright (C) 2006 by Neil Fisher
3204: #
3205: # This program is free software; you can redistribute it and/or modify
3206: # it under the terms of the GNU General Public License as published by
3207: # the Free Software Foundation; either version 2 of the License, or
3208: # (at your option) any later version.
3209: #
3210: # This program is distributed in the hope that it will be useful,
3211: # but WITHOUT ANY WARRANTY; without even the implied warranty of
3212: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3213: # GNU General Public License for more details.
3214: #
3215: # This module inherited from the Webmin Module Template 0.79.1 by tn
3216:
3217: do '../web-lib.pl';
3218: do '../ui-lib.pl';
3219: do 'dnsmasq-lib.pl';
3220:
3221: $|=1;
3222: &init_config("DNSMasq");
3223:
3224: %access=&get_module_acl;
3225:
3226: ## put in ACL checks here if needed
3227:
3228:
3229: ## sanity checks
3230:
3231:
3232: ## Insert Output code here
3233: # read config file
3234: $config_file = &read_file_lines( $config{config_file} );
3235: # pass into data structure
3236: &parse_config_file( \%config, \$config_file );
3237: # read posted data
3238: &ReadParse();
3239: # check for errors in read config
3240: if( $config{errors} > 0 )
3241: {
3242: my $line = "error.cgi?line=xx&type=".$text{err_configbad};
3243: &redirect( $line );
3244: exit;
3245: }
3246: # check user input for obvious errors
3247: if( $in{local_domain} !~ /^$FILE$/ )
3248: {
3249: my $line = "error.cgi?line=".$text{local_domain};
3250: $line .= "&type=".$text{err_domainbad};
3251: &redirect( $line );
3252: exit;
3253: }
3254: if( ($in{xhosts}) && ($in{addn_hosts} !~ /^$FILE$/) )
3255: {
3256: my $line = "error.cgi?line=".$text{xhostsfile};
3257: $line .= "&type=".$text{err_filebad};
3258: &redirect( $line );
3259: exit;
3260: }
3261: if( ($in{cache_size}) && ($in{cust_cache_size} !~ /^$NUMBER/) )
3262: {
3263: my $line = "error.cgi?line=".$text{cust_cache_size};
3264: $line .= "&type=".$text{err_numbbad};
3265: &redirect( $line );
3266: exit;
3267: }
3268: if( ($in{local_ttl}) && ($in{ttl} !~ /^$NUMBER/) )
3269: {
3270: my $line = "error.cgi?line=".$text{ttl};
3271: $line .= "&type=".$text{err_numbbad};
3272: &redirect( $line );
3273: exit;
3274: }
3275: # adjust everything to what we got
3276:
3277: #
3278: #our local domain
3279: #
3280: &update( $config{domain}{line}, "domain=".$in{local_domain},
3281: $config_file, 1 );
3282: #
3283: # need domains for forwarded lookups?
3284: #
3285: &update( $config{domain_needed}{line}, "domain-needed",
3286: $config_file, ( $in{domain_needed} == 1 ) );
3287:
3288: #
3289: # add local domain to local hosts?
3290: #
3291: &update( $config{expand_hosts}{line}, "expand-hosts",
3292: $config_file, ( $in{expand_hosts} == 1 ) );
3293: #
3294: # reverse lookups of local subnets propogating?
3295: #
3296: # NOTE: reversed logic in question!
3297: &update( $config{bogus_priv}{line}, "bogus-priv",
3298: $config_file, ( $in{bogus_priv} == 0 ) );
3299: #
3300: # reverse lookups of local subnets propogating?
3301: #
3302: &update( $config{filterwin2k}{line}, "filterwin2k",
3303: $config_file, ( $in{filterwin2k} == 1 ) );
3304: #
3305: # read /etc/hosts?
3306: #
3307: # NOTE: reverse logic in config file
3308: &update( $config{no_hosts}{line}, "no-hosts",
3309: $config_file, ( $in{hosts} == 0 ) );
3310: #
3311: # read extra hosts file?
3312: #
3313: &update( $config{addn_hosts}{line}, "addn-hosts=".$in{addn_hosts},
3314: $config_file, ( $in{xhosts} == 1 ) );
3315: #
3316: # negative caching?
3317: #
3318: # NOTE: reverse logic in config file
3319: &update( $config{neg_cache}{line}, "no-negcache",
3320: $config_file, ( $in{neg_cache} == 0 ) );
3321: #
3322: # custom cache size?
3323: #
3324: &update( $config{cache_size}{line}, "cache-size=".$in{cust_cache_size},
3325: $config_file, ( $in{cache_size} == 1 ) );
3326: #
3327: # log all lookups?
3328: #
3329: &update( $config{log_queries}{line}, "log-queries",
3330: $config_file, ( $in{log_queries} == 1 ) );
3331: #
3332: # cache size?
3333: #
3334: &update( $config{local_ttl}{line}, "local-ttl=".$in{ttl},
3335: $config_file, ( $in{local_ttl} == 1) );
3336: #
3337: #
3338: #
3339: # write file!!
3340: &flush_file_lines();
3341: #
3342: # re-load basic page
3343: &redirect( "index.cgi" );
3344:
3345: #
3346: # sub-routines
3347: #
3348: ### END of dns_apply.cgi ###.
3349: dnsmasq/alias_edit_apply.cgi 0000755 0000000 0000000 00000004073 10512641777 015232 0 ustar root root #!/usr/bin/perl
3350: #
3351: # DNSMasq Webmin Module - alias_edit_apply.cgi; do the update
3352: # Copyright (C) 2006 by Neil Fisher
3353: #
3354: # This program is free software; you can redistribute it and/or modify
3355: # it under the terms of the GNU General Public License as published by
3356: # the Free Software Foundation; either version 2 of the License, or
3357: # (at your option) any later version.
3358: #
3359: # This program is distributed in the hope that it will be useful,
3360: # but WITHOUT ANY WARRANTY; without even the implied warranty of
3361: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3362: # GNU General Public License for more details.
3363: #
3364: # This module inherited from the Webmin Module Template 0.79.1 by tn
3365:
3366: do '../web-lib.pl';
3367: do '../ui-lib.pl';
3368: do 'dnsmasq-lib.pl';
3369:
3370: $|=1;
3371: &init_config("DNSMasq");
3372:
3373: %access=&get_module_acl;
3374:
3375: ## put in ACL checks here if needed
3376:
3377:
3378: ## sanity checks
3379:
3380:
3381: ## Insert Output code here
3382: # read config file
3383: $config_file = &read_file_lines( $config{config_file} );
3384: # pass into data structure
3385: &parse_config_file( \%config, \$config_file );
3386: # read posted data
3387: &ReadParse();
3388: # check for errors in read config
3389: if( $config{errors} > 0 )
3390: {
3391: my $line="error.cgi?line=xx&type=".$text{err_configbad};
3392: &redirect( $line );
3393: exit;
3394: }
3395: # check user input for obvious errors
3396: if( $in{from} !~ /^$IPADDR$/ )
3397: {
3398: my $line="error.cgi?line=".$text{forced_from};
3399: $line .= "&type=".$text{err_notip};
3400: &redirect( $line );
3401: exit;
3402: }
3403: if( $in{to} !~ /^$IPADDR$/ )
3404: {
3405: my $line="error.cgi?line=".$text{forced_ip};
3406: $line .= "&type=".$text{err_notip};
3407: &redirect( $line );
3408: exit;
3409: }
3410: if( ($in{mask}) && ($in{netmask} !~ /^$IPADDR$/) )
3411: {
3412: my $line="error.cgi?line=".$text{forced_mask};
3413: $line .= "&type=".$text{err_notip};
3414: &redirect( $line );
3415: exit;
3416: }
3417: # adjust everything to what we got
3418: #
3419: my $line="alias=".$in{from}.",".$in{to};
3420: $line .= ",".$in{netmask} if $in{mask};
3421: &update( $config{alias}[$in{idx}]{line}, $line,
3422: $config_file, ( $in{used} == 1 ) );
3423: #
3424: # write file!!
3425: &flush_file_lines();
3426: #
3427: # re-load basic page
3428: &redirect( "alias.cgi" );
3429:
3430: #
3431: # sub-routines
3432: #
3433: ### END of alias_edit_apply.cgi ###.
3434: dnsmasq/forced_edit_apply.cgi 0000755 0000000 0000000 00000003571 10512642101 015363 0 ustar root root #!/usr/bin/perl
3435: #
3436: # DNSMasq Webmin Module - forced_edit_apply.cgi; do the update
3437: # Copyright (C) 2006 by Neil Fisher
3438: #
3439: # This program is free software; you can redistribute it and/or modify
3440: # it under the terms of the GNU General Public License as published by
3441: # the Free Software Foundation; either version 2 of the License, or
3442: # (at your option) any later version.
3443: #
3444: # This program is distributed in the hope that it will be useful,
3445: # but WITHOUT ANY WARRANTY; without even the implied warranty of
3446: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3447: # GNU General Public License for more details.
3448: #
3449: # This module inherited from the Webmin Module Template 0.79.1 by tn
3450:
3451: do '../web-lib.pl';
3452: do '../ui-lib.pl';
3453: do 'dnsmasq-lib.pl';
3454:
3455: $|=1;
3456: &init_config("DNSMasq");
3457:
3458: %access=&get_module_acl;
3459:
3460: ## put in ACL checks here if needed
3461:
3462:
3463: ## sanity checks
3464:
3465:
3466: ## Insert Output code here
3467: # read config file
3468: $config_file = &read_file_lines( $config{config_file} );
3469: # pass into data structure
3470: &parse_config_file( \%config, \$config_file );
3471: # read posted data
3472: &ReadParse();
3473: # check for errors in read config
3474: if( $config{errors} > 0 )
3475: {
3476: my $line="error.cgi?line=xx&type=".$text{err_configbad};
3477: &redirect( $line );
3478: exit;
3479: }
3480: # check for input data errors
3481: if( $in{domain} !~ /^$NAME$/ )
3482: {
3483: my $line="error.cgi?line=".$text{forced_domain};
3484: $line .= "&type=".$text{err_domainbad};
3485: &redirect( $line );
3486: exit;
3487: }
3488: if( $in{to} !~ /^$IPADDR$/ )
3489: {
3490: my $line="error.cgi?line=".$text{forced_domain};
3491: $line .= "&type=".$text{err_domainbad};
3492: &redirect( $line );
3493: exit;
3494: }
3495: # adjust everything to what we got
3496: #
3497: my $line="address=/".$in{domain}."/".$in{to};
3498: &update( $config{forced}[$in{idx}]{line}, $line,
3499: $config_file, ( $in{used} == 1 ) );
3500: #
3501: # write file!!
3502: &flush_file_lines();
3503: #
3504: # re-load basic page
3505: &redirect( "alias.cgi" );
3506:
3507: #
3508: # sub-routines
3509: #
3510: ### END of forced_edit_apply.cgi ###.
3511: dnsmasq/nx_edit_apply.cgi 0000755 0000000 0000000 00000003311 10512642170 014544 0 ustar root root #!/usr/bin/perl
3512: #
3513: # DNSMasq Webmin Module - nx_edit_apply.cgi; do the update
3514: # Copyright (C) 2006 by Neil Fisher
3515: #
3516: # This program is free software; you can redistribute it and/or modify
3517: # it under the terms of the GNU General Public License as published by
3518: # the Free Software Foundation; either version 2 of the License, or
3519: # (at your option) any later version.
3520: #
3521: # This program is distributed in the hope that it will be useful,
3522: # but WITHOUT ANY WARRANTY; without even the implied warranty of
3523: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3524: # GNU General Public License for more details.
3525: #
3526: # This module inherited from the Webmin Module Template 0.79.1 by tn
3527:
3528: do '../web-lib.pl';
3529: do '../ui-lib.pl';
3530: do 'dnsmasq-lib.pl';
3531:
3532: $|=1;
3533: &init_config("DNSMasq");
3534:
3535: %access=&get_module_acl;
3536:
3537: ## put in ACL checks here if needed
3538:
3539:
3540: ## sanity checks
3541:
3542:
3543: ## Insert Output code here
3544: # read config file
3545: $config_file = &read_file_lines( $config{config_file} );
3546: # pass into data structure
3547: &parse_config_file( \%config, \$config_file );
3548: # read posted data
3549: &ReadParse();
3550: # check for errors in read config
3551: if( $config{errors} > 0 )
3552: {
3553: my $line= "error.cgi?line=x&type=".$text{listen_addr};
3554: &redirect( $line );
3555: exit;
3556: }
3557: # check for input data errors
3558: if( $in{from} !~ /^$IPADDR$/ )
3559: {
3560: my $line= "error.cgi?line=".$text{forced_from};
3561: $line .= "&type=".$text{err_notip};
3562: &redirect( $line );
3563: exit;
3564: }
3565: # adjust everything to what we got
3566: #
3567: my $line="bogus-nxdomain=".$in{from};
3568: &update( $config{bogus}[$in{idx}]{line}, $line,
3569: $config_file, ( $in{used} == 1 ) );
3570: #
3571: # write file!!
3572: &flush_file_lines();
3573: #
3574: # re-load basic page
3575: &redirect( "alias.cgi" );
3576:
3577: #
3578: # sub-routines
3579: #
3580: ### END of nx_edit_apply.cgi ###.
3581: dnsmasq/user_edit.cgi 0000755 0000000 0000000 00000004171 10512343452 013676 0 ustar root root #!/usr/bin/perl
3582: #
3583: # DNSMasq Webmin Module - vend_edit.cgi; edit user class
3584: # Copyright (C) 2006 by Neil Fisher
3585: #
3586: # This program is free software; you can redistribute it and/or modify
3587: # it under the terms of the GNU General Public License as published by
3588: # the Free Software Foundation; either version 2 of the License, or
3589: # (at your option) any later version.
3590: #
3591: # This program is distributed in the hope that it will be useful,
3592: # but WITHOUT ANY WARRANTY; without even the implied warranty of
3593: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3594: # GNU General Public License for more details.
3595: #
3596: # This module inherited from the Webmin Module Template 0.79.1 by tn
3597:
3598: do '../web-lib.pl';
3599: do '../ui-lib.pl';
3600: do 'dnsmasq-lib.pl';
3601:
3602: $|=1;
3603: &init_config("DNSMasq");
3604:
3605: %access=&get_module_acl;
3606:
3607: ## put in ACL checks here if needed
3608:
3609:
3610: ## sanity checks
3611:
3612:
3613: ## Insert Output code here
3614: # read config file
3615: $config_file = &read_file_lines( $config{config_file} );
3616: # pass into data structure
3617: &parse_config_file( \%config, \$config_file );
3618: # read posted data
3619: &ReadParse();
3620: # check for errors in read config
3621: if( $config{errors} > 0 )
3622: {
3623: &header( "DNSMasq settings", "" );
3624: print "<hr><h2>";
3625: print $text{warn_errors};
3626: print $config{errors};
3627: print $text{didnt_apply};
3628: print "</h3><hr>\n";
3629: &footer( "/", $text{'index'});
3630: exit;
3631: }
3632: # adjust everything to what we got
3633: #
3634: &header( "DNSMasq settings", "" );
3635: print "<h2>".$text{user_classes}."</h2>";
3636: print &ui_form_start( "user_edit_apply.cgi", "post" );
3637: print &ui_hidden( "idx", $in{idx} );
3638: print $text{in_use}.&ui_yesno_radio( "used",
3639: ($config{user_class}[$in{idx}]{used})?1:0 );
3640: print $text{class}. &ui_textbox( "class",
3641: $config{user_class}[$in{idx}]{class}, 60 );
3642: print "<br>".$text{user}. &ui_textbox( "user",
3643: $config{user_class}[$in{idx}]{user}, 60 );
3644: print "<br><br>" . &ui_submit( $text{'save_button'} )."<br>";
3645: print &ui_form_end();
3646: print "<a href=delete.cgi?idx=".$in{idx}."&what=user_class&where=dhcp.cgi".
3647: ">".$text{delet}."</a>";
3648: print "<br><a href=dhcp.cgi>".$text{DHCP_config}."</a>";
3649: &footer( "/", $text{'index'});
3650: #
3651:
3652: #
3653: # sub-routines
3654: #
3655: ### END of user_edit.cgi ###.
3656: dnsmasq/vend_edit.cgi 0000755 0000000 0000000 00000004210 10512343567 013655 0 ustar root root #!/usr/bin/perl
3657: #
3658: # DNSMasq Webmin Module - vend_edit.cgi; edit vendor class
3659: # Copyright (C) 2006 by Neil Fisher
3660: #
3661: # This program is free software; you can redistribute it and/or modify
3662: # it under the terms of the GNU General Public License as published by
3663: # the Free Software Foundation; either version 2 of the License, or
3664: # (at your option) any later version.
3665: #
3666: # This program is distributed in the hope that it will be useful,
3667: # but WITHOUT ANY WARRANTY; without even the implied warranty of
3668: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3669: # GNU General Public License for more details.
3670: #
3671: # This module inherited from the Webmin Module Template 0.79.1 by tn
3672:
3673: do '../web-lib.pl';
3674: do '../ui-lib.pl';
3675: do 'dnsmasq-lib.pl';
3676:
3677: $|=1;
3678: &init_config("DNSMasq");
3679:
3680: %access=&get_module_acl;
3681:
3682: ## put in ACL checks here if needed
3683:
3684:
3685: ## sanity checks
3686:
3687:
3688: ## Insert Output code here
3689: # read config file
3690: $config_file = &read_file_lines( $config{config_file} );
3691: # pass into data structure
3692: &parse_config_file( \%config, \$config_file );
3693: # read posted data
3694: &ReadParse();
3695: # check for errors in read config
3696: if( $config{errors} > 0 )
3697: {
3698: &header( "DNSMasq settings", "" );
3699: print "<hr><h2>";
3700: print $text{warn_errors};
3701: print $config{errors};
3702: print $text{didnt_apply};
3703: print "</h3><hr>\n";
3704: &footer( "/", $text{'index'});
3705: exit;
3706: }
3707: # adjust everything to what we got
3708: #
3709: &header( "DNSMasq settings", "" );
3710: print "<h2>".$text{vendor_classes}."</h2>";
3711: print &ui_form_start( "vend_edit_apply.cgi", "post" );
3712: print &ui_hidden( "idx", $in{idx} );
3713: print $text{in_use}.&ui_yesno_radio( "used",
3714: ($config{vendor_class}[$in{idx}]{used})?1:0 );
3715: print $text{class}. &ui_textbox( "class",
3716: $config{vendor_class}[$in{idx}]{class}, 60 );
3717: print "<br>".$text{vendor}. &ui_textbox( "vendor",
3718: $config{vendor_class}[$in{idx}]{vendor}, 60 );
3719: print "<br><br>" . &ui_submit( $text{'save_button'} )."<br>";
3720: print &ui_form_end();
3721: print "<a href=delete.cgi?idx=".$in{idx}."&what=vendor_class&where=dhcp.cgi>".
3722: $text{delet}."</a>";
3723: print "<br><a href=dhcp.cgi>".$text{DHCP_config}."</a>";
3724: &footer( "/", $text{'index'});
3725: #
3726:
3727: #
3728: # sub-routines
3729: #
3730: ### END of vend_edit.cgi ###.
3731: dnsmasq/dhcp_apply.cgi 0000755 0000000 0000000 00000005362 10512642064 014042 0 ustar root root #!/usr/bin/perl
3732: #
3733: # DNSMasq Webmin Module - dhcp_apply.cgi; update misc DHCP info
3734: # Copyright (C) 2006 by Neil Fisher
3735: #
3736: # This program is free software; you can redistribute it and/or modify
3737: # it under the terms of the GNU General Public License as published by
3738: # the Free Software Foundation; either version 2 of the License, or
3739: # (at your option) any later version.
3740: #
3741: # This program is distributed in the hope that it will be useful,
3742: # but WITHOUT ANY WARRANTY; without even the implied warranty of
3743: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3744: # GNU General Public License for more details.
3745: #
3746: # This module inherited from the Webmin Module Template 0.79.1 by tn
3747:
3748: do '../web-lib.pl';
3749: do '../ui-lib.pl';
3750: do 'dnsmasq-lib.pl';
3751:
3752: $|=1;
3753: &init_config("DNSMasq");
3754:
3755: %access=&get_module_acl;
3756:
3757: ## put in ACL checks here if needed
3758:
3759:
3760: ## sanity checks
3761:
3762:
3763: ## Insert Output code here
3764: # read config file
3765: $config_file = &read_file_lines( $config{config_file} );
3766: # pass into data structure
3767: &parse_config_file( \%config, \$config_file );
3768: # read posted data
3769: &ReadParse();
3770: # check for errors in read config
3771: if( $config{errors} > 0 )
3772: {
3773: my $line="error.cgi?line=xx&type=".$text{err_configbad};
3774: &redirect( $line );
3775: exit;
3776: }
3777: # check for input data errors
3778: if( $in{bootp_addr} !~ /^$IPADDR$/ )
3779: {
3780: my $line="error.cgi?line=".$text{bootp_address};
3781: $line .= "&type=".$text{err_notip};
3782: &redirect( $line );
3783: exit;
3784: }
3785: if( $in{bootp_file} !~ /^$FILE$/ )
3786: {
3787: my $line="error.cgi?line=".$text{bootp_file};
3788: $line .= "&type=".$text{err_filebad};
3789: &redirect( $line );
3790: exit;
3791: }
3792: if( $in{bootp_host} !~ /^$NAME$/ )
3793: {
3794: my $line="error.cgi?line=".$text{bootp_host};
3795: $line .= "&type=".$text{err_hostbad};
3796: &redirect( $line );
3797: exit;
3798: }
3799: if( $in{max_leases} !~ /^$NUMBER$/ )
3800: {
3801: my $line="error.cgi?line=".$text{max_leases};
3802: $line .= "&type=".$text{err_numbbad};
3803: &redirect( $line );
3804: exit;
3805: }
3806: if( $in{leasefile} !~ /^$FILE$/ )
3807: {
3808: my $line="error.cgi?line=".$text{leasefile};
3809: $line .= "&type=".$text{err_filebad};
3810: &redirect( $line );
3811: exit;
3812: }
3813: # adjust everything to what we got
3814:
3815: #
3816: # read /etc/ethers
3817: #
3818: &update( $config{dhcp_ethers}{line}, "read-ethers",
3819: $config_file, ($in{ethers} == 1) );
3820:
3821: #
3822: # bootp
3823: #
3824: my $line="dhcp-boot=".$in{bootp_file}.",".$in{bootp_host};
3825: $line .= ",".$in{bootp_addr};
3826: &update( $config{dhcp_boot}{line}, $line,
3827: $config_file, ($in{bootp} == 1) );
3828: #
3829: # max leases
3830: #
3831: &update( $config{dhcp_leasemax}{line}, "dhcp-lease-max=".$in{max_leases},
3832: $config_file, ($in{max_leases} != 150) );
3833: #
3834: # leases file
3835: #
3836: &update( $config{dhcp_leasefile}{line}, "dhcp-leasefile=".$in{leasefile},
3837: $config_file, ($in{useleasefile} == 1) );
3838: #
3839: # write file!!
3840: &flush_file_lines();
3841: #
3842: # re-load basic page
3843: &redirect( "dhcp.cgi" );
3844:
3845: #
3846: # sub-routines
3847: #
3848: ### END of dhcp_apply.cgi ###.
3849: dnsmasq/user_edit_apply.cgi 0000755 0000000 0000000 00000003557 10512642234 015112 0 ustar root root #!/usr/bin/perl
3850: #
3851: # DNSMasq Webmin Module - user_edit_apply.cgi; do the update
3852: # Copyright (C) 2006 by Neil Fisher
3853: #
3854: # This program is free software; you can redistribute it and/or modify
3855: # it under the terms of the GNU General Public License as published by
3856: # the Free Software Foundation; either version 2 of the License, or
3857: # (at your option) any later version.
3858: #
3859: # This program is distributed in the hope that it will be useful,
3860: # but WITHOUT ANY WARRANTY; without even the implied warranty of
3861: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3862: # GNU General Public License for more details.
3863: #
3864: # This module inherited from the Webmin Module Template 0.79.1 by tn
3865:
3866: do '../web-lib.pl';
3867: do '../ui-lib.pl';
3868: do 'dnsmasq-lib.pl';
3869:
3870: $|=1;
3871: &init_config("DNSMasq");
3872:
3873: %access=&get_module_acl;
3874:
3875: ## put in ACL checks here if needed
3876:
3877:
3878: ## sanity checks
3879:
3880:
3881: ## Insert Output code here
3882: # read config file
3883: $config_file = &read_file_lines( $config{config_file} );
3884: # pass into data structure
3885: &parse_config_file( \%config, \$config_file );
3886: # read posted data
3887: &ReadParse();
3888: # check for errors in read config
3889: if( $config{errors} > 0 )
3890: {
3891: my $line = "error.cgi?line=xx&type=".$text{err_configbad};
3892: &redirect( $line );
3893: exit;
3894: }
3895: # check for input data errors
3896: if( $in{class} !~ /^$NAME$/ )
3897: {
3898: my $line = "error.cgi?line=".$text{class};
3899: $line .= "&type=".$text{err_namebad};
3900: &redirect( $line );
3901: exit;
3902: }
3903: if( $in{user} !~ /^$NAME$/ )
3904: {
3905: my $line = "error.cgi?line=".$text{user};
3906: $line .= "&type=".$text{err_namebad};
3907: &redirect( $line );
3908: exit;
3909: }
3910: # adjust everything to what we got
3911: #
3912: my $line="dhcp-userclass=".$in{class}.",".$in{user};
3913: &update( $config{user_class}[$in{idx}]{line}, $line,
3914: $config_file, ( $in{used} == 1 ) );
3915: #
3916: # write file!!
3917: &flush_file_lines();
3918: #
3919: # re-load basic page
3920: &redirect( "dhcp.cgi" );
3921:
3922: #
3923: # sub-routines
3924: #
3925: ### END of user_edit_apply.cgi ###.
3926: dnsmasq/vend_edit_apply.cgi 0000755 0000000 0000000 00000003573 10512642243 015066 0 ustar root root #!/usr/bin/perl
3927: #
3928: # DNSMasq Webmin Module - vend_edit_apply.cgi; do the update
3929: # Copyright (C) 2006 by Neil Fisher
3930: #
3931: # This program is free software; you can redistribute it and/or modify
3932: # it under the terms of the GNU General Public License as published by
3933: # the Free Software Foundation; either version 2 of the License, or
3934: # (at your option) any later version.
3935: #
3936: # This program is distributed in the hope that it will be useful,
3937: # but WITHOUT ANY WARRANTY; without even the implied warranty of
3938: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3939: # GNU General Public License for more details.
3940: #
3941: # This module inherited from the Webmin Module Template 0.79.1 by tn
3942:
3943: do '../web-lib.pl';
3944: do '../ui-lib.pl';
3945: do 'dnsmasq-lib.pl';
3946:
3947: $|=1;
3948: &init_config("DNSMasq");
3949:
3950: %access=&get_module_acl;
3951:
3952: ## put in ACL checks here if needed
3953:
3954:
3955: ## sanity checks
3956:
3957:
3958: ## Insert Output code here
3959: # read config file
3960: $config_file = &read_file_lines( $config{config_file} );
3961: # pass into data structure
3962: &parse_config_file( \%config, \$config_file );
3963: # read posted data
3964: &ReadParse();
3965: # check for errors in read config
3966: if( $config{errors} > 0 )
3967: {
3968: my $line = "error.cgi?line=xx&type=".$text{err_configbad};
3969: &redirect( $line );
3970: exit;
3971: }
3972: # check for input data errors
3973: if( $in{class} !~ /^$NAME$/ )
3974: {
3975: my $line = "error.cgi?line=".$text{class};
3976: $line .= "&type=".$text{err_namebad};
3977: &redirect( $line );
3978: exit;
3979: }
3980: if( $in{vendor} !~ /^$NAME$/ )
3981: {
3982: my $line = "error.cgi?line=".$text{vendor};
3983: $line .= "&type=".$text{err_namebad};
3984: &redirect( $line );
3985: exit;
3986: }
3987: # adjust everything to what we got
3988: #
3989: my $line="dhcp-vendorclass=".$in{class}.",".$in{vendor};
3990: &update( $config{vendor_class}[$in{idx}]{line}, $line,
3991: $config_file, ( $in{used} == 1 ) );
3992: #
3993: # write file!!
3994: &flush_file_lines();
3995: #
3996: # re-load basic page
3997: &redirect( "dhcp.cgi" );
3998:
3999: #
4000: # sub-routines
4001: #
4002: ### END of vend_edit_apply.cgi ###.
4003: dnsmasq/error.cgi 0000755 0000000 0000000 00000003026 10511350547 013044 0 ustar root root #!/usr/bin/perl
4004: #
4005: # DNSMasq Webmin Module - error.cgi; report errors
4006: # Copyright (C) 2006 by Neil Fisher
4007: #
4008: # This program is free software; you can redistribute it and/or modify
4009: # it under the terms of the GNU General Public License as published by
4010: # the Free Software Foundation; either version 2 of the License, or
4011: # (at your option) any later version.
4012: #
4013: # This program is distributed in the hope that it will be useful,
4014: # but WITHOUT ANY WARRANTY; without even the implied warranty of
4015: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
4016: # GNU General Public License for more details.
4017: #
4018: # This module inherited from the Webmin Module Template 0.79.1 by tn
4019:
4020: do '../web-lib.pl';
4021: do '../ui-lib.pl';
4022: do 'dnsmasq-lib.pl';
4023:
4024: $|=1;
4025: &init_config("DNSMasq");
4026:
4027: %access=&get_module_acl;
4028:
4029: ## put in ACL checks here if needed
4030:
4031:
4032: ## sanity checks
4033:
4034: &header($text{'index_title'}, "", "intro", 1, 1, undef,
4035: "Written by Neil Fisher<BR><A HREF=mailto:neil\@magnecor.com.au>Author</A><BR><A HREF=http://www.authorpage.invalid>Home://page</A>");
4036: # uses the index_title entry from ./lang/en or appropriate
4037:
4038: ## Insert Output code here
4039:
4040: # output as web page
4041: &ReadParse();
4042: print "<h2>".$text{error_heading}."</h2>";
4043: print "<br><br>";
4044: print $text{err_line};
4045: print $in{line};
4046: print "<br>\n";
4047: print $text{err_type};
4048: print $in{type};
4049: print "<br><br>\n";
4050: print $text{err_help};
4051: &footer("/", $text{'index'});
4052: # uses the index entry in /lang/en
4053:
4054:
4055:
4056: ## if subroutines are not in an extra file put them here
4057:
4058:
4059: ### END of error.cgi ###.
4060: