'//trim(adjustl(Names(g)))//'

'
       write(11,*) '

'
    else
       write(11,*) ''
       write(11,*) '   '
    end if
    do n=1,nbfiles ! Loop on files, and find all level 1 files. Also detect the current file to set it active (Selected)
       if(levelandparity(4,n) == 1) then
          if(n==levelandparity(1,g)) then
             write(11,*) '      '
                write(11,*) '          '//trim(adjustl(Names(n)))//' '
             write(11,*) '      '
          else
             write(11,*) '      '
             write(11,*) '          '//trim(adjustl(Names(n)))//' '
             write(11,*) '      '
          end if
       end if
    end do
    write(11,*) '  '
    write(11,*) ''


    ! Each page contain a Level 2 menu, except thoses who do not have sons
    if(((fHaveSons(g) .EQV. .true.) .AND. levelandparity(4,g) == 1) .OR. levelandparity(4,g) > 1) then
       write(11,*) ''
       write(11,*) '   '
       do n=1,nbfiles ! Loop on files, and find all level 2 files. Also detect the current file to set it active (Selected)
          if(levelandparity(4,n) == 2) then
             if(levelandparity(1,n) == levelandparity(1,g)) then
             if(n==levelandparity(2,g)) then
                write(11,*) '      '
                if((fHaveSons(n) .EQV. .true.)) then ! Set selected and add decoration if have sons.
                write(11,*) '          '//trim(adjustl(Names(n)))//' '
             else ! Set selected only if no sons.
                write(11,*) '          '//trim(adjustl(Names(n)))//' '
             end if
                write(11,*) '      '
             else
                write(11,*) '      '
                write(11,*) '          '//trim(adjustl(Names(n)))//' '
                write(11,*) '      '
             end if
             end if
          end if
       end do
    write(11,*) '  '
    write(11,*) ''
    end if


    ! Each Level 2 and 3 pages contain a Level 3 menu, except Level 2 who do not have sons
    if( ((fHaveSons(g) .EQV. .true.) .AND. levelandparity(4,g) == 2) .OR. levelandparity(4,g) == 3) then
       write(11,*) ''
       write(11,*) '   '
       do n=1,nbfiles ! Loop on files, and find all level 3 files. Also detect the current file to set it active (Selected)
          if(levelandparity(4,n) == 3) then
             if(levelandparity(2,n) == levelandparity(2,g)) then
             if(n==levelandparity(3,g)) then
                write(11,*) '      '
                write(11,*) '          '//trim(adjustl(Names(n)))//' '
                write(11,*) '      '
             else
                write(11,*) '      '
                write(11,*) '          '//trim(adjustl(Names(n)))//' '
                write(11,*) '      '
             end if
             end if
          end if
       end do
       write(11,*) '  '
       write(11,*) ''
    end if




    write(11,*) ' '
    write(11,*) ''
    write(11,*) ' '
    write(11,*) '    '
    write(11,*) '       '
    write(11,*) '          '
    write(11,*) '          '
    write(11,*) '          '
    write(11,*) '       '
    write(11,*) '     '
    write(11,*) '             '
    write(11,*) '             '
    write(11,*) '             '
    write(11,*) '             '
    write(11,*) ' '
    write(11,*) ''
    write(11,*) '             '
    if(levelandparity(4,g) == 1) write(11,*) ' Current location : /'//&
    &''//trim(adjustl(Names(levelandparity(1,g))))//''
    if(levelandparity(4,g) == 2) write(11,*) ' Current location : /'//&
    &''//trim(adjustl(Names(levelandparity(1,g))))//'/'//&
    &''//trim(adjustl(Names(levelandparity(2,g))))//''
    if(levelandparity(4,g) == 3) write(11,*) ' Current location : /'//&
    &''//trim(adjustl(Names(levelandparity(1,g))))//'/'//&
    &''//trim(adjustl(Names(levelandparity(2,g))))//'/'//&
    &''//trim(adjustl(Names(levelandparity(3,g))))//''
    write(11,*) '             '
    write(11,*) '             '
    write(11,*) ' '
    write(11,*) ''
    write(11,*) '             '
    write(11,*) '                '
    write(11,*) '                '
    write(11,*) '                '
    write(11,*) '              '
    write(11,*) ''
    write(11,*) ''
    write(11,*) ''

    close(11)


    ! Insert Title and first comment
    call system('cat '//trim(adjustl(fArbo(g)))//'/titlebody'//' >> '//trim(adjustl(fFileArbo(g))))


    ! Build page structure menu
    ! Check if page structure menu needed
    open(12,file=trim(adjustl(fArbo(g)))//'/body')
    Report = 0
    Compt = 0
    do
       read(12,'(A)',IOSTAT=Report) buffcharlen
       if(Report < 0) exit !End of file reached
       if(index(buffcharlen,'"Section"') > 0 ) Compt = Compt + 1
       if(index(buffcharlen,'"SubSection"') > 0 ) Compt = Compt + 1
    end do
    close(12)

    if(Compt > 0) then

    open(11,file=trim(adjustl(fFileArbo(g))),POSITION='APPEND')
    write(11,*) '
'
    write(11,*) '
'
    write(11,*) 'Page structure :
'
    write(11,*) '
'
    write(11,*) ''
    write(11,*) ''
    write(11,*) ''
    write(11,*) ''
    write(11,*) ''
    write(11,*) ''
    write(11,*) ' '
    write(11,*) ''
!    print *,"opening",trim(adjustl(fArbo(g)))//'/body'
    open(12,file=trim(adjustl(fArbo(g)))//'/body')
    Report = 0
    do
       read(12,'(A)',IOSTAT=Report) buffcharlen
       if(Report < 0) exit !End of file reached
       if(index(buffcharlen,'"Section"') > 0 ) then
!           print *,"find section",buffcharlen
           read(buffcharlen,'(400A)') buffchar
           write(buffcharlen,*) buffchar(SCAN(buffcharlen,'>',.false.)+1:SCAN(buffcharlen,'<',.true.)-1)
           write(11,*) '✦ '//trim(adjustl(buffcharlen))//'
'
       endif
       if(index(buffcharlen,'"SubSection"') > 0 ) then
!           print *,"find subsection",buffcharlen
           read(buffcharlen,'(400A)') buffchar
           write(buffcharlen,*) buffchar(SCAN(buffcharlen,'>',.false.)+1:SCAN(buffcharlen,'<',.true.)-1)
           write(11,*) '  ↘ '//trim(adjustl(buffcharlen))//'
'
       endif
    end do

    write(11,*) ''
    write(11,*) ' '
    write(11,*) ' '
    write(11,*) '
'
    close(11)
    close(12)

    end if

    call system('cat '//trim(adjustl(fArbo(g)))//'/body'//' >> '//trim(adjustl(fFileArbo(g))))

    ! detect if only intermed page
    ! protect segfault
    if(g > 1 .AND. g < nbfiles) then
       if(Levels(levelandparity(4,g),g-1) /= Levels(levelandparity(4,g),g) .AND. Levels(levelandparity(4,g),g+1) == Levels(levelandparity(4,g),g)) then
          open(11,file=trim(adjustl(fFileArbo(g))),POSITION='APPEND')
!          write(11,*) '
'
!          write(11,*) '
'
!          write(11,*) ''//Names(g)//'

'
          write(11,*) '
'
          write(11,*) '
'
          write(11,*) ''//trim(adjustl(Names(g)))//'

'
          write(11,*) ' Available Subsections : 

 

'
          write(11,*) ''
          write(11,*) ''
          write(11,*) ''
          write(11,*) ''
          write(11,*) ''
          write(11,*) ' '
          write(11,*) '
'
!          write(11,*) ' '
          do n=g+1,nbfiles
             if(Levels(levelandparity(4,g),n) == Levels(levelandparity(4,g),g)) then
                if(levelandparity(4,n) == 2) then
                   write(11,*) '
'
                   write(11,*) ''
!                   write(11,*) ''//''//trim(adjustl(Names(n)))//''//'
'
                   write(11,*) ''//'→ '//trim(adjustl(Names(n)))//''//'
'
                   write(11,*) ''
                end if
                if(levelandparity(4,n) == 3)  then
                   write(11,*) ''
!                   write(11,*) ''//''//trim(adjustl(Names(n)))//''//'
'
                   write(11,*) ''//'→ '//trim(adjustl(Names(n)))//''//'
'
                   write(11,*) ''
                end if
             else
                exit
             end if
          end do
          write(11,*) ' '

!          write(11,*) ' '
          close(11)
       end if
    end if

    open(11,file=trim(adjustl(fFileArbo(g))),POSITION='APPEND')

    write(11,*) '                
'
    write(11,*) '                 '
    write(11,*) '          '
    write(11,*) ' '
    write(11,*) ''
    write(11,*) ''
    write(11,*) ''
    write(11,*) '  '
    write(11,*) '    '
do gg=1,nbfiles
   if(trim(adjustl(Arbo(gg))) == "index")     write(11,*) '         Home       '
   if(trim(adjustl(Arbo(gg))) == "About")     write(11,*) '         Contact       '
   if(trim(adjustl(Arbo(gg))) == "About")     write(11,*) '         About       '
end do
!    write(11,*) '         Home       '
!    write(11,*) '         Contact       '
!    write(11,*) '         About       '
    write(11,*) '    '
    write(11,*) '  '
    write(11,*) ''
    write(11,*) ''
    write(11,*) ''


 end do

 ! Generating sitemap.xml
    call system("echo '"//''//"' > "//'sitemap.xml')
    open(11,file='sitemap.xml',POSITION='APPEND')
    write(11,*) ''
    do g=1,nbfiles
       write(11,*) '  '
       write(11,*) '    '//'http://spheniscus.brennik.fr/'//trim(adjustl(fFileArbo(g)))//''
       write(11,*) '    '//year//'-'//month//'-'//day//''
       write(11,*) '    '//'weekly'//''
       write(11,*) '    '//'1'//''
       write(11,*) '  '
    end do
    close(11)
    call system('echo '//'""'//' >> '//'sitemap.xml')

end program staticgen