RootForum Community

Code: Select all

#!/usr/bin/perl
#
# Confixx Logfile Linker v0.1Ã?
#
# Verlinkt die eventuell schon vorhandenen Logfiles 
# in das Confixx-Logfile Verzeichnis.
# 
# Das Script parst die confixx_vhost.conf und extrahiert
# daraus die User und Domains und verlinkt diese, damit 
# das pipelog.pl von confixx die Daten der einzelnen Domains
# an das access_file des Users anhaengt.
#
# Sinnvoll, wenn zum Beispiel alle Verlinkungen geloescht 
# oder entfernt wurden (z.B. durch Verlust von /var/log).
#

$confixx_vhost = "/usr/local/httpd/conf/confixx_vhost.conf";
$confixx_log_dir = "/var/log/httpd/confixx/domains/access";
$confixx_user_dir =" /usr/local/httpd/htdocs/kunden";

open (IN, $confixx_vhost) ;

while (<IN>) {
	next unless (/<VirtualHost/i);

	# VirtualHost Block:
	my @servernames = ();
	my $username = "";
	
	while ($zeile = <IN>) {
		last if ($zeile =~ /^</VirtualHost>/);
		chomp $zeile;
		if ($zeile) {
			if ($zeile =~ s/^ServerNames+//) {
				push (@servernames, $zeile);				
			}
			elsif ($zeile =~ s/^ServerAliass+//){
				push (@servernames, split (/s+/, $zeile));
			}
			elsif ($zeile =~ s/^Users+//) {
				$username = $zeile;
			}

		}
	}
	# Verlinkung erstellen, falls User und Servername(n) existieren.
	if ($username &&  $#servernames >=0) {
		for (@servernames) {
			system("ln -s $confixx_user_dir/$username/log/access_log $confixx_log_dir/$_");
		}
	}
}

close (IN);