#!/usr/bin/perl
use warnings;
use strict;
use Storable;

# the %info hash is setup with
#  $info{$key}{'name'} = $key;
#  $info{$key}{'pic'} = "pics/$key.jpg"; #convert to jpg
#  $info{$key}{'thumbnail'} = "thumbs/$key.jpg";
#  $info{$key}{'comment'} = 'nice';
#  $info{$key}{'comment'} = 'lightsteelblue';

# $info{$key}{'nb'}{$tabname}{'textbox'}= '';
#where $tabname is set in %tabcolors at line 43
#look there or do a key dump with ./ztkdb 1


my %info = %{retrieve('notebook.db')};   # direct to hash 

foreach(keys %info){
    print "$_ -> ",
          $info{$_}{'name'},' ',
          $info{$_}{'comment'},' ',
	  $info{$_}{'color'},' ', 
          $info{$_}{'thumbnail'},' ',
          $info{$_}{'pic'},"\n";

# delete $info{$key} will wipe out an entry

#will rename an entry
# $info{$key_new} = $info{$key_old};
# delete $info{$key_old} 

#import files into the tabbed notebook
# open (FH,"< slurp1");
# read( FH, $buf, -s FH );
# close FH;
# $info{$key}{'nb'}{'Awards'}{'textbox'} = $buf;
    
}

#uncomment to perform real changes
#store(\%info,'notebook.db');