All pastes #896017 Raw Edit

Jink

public text v1 · immutable
·published 2008-02-08 07:47 UTC
rendered paste body
<Perl>
  use strict;
  use warnings;
  use Apache2::Directive ();
  use Apache2::ServerUtil ();
  use Data::Dumper;

  my $conf = <<'EOC';
<VirtualHost *:80>
  ServerName www.example.com
  DocumentRoot /www/www.example.com/htdocs/
</VirtualHost>
EOC

  Apache2::ServerUtil->server->add_config([split /\n/, $conf]);
  my @vhosts = Apache2::Directive::conftree()->lookup('VirtualHost', '*:80');
  print(Dumper(\@vhosts));
</Perl>