6 use vars qw/$dbh $ifile $ofile @ilist %hash $key $val $cur $line $dbh $sys_dbname $sys_dbuser $sys_dbpasswd $token/ ;
8 require("/etc/gforge/local.pl");
9 require ("/usr/share/gforge/lib/include.pl") ;
15 $ifile = '/usr/share/gforge/etc/templates/httpd.vhosts' ;
16 $ofile = '/var/lib/gforge/etc/templates/httpd.vhosts' ;
19 or die "Can't open input file '$ifile'" ;
23 open (OFILE, "> $ofile")
24 or die "Can't open output file '$ofile'" ;
26 my $query = "select vh.vhost_name, vh.docdir, vh.cgidir from prweb_vhost vh, groups g where g.status = 'A' and vh.group_id = g.group_id order by vh.vhost_name";
27 my $c = $dbh->prepare($query);
30 while(my ($vhost_name, $docdir, $cgidir) = $c->fetchrow()) {
32 $hash{vhost_name} = $vhost_name ;
33 $hash{docdir} = $docdir ;
34 $hash{cgidir} = $cgidir ;
36 foreach my $tmpl_line (@ilist) {
37 my $line = $tmpl_line ;
39 foreach $cur (keys %hash) {
41 $line =~ s/$token/$hash{$cur}/g ;
43 print OFILE "$line\n";