Your message dated Fri, 30 May 2008 16:07:10 +0100
with message-id <[EMAIL PROTECTED]>
and subject line dnscvsutil has been removed from Debian, closing #116732
has caused the Debian Bug report #116732,
regarding dnscvsutil: perl's mkdir doesn't work recursively
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.)


-- 
116732: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=116732
Debian Bug Tracking System
Contact [EMAIL PROTECTED] with problems
--- Begin Message ---
Package: dnscvsutil
Version: 0.10
Severity: normal
Tags: patch

mkdir isn't working recursively. Here's a wrapper to take care of that. It's 
needed when using more than one level, e.g. arpa/in-addr or 
com/mydomain/subdomain.

[EMAIL PROTECTED]:~/lokal/bin$ diff -u /usr/bin/dns-update dns-update.lh 
--- /usr/bin/dns-update Tue Aug 28 07:01:12 2001
+++ dns-update.lh       Mon Oct 22 16:22:42 2001
@@ -54,7 +54,7 @@
   $file =~ s{\.domain$}{};
   my $zone = join '.', reverse split '/', $file;
   my $tofile = "$TO/$file.dom";
-  -d "$TO/$File::Find::dir" or mkdir "$TO/$File::Find::dir", 0755
+  -d "$TO/$File::Find::dir" or &mkdirr( "$TO/$File::Find::dir", 0755 )
     or fail "Cannot create directory $TO/$File::Find::dir";
   convert($zone, "$FROM/$file.domain", $tofile);
   print PRIMARY <<EOF
@@ -65,6 +65,19 @@
 };
 EOF
 };
+
+sub mkdirr( $$; ) {
+        my ( $dir, $perms ) = @_;
+        my $pdir = "$dir";
+        $pdir =~ s#(.+)/[^/]+$#$1#;
+        $pdir = '.' if "$pdir" eq "$dir";
+        unless ( "$pdir" eq '/' ) {
+                unless ( -d "$pdir" ) {
+                        &mkdirr( "$pdir", $perms ) or return undef;
+                }
+                mkdir "$dir", $perms or return undef;
+        }
+}
 
 sub today() {
   return strftime "%Y%m%d", localtime();



-- System Information
Debian Release: testing/unstable
Architecture: i386
Kernel: Linux spielzeug 2.4.9-686 #1 Sun Aug 19 10:46:52 EST 2001 i686
Locale: LANG=C, LC_CTYPE=

Versions of packages dnscvsutil depends on:
ii  bind9                         1:9.1.3-1  Internet Domain Name Server
ii  cvs                           1.11.1p1-1 Concurrent Versions System
ii  libdigest-md5-perl            2.13-2     MD5 Message Digest for Perl
ii  perl [perl5]                  5.6.1-5    Larry Wall's Practical Extraction 



--- 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 ---

Reply via email to