my($thebase) = ($file =~ /(.*)\/[^\/]+/);
my($html,$html2);

if (!-e $file){
$thebase =~ s/\/[^\/]+$/\/default/;