Clear["@"];
test=True; (* uncomment for testing *)
mroll=100; (* max. possible number of rolls *)
myear=1999; (* the last year *)
dir0="e:\\html\\pictures\\archives";

BeginPackage["flankblank`"]
flankblank::usage =
   "Eliminate flanking blanks or new-lines of a string."
Begin["`private`"]
flankblank[s_String]:=
If[s=="",s,
 If[s0=StringTake[s,1];s0==" "||s0=="\n",flankblank[StringDrop[s,1]],
  If[s9=StringTake[s,-1];s9==" "||s9=="\n",flankblank[StringDrop[s,-1]],s]]]
End[]
EndPackage[]

(* icon's src *)
dot0="'../../dot0.gif'";
dot1="'../../dot1.gif'";
dot2="'../../dot2.gif'";
right0="'../../right0.gif'";
right1="'../../right1.gif'";
right2="'../../right2.gif'";
left0="'../../left0.gif'";
left1="'../../left1.gif'";
left2="'../../left2.gif'";
dot0a="'../../dot0a.gif'";
dot1a="'../../dot1a.gif'";
right0a="'../../right0a.gif'";
right1a="'../../right1a.gif'";
left0a="'../../left0a.gif'";
left1a="'../../left1a.gif'";
dots="'../../dots.gif'";
blanksrc="'../../../../../blank.gif'";
(*   *)
If[test,{mroll,myear}={2,1996}];
npic=0;
Do[ (* year *) year=ToString[nyear];
Do[ (* roll *) roll=ToString[nroll];
dirslide=ToFileName[{dir0,"compress",year,roll,"jpeg"}];
If[SetDirectory[dirslide]!=StringDrop[dirslide,-1],Goto[1]];
fnames=FileNames["*.jpg"];
mf=Length[fnames];
(* Cycling through images *)
Do[fname=fnames[[nf]];
fn=StringDrop[fname,-4];
If[StringLength[fn]>3,Goto[2],npic++];
years[npic]=year;rolls[npic]=roll;numbers[npic]=fn;
Label[2],{nf,mf}];
Label[1],{nroll,mroll}],{nyear,1996,myear}];
mpic=npic;
Clear[npic];
rolls[0]="START";rolls[mpic+1]="END";
dotpas[npic_]:=
 If[rolls[npic]!=rolls[npic-1],If[npic==npic0,right2,If[rolls[npic]==roll0,right1,right0]],
   If[rolls[npic]!=rolls[npic+1],If[npic==npic0,left2,If[rolls[npic]==roll0,left1,left0]],
     If[npic==npic0,dot2,If[rolls[npic]==roll0,dot1,dot0]]
     ]
   ];
dotact[npic_]:=
 If[rolls[npic]!=rolls[npic-1],If[rolls[npic]==roll0,right1a,right0a],
   If[rolls[npic]!=rolls[npic+1],If[rolls[npic]==roll0,left1a,left0a],
     If[rolls[npic]==roll0,dot1a,dot0a]
     ]
   ];
dotact1[npic_]:=
 If[rolls[npic]!=rolls[npic-1],right2,
   If[rolls[npic]!=rolls[npic+1],left2,
     dot2
     ]
   ];
dotpas[0]=dotact[0]=dotpas[mpic+1]=dotact[mpic+1]=blanksrc;

Do[
year=years[npic];roll=rolls[npic];fn=numbers[npic];
{roll0,npic0}={roll,npic};
(***********)
(* Reading the title of the roll and the title of the slide from the file captions.txt *)
fn1=StringReplace[fn,"000"->"-1"];
nfn=ToExpression[fn1];
filecapt=ToFileName[{dir0,year,roll},"captions.txt"];
data=ReadList[filecapt,Record,RecordSeparators -> {"#"}];
mrec=Length[data];
rolltitle=gcaption=caption="";
Do[rec=data[[nrec]];
pos=StringPosition[rec,{" ","\n",":"}];
n=pos[[1,1]];
head=StringTake[rec,n-1];
sep=StringTake[rec,{n,n}];
content=StringDrop[rec,n]//flankblank;
(*Print[head];Print[sep];Print[content];*)
If[head=="ROLL",
   If[rolltitle!="",Print["WARNING: several titles for the same roll encountered in the caption file "<>capt]];
   rolltitle=content;Goto[9]];
If[sep=="\n"||sep==" ",
 If[head==fn,
   If[caption!="",Print["WARNING: several captions for the same slide "<>fn<>" encountered in the caption file "<>capt]];
   caption=content;Goto[9]]];
If[sep==":",
 head1=StringReplace[head,{"000"->"-1","-"->"+"}];
 range=Flatten[Release[ToExpression["{"<>head1<>"}",InputForm,Hold]/.Plus->Range]];
 If[MemberQ[range,nfn],
   gcaption=gcaption<>"<BR>\n"<>content;Goto[9]]];
Label[9],{nrec,mrec}];
gcaption=flankblank[gcaption];
gcapt=StringReplace[gcaption,{"&nbsp;"->"","&quot;"->"","\n"->" "}];
While[StringMatchQ[gcapt,"*<*>*"],
   n1=StringPosition[gcapt,"<"][[1,1]];
   n2=StringPosition[gcapt,">"][[1,1]];
   gcapt=If[n1<n2,StringDrop[gcapt,{n1,n2}],StringDrop[StringDrop[gcapt,{n1}],{n2}]] ];
cap=If[caption=="",gcapt,caption]//flankblank;
capt=If[caption=="",gcaption,caption]//flankblank;
rolltit=If[caption=="","<BR>"<>rolltitle,""];
(* For testing
Print["    ------"];
Print[rolltitle];
Print["    ------"];
Print[caption];
Print["    ------"];
Print[gcaption];
Print["    ------"];
Print[gcapt];
*)
(* End reading from capt *)
(***********)
mdots=20; (* number of dots on both sides from the central dot *)
of=OpenWrite[ToFileName[{dir0,"compress",year,roll},fn<>".htm"],PageWidth->Infinity];
Write[of,"<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 3.2//EN\">"//OutputForm];
Write[of,"<HTML><HEAD>"//OutputForm];
Write[of,"<TITLE>"<>rolltitle<>": Slide #"<>fn<>"-"<>roll<>"</TITLE>"//OutputForm];
Write[of,"<META name=\"keywords\" content=\"pictures, photographs, photos, images, photo album, gallery, scenery, daily, university\">"//OutputForm];
Write[of,"<META name=\"description\" content=\""<>cap<>"\"></HEAD>"//OutputForm];

(* Definition of over and out starts *)
over=out="";
Do[ipic=npic+i;
rolli=rolls[ipic];
If[rolli==roll&&i!=0,
over=over<>"document."<>If[i<0,"l","r"]<>ToString[Abs[i]]<>".src="<>dotact1[ipic]<>"; ";
out =out <>"document."<>If[i<0,"l","r"]<>ToString[Abs[i]]<>".src="<>dotpas[ipic] <>"; ";
  ]
,{i,-mdots,mdots}];
(* Definition of over and out endss *)

ldprev=ldnext=" ";
If[npic>1,
 yearpr=years[npic-1];rollpr=rolls[npic-1];fnpr=numbers[npic-1];
 ldprev="document.prev.src='../../"<>yearpr<>"/"<>rollpr<>"/jpeg/"<>fnpr<>".jpg'; "
  ];
If[npic<mpic,
 yearne=years[npic+1];rollne=rolls[npic+1];fnne=numbers[npic+1];
 ldnext="document.next.src='../../"<>yearne<>"/"<>rollne<>"/jpeg/"<>fnne<>".jpg'; "
  ];
Write[of,"<BODY BGCOLOR=\"#C0C0C0\" ONLOAD=\""<>ldnext<>ldprev<>"\">"//OutputForm];
(* Table begins *)
(* T0 *) Write[of,"<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=765 HEIGHT=382>\n
<TR><TD ROWSPAN=2 ALIGN=\"LEFT\" VALIGN=\"TOP\" WIDTH=376>"//OutputForm];
(* Slide *)
bc=Floor[FileByteCount[ToFileName[{dir0,year,roll,"jpeg"},fn<>".jpg"]]/1000];
Write[of,"<FONT SIZE=\"-2\"><P><A HREF=\"http://lepera.chem.purdue.edu/pictures/archives/"<>year<>"/"<>roll<>"/jpeg/"<>fn<>".jpg\"><IMG SRC=\"../../"<>year<>"/"<>roll<>"/jpeg/"<>fn<>".jpg\" WIDTH=376 HEIGHT=376 BORDER=0 ALT=\"Click to view full-size image of this slide ("<>fname<>").\"><BR></A>"//OutputForm];
Write[of,"Click to view full-size image ("<>ToString[bc]<>" KB)</P></FONT></TD>\n
<TD ROWSPAN=2 WIDTH=5>&nbsp;</TD>"//OutputForm];
(* T1 T2 *) Write[of,"<TD VALIGN=\"TOP\" ALIGN=\"RIGHT\" WIDTH=384>\n
<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=0 WIDTH=308><TR><TD>\n
<TABLE BORDER=0 CELLSPACING=3 CELLPADDING=0><TR><TD ALIGN=\"LEFT\">"//OutputForm];
blank="<P><IMG SRC="<>blanksrc<>" WIDTH=150 HEIGHT=150 BORDER=0></P>";
(* Prev. image *)
prev=If[npic==1,blank,
If[rollpr==roll,"<FONT SIZE=\"-2\"><P><A HREF=\"../../"<>yearpr<>"/"<>rollpr<>"/"<>fnpr<>".htm\" onMouseOver=\"document.l1.src="<>dotact[npic-1]<>"\" onMouseOut=\"document.l1.src="<>dotpas[npic-1]<>"\"><IMG SRC=\"../../arrow-l.gif\" WIDTH=150 HEIGHT=150 BORDER=0 NAME=\"prev\" ALT=\"#"<>fnpr<>"-"<>rollpr<>" <---\"><BR></A>Previous</P></FONT>",
"<FONT SIZE=\"-2\"><P><A HREF=\"../../"<>yearpr<>"/"<>rollpr<>"/"<>fnpr<>".htm\" onMouseOver=\"document.l1.src="<>dotact[npic-1]<>"\" onMouseOut=\"document.l1.src="<>dotpas[npic-1]<>"\"><IMG SRC=\"../../film-l.gif\" WIDTH=150 HEIGHT=150 BORDER=0 NAME=\"prev\" ALT=\"#"<>fnpr<>"-"<>rollpr<>" <--- to the end of the previous roll\"><BR></A>Previous roll of film</P></FONT>" ]];
Write[of,prev//OutputForm];
(* *)
Write[of,"</TD><TD ALIGN=\"RIGHT\">"//OutputForm];
(* Next image *)
next=If[npic==mpic,blank,
If[rollne==roll,"<FONT SIZE=\"-2\"><P><A HREF=\"../../"<>yearne<>"/"<>rollne<>"/"<>fnne<>".htm\" onMouseOver=\"document.r1.src="<>dotact[npic+1]<>"\" onMouseOut=\"document.r1.src="<>dotpas[npic+1]<>"\"><IMG SRC=\"../../arrow-r.gif\" WIDTH=150 HEIGHT=150 BORDER=0 NAME=\"next\" ALT=\"---> #"<>fnne<>"-"<>rollne<>"\"><BR></A>Next</P></FONT>",
"<FONT SIZE=\"-2\"><P><A HREF=\"../../"<>yearne<>"/"<>rollne<>"/"<>fnne<>".htm\" onMouseOver=\"document.r1.src="<>dotact[npic+1]<>"\" onMouseOut=\"document.r1.src="<>dotpas[npic+1]<>"\"><IMG SRC=\"../../film-r.gif\" WIDTH=150 HEIGHT=150 BORDER=0 NAME=\"next\" ALT=\"---> #"<>fnne<>"-"<>rollne<>" start the next roll\"><BR></A>Next roll of film</P></FONT>" ]];
Write[of,next//OutputForm];
(* *)
(* T3 *) Write[of,"</TD></TR>\n
<TR><TD ALIGN=\"CENTER\" COLSPAN=2><TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0><TR>"//OutputForm];
(* Ruler of images *)
If[npic>mdots+1,Write[of,"<TD><IMG SRC="<>dots<>" WIDTH=7 HEIGHT=7 BORDER=0></TD>"//OutputForm],
   Write[of,"<TD><IMG SRC="<>blanksrc<>" WIDTH=7 HEIGHT=7 BORDER=0></TD>"//OutputForm]
  ];
Do[
If[i==0,
   Write[of,"<TD><IMG SRC="<>dotpas[npic]<>" WIDTH=7 HEIGHT=7 BORDER=0 ALT=\"Current slide #"<>fn<>"-"<>roll<>"\"></TD>"//OutputForm],
   ipic=npic+i;
   If[ipic<1||ipic>mpic,
   Write[of,"<TD><IMG SRC="<>blanksrc<>" NAME=\""<>If[i<0,"l","r"]<>ToString[Abs[i]]<>"\" WIDTH=7 HEIGHT=7 BORDER=0></TD>"//OutputForm],
   Write[of,"<TD><A HREF=\"../../"<>years[ipic]<>"/"<>rolls[ipic]<>"/"<>numbers[ipic]<>".htm\" onMouseOver=\"document."<>If[i<0,"l","r"]<>ToString[Abs[i]]<>".src="<>dotact[ipic]<>"\" onMouseOut=\"document."<>If[i<0,"l","r"]<>ToString[Abs[i]]<>".src="<>dotpas[ipic]<>"\"><IMG SRC="<>dotpas[ipic]<>" NAME=\""<>If[i<0,"l","r"]<>ToString[Abs[i]]<>"\" WIDTH=7 HEIGHT=7 BORDER=0 ALT=\"#"<>numbers[ipic]<>"-"<>rolls[ipic]<>"\"></A></TD>"//OutputForm]
     ]
   ]
,{i,-mdots,mdots}];
If[npic<mpic-mdots,Write[of,"<TD><IMG SRC="<>dots<>" WIDTH=7 HEIGHT=7 BORDER=0></TD>"//OutputForm],
   Write[of,"<TD><IMG SRC="<>blanksrc<>" WIDTH=7 HEIGHT=7 BORDER=0></TD>"//OutputForm]
  ];
(* Ruler ends *)
(* /T3 T3a /T3a *) Write[of,"</TR></TABLE></TD></TR>\n
<TR><TD ALIGN=\"CENTER\" VALIGN=\"MIDDLE\" COLSPAN=2><FONT SIZE=\"-1\">\n
<A HREF=\"../../../"<>year<>"/"<>roll<>"/browser.htm\" onMouseOver=\""<>over<>"\" onMouseOut=\""<>out<>"\">Current roll of film:<BR>"<>rolltitle<>"</A>\n
</FONT></TD></TR>"//OutputForm];
(* /T2 /T1 *) Write[of,"</TABLE></TD></TABLE></TD></TR><TR><TD ALIGN=\"LEFT\" VALIGN=\"MIDDLE\" HEIGHT=160>"//OutputForm];
(* No-script notice *)
Write[of,"<NOSCRIPT><TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 BGCOLOR=\"#FFFF00\"><TR><TD><FONT SIZE=\"-2\">Notice. It is advisable to enable &quot;Java-scripts&quot; because it would speed up transitions between slides by means of pre-loading</FONT></TD></TR></TABLE></NOSCRIPT>"//OutputForm];
(* Title *)
Write[of,"<!-- CAPTION STARTS --><B>"//OutputForm];
Write[of,"<P><FONT SIZE=\"+1\">"<>capt<>"</FONT></P><P>#"<>fn<>"-"<>roll<>rolltit<>"</P>"//OutputForm];
Write[of,"<!-- CAPTION ENDS --></B>"//OutputForm];
(* Table ends *)
Write[of,"</TD></TR></TABLE>"//OutputForm];
(* References *)
Write[of,"<P><TABLE BORDER=\"0\" CELLSPACING=\"3\" CELLPADDING=\"4\"><TR ALIGN=\"CENTER\" BGCOLOR=\"#E1C1C1\">"//OutputForm];
(*Write[of,"<TD><A HREF=\"../../../"<>year<>"/"<>roll<>"/browser.htm\"><FONT SIZE=\"-2\">This roll of film:\n
<BR>"<>rolltitle<>"</FONT></A></TD>"//OutputForm];*)
Write[of,"<TD><A HREF=\"../../../"<>year<>"/list.htm\">Pictures-"<>year<>"</A></TD>"//OutputForm];
Write[of,"<TD><A HREF=\"../../../list.htm\">Picture Archives</A></TD>"//OutputForm];
Write[of,"<TD><A HREF=\"../../../../index.htm\">Selected Pictures</A></TD>"//OutputForm];
Write[of,"<TD><A HREF=\"http://farol.chem.purdue.edu/~alexei/cgi-bin/sshow.cgi\">Random Slide Show</A></TD>"//OutputForm];
Write[of,"<TD><A HREF=\"../../../../../files/index.htm\">Directory of files</A></TD>"//OutputForm];
Write[of,"<TD><A HREF=\"../../../../../index.htm\">A.&nbsp;Sergeev</A></TD>"//OutputForm];
Write[of,"</TR></TABLE></P>"//OutputForm];
Write[of,"</BODY></HTML>"//OutputForm];
Print["Roll #"<>roll<>"  Slide #"<>fn<>"  --- Picture #",npic];
Close[of],{npic,mpic}];