(* Beginning operations *)

maintainInit := (
(* Copying required files *)
dirreq = FileNameJoin[{dirwork, "required", "root"}];
checkdir[dirreq];
SetDirectory[dirreq];
files = FileNames[];
Do[
 If[FileType[file] === File, 
   filedest = FileNameJoin[{dir0, file}];
   If[FileType[filedest] =!= File, CopyFile[file, filedest]]], {file, files}];
(* Copying HTML templates *)
dirsample = FileNameJoin[{dirwork, "templates"}];
checkdir[dirsample];
SetDirectory[dirsample];
files = FileNames[__ ~~ ".htm"];
dirtemplates = FileNameJoin[{dir0, "program", "templates"}];
checkdir1[dirtemplates];
Do[
 If[FileType[file] === File, 
   filedest = FileNameJoin[{dirtemplates, file <> ".txt"}];
   If[FileType[filedest] === File, DeleteFile[filedest]];
   CopyFile[file, filedest]], {file, files}];
(* Printing list of programs *)
maintainPrograms;
(* Correcting shooting data for some pictures taken under a microscope *)
rps = {
{"3180", "32"},
{"3182", "20"},
{"3182", "21"},
{"3349", "27"}
  };
Do[
{roll, pic} = rp;
date = DateList[datedata[roll, pic]];
date[[4]] = 12;
shootingdata["camera", roll, pic] = "USB Camera";
shootingdata["timezone1", roll, pic] = -5;
shootingdata["datetime", roll, pic] = date, {rp,rps}];
);