Threaded Mode | Linear Mode

fred · 08-22-2009 09:37 PM

Code:

#!/usr/bin/perl

@dirs = `find /var/www/virtual|grep viralhosts.com\$`;

open(F, ">/var/www/ispcp/gui/sites.html");

print F "<html><body>";

foreach(@dirs) {

 chomp;

 /.*\/(.*)$/;

 print F "<a href='http://$1'>$1</a><br>";

}

print F "</body></html";

close F;

http://yourhost.com/sites.html shows all your client sites.

Top44 · 01-22-2010 06:35 AM

Hi,

did not work, recoded it to :

Code:

#!/usr/bin/perl

@dirs = `ls /var/www/virtual`;

open(F, ">/var/www/ispcp/gui/sites.html");

print F "<html>\n<body>";

foreach(@dirs) {

chomp;

/.*\/(.*)$/;

print F "<a href='http://$_'>$_</a><br>\n";

}

print F "</body>\n</html>";

close F;

greets

Threaded Mode \| Linear Mode Google-ble sitemap of your hosting clients' sites
Author	Message