# VirtualHost example

<Macro MyVirtualHost $host $port $dir>
  Listen $port
  <VirtualHost $host:$port>
    DocumentRoot $dir
    <Directory $dir>
      Warning "directory $dir"
    </Directory>
    # limit access to intranet subdir.
    <Directory $dir/intranet>
      Warning "directory $dir/intranet"
    </Directory>
  </VirtualHost>
</Macro>

Use MyVirtualHost www.apache.org 80 /projects/apache/web

Use MyVirtualHost www.perl.com 8080 /projects/perl/web

Use MyVirtualHost www.ensmp.fr 1234 /projects/mines/web

Error "done line 23."