#!/usr/bin/perl
printf("generating vindex.html ");
`echo "" > vindex.html`;
`echo "
" >> vindex.html`;
`echo "Index of Pictures taken with WearComp7 system" >>
vindex.html`;
`echo "" >> vindex.html`;
`echo "" >> vindex.html`;
`echo "Pictures taken with WearComp7 system
" >> vindex.html`;
#for ($counter=0; $counter<=999; $counter++) {
#while (defined($nextname = )) {
while (defined($nextname = )) {
# $filev = sprintf("v%03d.jpg", $counter);
$filev = $nextname;
# $files = sprintf("s%03d.jpg", $counter);
$files = sprintf("s%s", $nextname);
$files =~ s/sv/s/;
# printf("creating html link for file $filev\n");
printf("creating html link for file $nextname\n");
#`echo "" >> vindex.html`;
# `echo "" >> vindex.html`;
`echo "$filev" >> vindex.html`;
}
`echo "
" >> vindex.html`;
`date >> vindex.html`;
`echo "" >> vindex.html`;
`echo "" >> vindex.html`;
`echo "" >> vindex.html`;