#!/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