#!/local/bin/perl sub imgToHtml{ local($img)=@_; local($position,$result); $position=rindex($img,"/"); if($position<0){ $result="img-".$img.".html"; }else{ $result="img-".substr($img,$position+1,length($img)).".html"; } $result; }#imgToHtml sub previousAndNext{ local($previous,$next)=@_; local($result); if($previous eq ''){ if($next eq ''){ $result=sprintf(<Index | Previous | Next EOF ); }else{ $result=sprintf(<Index | Previous | Next EOF ,&imgToHtml($next)); } }else{ if($next eq ''){ $result=sprintf(<Index | Previous | Next EOF ,&imgToHtml($previous)); }else{ $result=sprintf(<Index | Previous | Next EOF ,&imgToHtml($previous),&imgToHtml($next)); } } #printf "previousAndNext %s %s -> \n%s\n",$previous,$next,$result; $result; }#previousAndNext sub doimg{ local($previous,$img,$next)=@_; printf "Processing %s...\n",$img; $imghtml=&imgToHtml($img); open(IMG,">".$imghtml); printf IMG < %s

%s

EOF ,$img,$img; $pan=&previousAndNext($previous,$next); printf IMG "%s\n",$pan; printf IMG <\n EOF ,&imgToHtml($next),$img; printf IMG "%s\n",$pan; printf IMG <
If you have suggestions, comments or feedback, please send mail to Webmaster. EOF ; close IMG; printf INDEX <%s. EOF ,$imghtml ,$img; }#doimg; open(INDEX,">index.html"); printf INDEX < INDEX

Index

Please browse these documents:

    EOF ; $previous=''; $img=''; foreach $next ( @ARGV ){ if($img ne ''){ &doimg($previous,$img,$next); } $previous=$img; $img=$next; $next=''; } if($img ne ''){ &doimg($previous,$img,$next); } printf INDEX <

    If you have suggestions, comments or feedback, please send mail to Webmaster . EOF ; close INDEX;