#!/usr/bin/awk -f
#
# info2idxs -- convert info to idxs
#
# usage: info2idxs galleries.info > galleries.idxs
#
# http://www.heikopurnhagen.net/software/info2idxs
#
# This program is available under the terms of the GNU General Public
# License (GPL). All usual disclaimers apply!
#
# Heiko Purnhagen   (mail@heikopurnhagen.net)
# HP 20080817

BEGIN {
  numinfo = 0;
  diridx = 0;
}

{
  if (!diridx) {
    if ($1 == "DIRIDX") {
      hepudir = $2;
      getline;
      title = $0;
      getline;
      caption = $0;
      getline;
      year = $0;
      getline;
      webdir = $0;
      getline;
      thumb = $0;
      diridx = 1;
    }
    else if ($1 == "DIRKEY") {
      hepudir[numinfo] = $2;
      key[numinfo] = $3;
      getline;
      title[numinfo] = $0;
      getline;
      caption[numinfo] = $0;
      getline;
      srcdir[numinfo] = $0;
      getline;
      year[numinfo] = $0;
      getline;
      webdir[numinfo] = $0;
      getline;
      thumb[numinfo] = $0;
      numinfo++;
    }
  }
}  

END {
  print "INFO2IDXS diridx=" diridx " numinfo=" numinfo > "/dev/stderr";
  if (diridx) {
    print title;
    print webdir "/index.html";
    print webdir "/thumbs/" thumb "_thumb.jpg";
    print "";
  }
  else {
    for (i=0; i<numinfo; i++) {
      print title[i];
      print webdir[i] "/index.html";
      print webdir[i] "/thumbs/" thumb[i] "_thumb.jpg";
      print "";
    }
  }
}

#--