Received: (at submit) by bugs.debian.org; 23 Oct 2001 04:10:37 +0000
From lufthans@developonline.com Mon Oct 22 23:10:37 2001
Return-path: <lufthans@developonline.com>
Received: from fw1.developonline.com (spielzeug) [206.80.205.2] 
	by master.debian.org with esmtp (Exim 3.12 1 (Debian))
	id 15vstg-000746-00; Mon, 22 Oct 2001 23:10:37 -0500
Received: from lufthans by spielzeug with local (Exim 3.32 #1 (Debian))
	id 15vsqP-0002TP-00; Mon, 22 Oct 2001 21:07:13 -0700
From: "der.hans" <bugs@LuftHans.com>
To: Debian Bug Tracking System <submit@bugs.debian.org>
Subject: dnscvsutil: perl's mkdir doesn't work recursively
X-Reportbug-Version: 1.31
X-Mailer: reportbug 1.31
Date: Mon, 22 Oct 2001 21:07:13 -0700
Message-Id: <E15vsqP-0002TP-00@spielzeug>
Sender: "der.hans" <lufthans@DevelopOnline.com>
Delivered-To: submit@bugs.debian.org

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.

lufthans@spielzeug:~/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