#!/bin/sh
#
# \
exec /usr/local/bin/tclsh8.3 $0 $@

package require Pgtcl

set conninfo [list user=cz password=*** host=hermes.olymp dbname=ttickets]
set db [pg_connect -conninfo $conninfo]

set h [pg_exec $db "select * from usersInfo"]

if {[regexp PGRES_TUPLES_OK [pg_result $h -status ]]} {
    puts "es wurden [pg_result $h -numTuples] Ergebnisse"
    puts "aus den Spalten '[join [pg_result $h -attributes] ", "]' gefunden\n"

    # Ergebnis für Ergebnis
    for {set i 0} {$i < [pg_result $h -numTuples]} {incr i} {
	puts "Zeile $i: [pg_result $h -getTuple $i]"
    }
    puts "Noch mal Zeile 2:  [pg_result $h -getTuple 2]"


    # Ergebnis in einem Array, Zeilennummer als Index
    pg_result $h -assign array1
    puts "\neine Zeile aus dem array mit -assign"
    parray array1 "0,*"

    # Ergebnis in einem Array, 
    pg_result $h -assignbyidx array2
    puts "\neine Zeile aus dem array mit -assignbyidx"
    parray array2 "ticketmaster,*"
} else {
    puts stderr "es trat ein Fehler auf: [pg_result $h -error]"
}
pg_result $h -clear

# Eine Zeile löschen
pg_exec $db "DELETE FROM usersInfo WHERE username='testuser'"

# Einfaches Einfügen
set sql "INSERT INTO tickets(productid, platform, priority, subject, description) "
append sql  "VALUES('Wheelhouse','Linux','Enhancement','font color','some description')"
set h [pg_exec $db  $sql]
set oid [pg_result $h -oid]

set h [pg_exec $db "SELECT ticketid FROM tickets WHERE OID=$oid"]
puts "\nneues Ticket mit tickeid [pg_result $h -getTuple 0] (oid $oid)"

# Verbindung schließen
pg_disconnect $db