[Yawcs-cvs] yawcs webconf.pl,1.4,1.5

[<tre...@us...>]

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