RootForum Community

Code: Select all

 <VirtualHost SERVERIP:80>
ServerName DomainAusDB
Redirect / http://IPAusDB
</VirtualHost>
  

Code: Select all

#!/path/to/php
<?
$fp = fopen("/path/to/Apache.conf","w");
$db = mysql_connect("db", "name","passwort");
mysql_select_db("mydb",$db);
$result = mysql_query("SELECT domain,serverip FROM table_name",$db);
while ($myrow = mysql_fetch_array($result)) {
  fputs($fp, "<VirtualHost IP:80>n ServerName ".$myrow["domain"]."n Redirect / http://".$myrow["serverip"]."n </VirtualHost> n");
}
fclose($fp);
?>

Code: Select all

LoadModule perl_module modules/mod_perl.so
PerlModule Apache2
<Perl >
use DBI;
my $mysql_user = "dbuser";
my $mysql_pwd  = "password";
my $mysql_host = "127.0.0.1";
my $mysql_port = "3306";
my $mysql_db   = "db";
my $db = "DBI:mysql:database=$mysql_db:host=$mysql_host:port=mysql_port";
my $dbh = DBI->connect( $db, $mysql_user, $mysql_pwd );
my $sth = $dbh->prepare( "SELECT domain, ip FROM vhosts" );
$sth->execute;
$sth->bind_columns( my ( $domain, $ip ) );
while ( $sth->fetch ) {
    push @{$VirtualHost{'*'}},  {
        ServerName   => $domain,
        DocumentRoot => /tmp,
        Redirect  => "/ http://$ip"
    };
}
$sth->finish;
$dbh->disconnect;
</Perl>

Code: Select all

if(rename("/path/to/Apache.conf","/path/to/Apache.conf".date("Ymdhi")))
  echo "Datei wurde umbenannt";
else
  echo "Datei konnte nicht umbenannt werden";

Code: Select all

if test -e /tmp/httpd.conf.new ; then
  if ! `diff /tmp/httpd.conf.new /etc/httpd.conf 1>/dev/null `; then
     cp /tmp/httpd.conf.new /etc/httpd.conf
     apachectl gracefull  
     # bei apache 2 apachectl -k graceful
     rm /tmp/httpd.conf.new 
  fi
fi