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; } 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 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 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 SuexecUserGroup planetalinux planetalinux ServerName www.planetalinux.org RedirectMatch 301 ^(.*?)$ http://planetalinux.org$1 ServerAdmin david@axiombox.com ServerName rt.planetalinux.org DocumentRoot /opt/rt3/share/html AddDefaultCharset UTF-8 PerlRequire "/opt/rt3/bin/webmux.pl" SetHandler default SetHandler perl-script PerlResponseHandler RT::Mason ErrorLog /var/log/apache2/rt_planetalinux_error CustomLog /var/log/apache2/rt_planetalinux_access combined