#!/usr/bin/perl
$dir="/home/root/.kde/share/apps/konq-embed";
open(START,">$dir/start.html") or die "cannot openfile\n";
print START "\n";
print START "\n";
print START "Bookmarks\n";
print START "\n";
print START "\n";
print START "choose a destination
\n";
print START "
\n";
print START "google
\n";
print START "
\n";
print START "\n";
open(BOOK,"$dir/bookmarks.xml") or die "connot open bookmarks\n";
while()
{
if(m/$_";
}
if(m//)
{
s/<title>//;
s/<\/title>//;
chomp($_);
print START "$_";
}
if(m/<\/bookmark>/)
{
print START "</a></li>\n";
}
}
close(BOOK);
print START "</ul>\n";
print START "</body>\n";
print START "</html>\n";
close(START);