From: ianmdlvl <ianmdlvl>
Date: Sun, 29 Jun 2003 14:19:58 +0000 (+0000)
Subject: @@ -1,3 +1,9 @@
X-Git-Tag: debian_version_3_99_1~3
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-utils.git;a=commitdiff_plain;h=6aad3fcb202eb5aa7b0bdb5dabde6a53c7099cd3

@@ -1,3 +1,9 @@
+chiark-utils (3.99.1) unstable; urgency=low
+
+  * grungily add prototypes for everything to chiark-named-conf.
+
+ --
+
 chiark-utils (3.99.0) unstable; urgency=low

   * trivsoundd is in the source tree but not shipped in the .debs,
---

diff --git a/debian/changelog b/debian/changelog
index afe006e..46df982 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+chiark-utils (3.99.1) unstable; urgency=low
+
+  * grungily add prototypes for everything to chiark-named-conf.
+
+ --
+
 chiark-utils (3.99.0) unstable; urgency=low
 
   * trivsoundd is in the source tree but not shipped in the .debs,
diff --git a/scripts/named-conf b/scripts/named-conf
index 8ce3e61..0a91daf 100755
--- a/scripts/named-conf
+++ b/scripts/named-conf
@@ -21,6 +21,50 @@ use Data::Dumper;
 use POSIX;
 use Fcntl qw(:DEFAULT :flock);
 
+# bastard Perl wants me to do this now !
+sub loarg();
+sub soarg();
+sub usageerr ($);
+sub cfg_fail ($);
+sub read_config ($);
+sub qualify ($);
+sub bad_modifiers ($);
+sub zone_conf ($$$$$@);
+sub set_output($);
+sub progress ($$);
+sub verbose ($);
+sub process_zones (@);
+sub zone_warning ($$);
+sub zone_warnmore ($);
+sub zone_check_full ();
+sub zone_reset();
+sub zone_investigate();
+sub zone_check_nsrrset ($$$$);
+sub zone_ns_name ($$);
+sub zone_server_queue ($$$$$);
+sub zone_server_addr ($$$$$);
+sub zone_check_soa ($$$$);
+sub zone_consistency();
+sub zone_servers_ok ();
+sub zone_consistency_set ($%);
+sub zone_check_local ();
+sub zone_servers_simplefind ();
+sub zone_server_simple ($$$);
+sub zone_style ($$);
+sub mail_zone_before ();
+sub mail_zone_after ();
+sub pmail ($);
+sub ptime ($);
+sub mail_zone_mail ();
+sub zone_output ();
+sub output_files ();
+sub debug_dump ($);
+sub debug_trace ($);
+sub has_suffix_of ($$);
+sub lookup ($$$$);
+sub dig (&$$$);
+sub domain_canon ($$);
+
 use vars qw($quis $stdout_fh $stderr_fh
 	    $mode $doall $domail
 	    $etcfile $where