|
From: <tre...@us...> - 2003-03-13 12:30:57
|
Update of /cvsroot/yawcs/yawcs
In directory sc8-pr-cvs1:/tmp/cvs-serv23128
Modified Files:
webconf.pl
Log Message:
Prepared for comming big Changes.....
Index: webconf.pl
===================================================================
RCS file: /cvsroot/yawcs/yawcs/webconf.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** webconf.pl 10 Jan 2003 22:35:02 -0000 1.4
--- webconf.pl 13 Mar 2003 12:30:52 -0000 1.5
***************
*** 38,47 ****
output
! #&USRPWD; ## Check if some users needs to be update and if, then do so !!
! #&DNS; ## build BIND host files an Config from MySQL Database !!
! #&APACHE; ## build APACHE Config from MySQL Database !!
! #&WEBALIZER; ## build Webalizer Stats !!
! #&SENDMAIL; ## SENDMAIL CONFIG BAUEN !!
print "FERTIG !!!\n\n"if($config{'debug'} eq 1);
exit;
--- 38,47 ----
output
! &USRPWD; ## Check if some users needs to be update and if, then do so !!
! &DNS; ## build BIND host files an Config from MySQL Database !!
! &APACHE; ## build APACHE Config from MySQL Database !!
! &STATS; ## build Usage Stats !!
! &SENDMAIL; ## SENDMAIL CONFIG BAUEN !!
print "FERTIG !!!\n\n"if($config{'debug'} eq 1);
exit;
***************
*** 166,170 ****
sub WEBALIZER {
! print "Erstelle Usage Statistiken...\n"if($config{'debug'} eq 1);
&db_open;
my $sql2 = qq[SELECT subdomain, domain, kunde, pfad, noapache FROM subdomains];
--- 166,170 ----
sub WEBALIZER {
! print "Erstelle Usage Statistiken mit WEBALIZER...\n"if($config{'debug'} eq 1);
&db_open;
my $sql2 = qq[SELECT subdomain, domain, kunde, pfad, noapache FROM subdomains];
***************
*** 352,354 ****
&db_close;
}
! exit;
--- 352,399 ----
&db_close;
}
!
! sub STATS {
! ### Choose wich statsscript to run...
! &WEBALIZER if($config{'stats'} eq 'webalizer');
! &AWSTATS if($config{'stats'} eq 'awstats');
! }
!
! sub AWSTATS {
! print "Erstelle Usage Statistiken mit AWSTATS...\n"if($config{'debug'} eq 1);
! &db_open;
! my $sql2 = qq[SELECT subdomain, domain, kunde, pfad, noapache FROM subdomains];
! $cursor2 = $dbh->prepare($sql2) or die "SELECT failed: $sql2";
! $cursor2->execute() or die $cursor2->errstr;
! while(defined($sub=$cursor2->fetch)){
! unless($sub->[4] eq 1){
! print " erstelle Statistik für $sub->[0]\n"if($config{'debug'} eq 1);
! mkdir "$config{'stats_basedir'}/$sub->[0]" unless -e "$config{'stats_basedir'}/$sub->[0]";
! unless (-e "/webpages/service/awstats-5.3/wwwroot/cgi-bin/awstats.$sub->[0].conf"){
! open(CF,">/webpages/service/awstats-5.3/wwwroot/cgi-bin/awstats.$sub->[0].conf");
! # print CF "LogFile=\"$config{'apache_logbasedir'}/$sub->[2]/$sub->[0]_access.log\"\n";
!
! print CF<<CONFIG;
! LogFile="/webpages/wwwlogs/$sub->[2]/$sub->[0]_access.log"
! LogFormat=1
! LogSeparator=" "
! DNSLookup=2
! DirData="$config{'stats_basedir'}/$sub->[0]"
! DirIcons="/icon"
! SiteDomain="$sub->[0]"
!
! CONFIG
!
! }
!
! $cmd=qx[$config{'awstats_bin'} -config=$sub->[0] -update -lang=de -dir=$config{'stats_basedir'}/$sub->[0] -awstatsprog=$config{'awstats_bin2'}\n];
! print $cmd;
! }}
! $cursor2->finish;
! &db_close;
!
! print "Statistiken Erstellt...\n\n"if($config{'debug'} eq 1);
! }
!
!
!
! exit;
\ No newline at end of file
|