| Sitemap |
' sprintf('\n')];
smc = [smc startentry];
end
% finish prevoius dir
smc = [smc ['
|
']];
% get current dir listing
d = dir;
dirname = [strrep(pwd,baseurl,'') '/']; % for root dir
dirname = [strrep(dirname,'\','/')];
direntry = ['',dirname,'
|
' sprintf('\n')];
ndirs = ndirs + 1;
smc = [smc direntry];
d = d(3:length(d));
[t,ind]=sort(cat(1,d.isdir));
d = d(ind);
for i=1:size(d,1),
if d(i).isdir,
cd(d(i).name);
sitemap(1);
else
if findstr(d(i).name,'.htm'),
disp(d(i).name);
fidr=fopen(d(i).name,'r');
F = fread(fidr);
fclose(fidr);
F = F(find(F~=10 & F~=13 & F~=9));
S = char(F');
s = lower(S);
% find title
i1 = findstr(s,''); % length 7
i2 = findstr(s,'');
Title = S(i1+7:i2-1);
% find description
i1 = findstr(s,'');
Description = S(i1+34:i1+i2(1)-1);
else
Description = '(no content specified)';
end
% write file entry
fileentry = ['',d(i).name,' ',Title,'
',Description,' |
' sprintf('\n')];
nfiles = nfiles + 1;
smc = [smc fileentry];
end
end
end
if (goUp),
cd ..
else
% finish html
finishentry = ['
',num2str(nfiles),' files in ',num2str(ndirs),' dirs
This site map was generated at ',date,' by sitemap.m |
'];
smc = [smc finishentry];
% write Sitemap.html file
if exist([cd '\Sitemap.html']),
!del Sitemap.html
end
fidw = fopen('Sitemap.html','wt');
fwrite(fidw,smc,'char');
fclose(fidw);
end
return