Readout domainslist for webalizer

Code:

#!/bin/bash

/var/www/vhcs2/engine/vhcs2-get-domain.pl

for domain in $(cat /etc/webalizer/domains)

do

webalizer /var/www/virtual/$domain/logs/$domain-access.log -o /var/www/virtual/$domain/htdocs/webstats/

done

Code:

#!/usr/bin/perl -w

require '/var/www/ispcp/engine/ispcp_common_code.pl'; 

use strict;

use warnings;

&return_all_domains;

sub return_all_domains {

  #initializing vars

  my $sql;

  my ($rs, $rdata) = (undef, undef);

  $sql = "select domain_name from domain";

 

  ($rs, $rdata) = doSQL($sql);

 

  my $dmn_count = @$rdata;

 

  # open the file to write all domains in

  open(FILE, '>/etc/webalizer/domains') or die("impossible Access /etc/webalizer/domains");

 

  if ($dmn_count > 0) {

    foreach (@$rdata) {

      my $row = $_;

      print FILE @$row[0]."\n";

      #it is necessary to add an anti slash before last "N" of the preceding line.



    }

  }

  close FILE; 

}

Code:

#!/usr/bin/perl -w

#   -------------------------------------------------------------------------------

#  |                  webalizer: a web based log                                   |

#  |                  Copyright (c) 2009 by TopMusic                               |

#  |                                                                               |

#  | This program is free software; you can redistribute it and/or                 |

#  | modify it under the terms of the GNU General Public License                   |

#  | as published by the Free Software Foundation; either version 2                |

#  | of the License, or (at your option) any later version.                        |

#  |                                                                               |

#   -------------------------------------------------------------------------------



use DBI;

use warnings;



$user = "mysql username";

$password = "mysql password";

$database = "database name";

$host_name = "localhost";



# Open connection and establish object

$dbh = DBI->connect("DBI:mysql:$database:$host_name", $user, $password);



# Store SQL to be run in the $SQL var

$SQL = "SELECT domain_name from domain";



# Prepare and execute your SQL

$cursor = $dbh->prepare($SQL);

$cursor->execute;



#handle any SQL errors

if ($DBI::errstr) {

print "$DBI::errstr $SQL";

exit;

}

# open the file to write all domains in

my $filename = '/etc/webalizer/domains';

open FILE, "> $filename"  or die "Can't open $filename : $!";

while (@row=$cursor->fetchrow) {

    foreach ($row[0]) {

    print FILE $_ . "\n";

    }

}

close(FILE);



#Close the cursor

$cursor->finish;



#disconnect;

$dbh->disconnect;