<Perl>
 
  my $names = {
    ar => 'PlanetaLinuxArgentina',
    cl => 'PlanetaLinuxChile',
    co => 'PlanetaLinuxColombia',
    cr => 'PlanetaLinuxCostaRica',
    ec => 'PlanetaLinuxEcuador',
    sv => 'PlanetaLinuxElSalvador',
    es => 'PlanetaLinuxEspana',
    gt => 'PlanetaLinuxGuatemala',
    mx => 'PlanetaLinuxMexico',
    ni => 'PlanetaLinuxNicaragua',
    pa => 'PlanetaLinuxPanama',
    pe => 'PlanetaLinuxPeru',
    ve => 'PlanetaLinuxVenezuela',
    universo => 'UniversoPlanetaLinux',
  };
 
  my $instancias = [keys %{$names}];
  
  $VirtualHost{"*:80"} = [];
 
  for my $pais(@{$instancias}) {
    my $vhost = $pais.".planetalinux.org";
 
    my $virtualh = {
      SuexecUserGroup => ["planetalinux", "planetalinux"],
      ServerAdmin => 'planetalinux@googlegroups.com',
      ServerName => $vhost,
      DocumentRoot => "/var/www/planetalinux/".$vhost,
      ErrorLog => "/var/log/apache2/planetalinux_".$pais."_error",
      CustomLog => ["/var/log/apache2/planetalinux_".$pais."_access", "combined"],
      LogLevel => "info",
      Alias => ["/images/", "/home/planetalinux/current/www/instancias/".$pais."/images/"],
      Redirect => ["/rss20.xml", "http://feedproxy.google.com/".$names->{$pais}],
    };
 
    if($pais eq 'sv') {
      $virtualh->{ServerAlias} = 'planet.linux.org.sv planeta.linux.org.sv';
    }
 
    push @{$VirtualHost{"*:80"}}, $virtualh;
    
  }
 
</Perl>
 
<VirtualHost *:80>
  SuexecUserGroup planetalinux planetalinux
  ServerName blog.planetalinux.org
  DocumentRoot /var/www/planetalinux/blog
  ErrorLog /var/log/apache2/planetalinux_blog_error
  CustomLog /var/log/apache2/planetalinux_blog_access combined
  LogLevel info
</VirtualHost>
 
<VirtualHost *:80>
  SuexecUserGroup planetalinux planetalinux
  ServerName chat.planetalinux.org
  DocumentRoot /var/www/planetalinux/chat
  ErrorLog /var/log/apache2/planetalinux_www_error
  CustomLog /var/log/apache2/planetalinux_www_access combined
  LogLevel info
 
  AddHandler cgi-script .cgi .pl 
  DirectoryIndex irc.cgi
</VirtualHost>
 
<VirtualHost *:80>
  SuexecUserGroup planetalinux planetalinux
  ServerName planetalinux.org
  DocumentRoot /var/www/planetalinux/git/www/principal
  ErrorLog /var/log/apache2/planetalinux_www_error
  CustomLog /var/log/apache2/planetalinux_www_access combined
  LogLevel info
</VirtualHost>
 
<VirtualHost *:80>
  SuexecUserGroup planetalinux planetalinux
  ServerName www.planetalinux.org
  RedirectMatch 301 ^(.*?)$ http://planetalinux.org$1
</VirtualHost>
 
<VirtualHost *:80>
  ServerAdmin david@axiombox.com
  ServerName rt.planetalinux.org
 
  DocumentRoot /opt/rt3/share/html
  AddDefaultCharset UTF-8
 
  PerlRequire "/opt/rt3/bin/webmux.pl"
 
  <Location /NoAuth/images>
    SetHandler default
  </Location>
  
  <Location />
    SetHandler perl-script
    PerlResponseHandler RT::Mason
  </Location>
 
  ErrorLog /var/log/apache2/rt_planetalinux_error
  CustomLog /var/log/apache2/rt_planetalinux_access combined
</VirtualHost>