modules/dav on Win32

[Rodent of Unusual Size]

@#*(^(#(@# windows.. }-(

After a lot of travail I've gotten to the point at which all
the prerequisites for modules/dav on Windows can be run.
(Only the Expat bundled with Apache seems to suffice for
XML::Parser, btw; the Win32 download from expat.sf.net
fails tests because of a missing XML_GetAttributeCount).

And now.. and now.. modules/dav is running, but crapping out
with

modules\dav.The getpwnam function is unimplemented at modules\dav.t 
line 37.
dubious
Test returned status 2 (wstat 512, 0x200)
DIED. FAILED tests 1-14

Is this missing getpwnam a deficiency of my Perl on Windows?
-- 
#kenP-)}

Ken Coar, Sanagendamgagwedweinini  http://Golux.Com/coar/
Author, developer, opinionist  http://Apache-Server.Com/

All right everyone!  Step away from the glowing hamburger!

Re: a new utility: failure tests sequence finder

[Doug MacEachern]

concept sounds great, +1
haven't looked at the code, but i should probably be in a module, like
Apache::TestSmoke.  that can either be run with -M or a tiny generated
t/SMOKE (like t/TEST) or from t/TEST.  else each project that wants to use
it needs a copy of util/smokerandom.pl
the idea has always been for a project that wants a t/TEST only needs the
Apache-Test directory.  then they create custom t/conf/foo.conf.in,
t/foo/*.t and everything else is setup for you.

Re: modules/dav on Win32

[Doug MacEachern]

On Fri, 7 Dec 2001, Rodent of Unusual Size wrote:

 @#*(^(#(@# windows.. }-(
 
 After a lot of travail I've gotten to the point at which all
 the prerequisites for modules/dav on Windows can be run.
 (Only the Expat bundled with Apache seems to suffice for
 XML::Parser, btw; the Win32 download from expat.sf.net
 fails tests because of a missing XML_GetAttributeCount).

still hoping to see dav.t rewritten to use HTTP::Webdav
 
 And now.. and now.. modules/dav is running, but crapping out
 with
 
 modules\dav.The getpwnam function is unimplemented at modules\dav.t 
 line 37.
 dubious
   Test returned status 2 (wstat 512, 0x200)
 DIED. FAILED tests 1-14
 
 Is this missing getpwnam a deficiency of my Perl on Windows?

yes.  i think the patch below will suffice.

Index: t/modules/dav.t
===
RCS file: /home/cvs/httpd-test/perl-framework/t/modules/dav.t,v
retrieving revision 1.4
diff -u -r1.4 dav.t
--- t/modules/dav.t 2001/11/12 07:18:47 1.4
+++ t/modules/dav.t 2001/12/07 19:06:01
@@ -34,8 +34,12 @@
 ## make sure its clean before we begin ##
 unlink htdocs$uri if -e htdocs$uri;
 mkdir htdocs/$dir, oct('755') unless -e htdocs/$dir;
-my ($login,$pass,$uid,$gid) = getpwnam($vars-{user});
-chown $uid, $gid, htdocs/$dir;
+
+eval {
+#not all platforms support getpwnam
+my($uid, $gid) = (getpwnam($vars-{user}))[2,3];
+chown $uid, $gid, htdocs/$dir;
+};
 
 ## set up resource and lock it ##
 my $resource = $dav-new_resource( -uri = http://$server$uri;);