Your message dated Fri, 30 May 2008 16:07:13 +0100
with message-id <[EMAIL PROTECTED]>
and subject line dnscvsutil has been removed from Debian, closing #222840
has caused the Debian Bug report #222840,
regarding dnscvsutil: patch to suppport "directory" in include files
to be marked as done.
This means that you claim that the problem has been dealt with.
If this is not the case it is now your responsibility to reopen the
Bug report if necessary, and/or fix the problem forthwith.
(NB: If you are a system administrator and have no idea what this
message is talking about, this may indicate a serious mail system
misconfiguration somewhere. Please contact [EMAIL PROTECTED]
immediately.)
--
222840: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=222840
Debian Bug Tracking System
Contact [EMAIL PROTECTED] with problems
--- Begin Message ---
Package: dnscvsutil
Version: 0.10
Severity: normal
Tags: patch
Here is a patch
to support "directory" in include files,
better parsing of "directory" directive
better parsing of zones files
(handling of zone "net" { type delegation-only; }; )
minor corrections so that emacs is coloring correctly
the file
-- System Information:
Debian Release: testing/unstable
Architecture: i386
Kernel: Linux natch 2.4.22.natch #1 Wed Nov 5 16:28:44 EST 2003 i686
Locale: LANG=C, LC_CTYPE=en_US
Versions of packages dnscvsutil depends on:
ii bind9 1:9.2.2+9.2.3rc4-1 Internet Domain Name Server
ii cvs 1:1.12.1-4 Concurrent Versions System
ii perl [libdigest-md5-p 5.8.1-4 Larry Wall's Practical Extraction
pn perl5 Not found.
-- no debconf information
--- /usr/bin/mkrdns 2003-12-03 18:02:55.000000000 -0500
+++ mkrdns 2003-12-03 18:10:35.000000000 -0500
@@ -168,7 +168,7 @@
open(CONF,"<$bootfile") || die "(fatal) Can't open $bootfile:$!";
while ( $_ = <CONF> ) { # deal with the includes!
if ( (/^directory/i && $type eq "boot") ||
- (/\bdirectory\s+"[^"]+";/ && $type eq "conf") ) {
+ (/\bdirectory\s+"[^\"]+";/ && $type eq "conf") ) {
$nameddir = (m/\bdirectory\s+\"?([^\"\s]+)\"?/i)[0];
print "(debug) Named Directory = $nameddir\n" if (
$debug );
}
@@ -180,6 +180,17 @@
# (boot) ^include <file>
# (conf) ^include "<file>";
for(my($i)=0; $i<=$#conf; $i++) {
+ # remove comments
+ $conf[$i] =~ s|//.*$||;
+ #print 'conf i',$conf[$i];
+ # deal with directory embeded in an included
file
+ if ($conf[$i] =~ /^\s*directory/i){
+ if ($conf[$i] =~
m/\bdirectory\s+\"?(\S+?)\"?;$/i){
+ $nameddir = $1;
+ print "(debug) Named Directory =
$nameddir\n" if ( $debug );
+ }
+ }
+
next unless ( $conf[$i] =~ /\binclude\s/i ); #
skip non includes ...
chomp $conf[$i];
print "(debug) Include statement ($conf[$i])
found.\n" if ( $debug );
@@ -256,9 +267,17 @@
$config =~ s!//.*?\n!\n!gs;
$config =~ s!#.*?\n!\n!gs;
+
+ #print "\nparse -----$config------\n";
# determine which domains and networks we are master for.
# this first regexp is *REALLY* a pain.
- foreach $i ( $config =~
m/\b(zone\s*".+?".*?{\s*type.+?;\s*file.+?;)/isg ) {
+ # take care of zone "net" { type delegation-only; };
+ foreach my $j ($config =~ m/\b(zone.*?\{.*?\})/isg){
+ #print "parse found zone ! : \n--------ZONE-- 111
---------\n$_\n--------ZONE---- 111 --------\n";
+
+ if ( $j =~
m/\b(zone\s*".+?".*?{\s*type.+?;\s*file.+?;)/isg ) {
+ $i=$1;
+ #print "parse found zone ! :
\n--------ZONE------------\n$i\n--------ZONE------------\n";
my($domain,$file) = ( $i=~/\"(.+?)\"/g );
my($type) = ( $i=~/type\s+(\S+?);/i );
@@ -271,6 +290,7 @@
&Handle_Domain($i,$type,$domain,$file,\%files);
}
}
+ }
}
# Take the array of regexs to skip and put them in a single var
@@ -280,7 +300,7 @@
# for creation later on.
REVERSE: {
while ( my($net,$file) = each %networks ) {
- open(IN,"<$file") || die qq{(fatal) Can't open "$file" for
reading:$!};
+ open(IN,"<$file") || die qq{(fatal) Can\'t open "$file" for
reading:$!};
seek(IN,0,0);
{
local $/=undef; # slurp mode
@@ -356,7 +376,7 @@
$file = &Handle_Path($rootdir,$file);
my(@inc);
- open(IN,"<$file") || die qq{(fatal) Can't read
\$INCLUDE file "$file":$!};
+ open(IN,"<$file") || die qq{(fatal) Can\'t read
\$INCLUDE file "$file":$!};
chomp(@inc=<IN>);
close(IN);
--- End Message ---
--- Begin Message ---
Version: 0.10.2+rm
The dnscvsutil package has been removed from Debian testing, unstable and
experimental, so I am now closing the bugs that were still opened
against it.
For more information about this package's removal, read
http://bugs.debian.org/440616 . That bug might give the reasons why
this package was removed, and suggestions of possible replacements.
Don't hesitate to reply to this mail if you have any question.
Thank you for your contribution to Debian.
--
Marco Rodrigues
http://Marco.Tondela.org
--- End Message ---
