#!/opt/tcl803/bin/tcl
#
set datdir /lopt/apache/cgi-bin/Tcl2K
# set datdir /net/osiris/lopt/apache/cgi-bin/Tcl2K
#
set htmdir /lopt/apache/u/de/Tcl2K
# set htmdir /usr/local/www/de/Tcl2K
set DataFile /lopt/apache/cgi-bin/Tcl2K/data/tclPapers.dat
#
package require Tclgdbm
#
#
        global DataFile

    set err [catch {set db [gdbm open $DataFile r]} res]

	if $err {
		puts stderr "ERROR opening db file!"
		puts stderr "      $res"
		exit 1
	}

        set all ""
    catch {set all [gdbm fetch $db "submissions"]}
    set found 0
    foreach token $all {
        set t ""
        catch {set t [gdbm fetch $db "$token-title"]}
	puts stderr "$token: $t"
	}

	gdbm close $db

