function web_keynote_process

key_path{1}='../web_db_slides/';
key_web{1}='http://www.o3d.org/web_db_slides/';
key_name{1}='pobex'

key_path{2}='../web_db_slides/';
key_web{2}='http://www.o3d.org/web_db_slides/';
key_name{2}='npgo'

for i=1:2

    %str=['cp ',key_path{i},key_name{i},'.key/index.apxl.gz . ; gzip -d index.apxl.gz']; unix(str);
    %!grep '#SL NOTE' index.apxl | cut -f2 -d '>' | cut -f1 -d '<' > slides_ref.txt; rm index.apxl

    file_info=[key_path{i},key_name{i},'_tmp.txt'];
    if exist(file_info)
        disp(['Processing ... ',file_info]);

        str=['ls -1 ',key_path{i},key_name{i},'.png/',key_name{i},'*.png > slides_list.txt']; unix(str);

        refs= textread([key_path{i},key_name{i},'_tmp.txt'],'%s','delimiter','\n','whitespace','');
        % skip first line which is empty
        refs=refs(2:end);
        for j=1:length(refs)
            str=refs{j};
            in=findstr(str, '#');
            istr=in(1)+1:in(2)-1;
            db(j).type= { str(istr) };
            istr=in(3)+2:in(4)-2;
            db(j).name= { str(istr) };
            istr=in(4)+2:length(str);
            db(j).desc= { str(istr) };
            db(j).vis={'#pobex# #npgo#'};
        end
        % Assign web path of file
        for j=1:length(refs)
            db(j).file={ [key_web{i},key_name{i},'.png/',db(j).name{:},'.PNG']} ;
        end
        web_db_write([key_path{i},key_name{i},'.txt'], db);

        % now move files
        files= textread('slides_list.txt','%s','delimiter','\n','whitespace','');
        if length(files) == length(refs)
            for j=1:length(refs)
                str=['mv ',files{j},' ',key_path{i},key_name{i},'.png/',db(j).name{:},'.PNG'];
                disp(str); unix(str);
            end
        end


        !rm slides_ref.txt
        !rm slides_list.txt
        str=['rm ',key_path{i},key_name{i},'_tmp.txt']; unix(str);
    end

end