if {![file exists ogloszenia.db]} {
  set fs [open ogloszenia.db w]
  puts $fs ""
  close $fs
}

bind PUB - !sprzedam p:sprzedam
bind PUB - !ogloszenia p:ogloszenia
bind PUB - !szukaj p:szukaj
bind PUB - !skasuj p:skasuj

# !sprzedam <towar> <cena>
# np: !sprzedam Jablka 2zl za kilogram

proc p:sprzedam {nick uhost hand chan arg} {
set tow [lindex [split $arg] 0]
set cen [lrange [split $arg] 1 end]

set data "[strftime %d/%m/%y] - [strftime %H:%M]"

if {$cen == ""} {
  putserv "NOTICE $nick :Aby dodaæ event lub bh napisz: !dodaj <co> <kied>"
  putserv "NOTICE $nick :Przyklad: !dodaj bh 30.01.08"
  return 0
}

set fp [open ogloszenia.db "a"]
puts $fp "$tow $cen ($nick) - $data"
close $fp
putserv "PRIVMSG $chan :$nick, dodalem $tow do ogloszen."
}

# !ogloszenia

proc p:ogloszenia {nick uhost hand chan arg} {
if {![file exists ogloszenia.db]} {
  putserv "NOTICE $nick :Nie ma pliku z ogloszeniami."
  return 0
}

set fp [open ogloszenia.db "r"]
set data [read -nonewline $fp]
close $fp

foreach a [split $data "\n"] {
   putserv "PRIVMSG $chan :$a"
}
}

# !szukaj <towar>
proc p:szukaj {nick uhost hand chan arg} {
set prz [lindex [split $arg] 0]

if {$prz == ""} {
  putserv "NOTICE $nick :Uzywaj: !szukaj <co>"
  return 0
}

set ile [string length $prz]

if {$ile < 0} {
  putserv "NOTICE $nick :Nazwa towaru musi skladac sie z co najmniej 1
liter"
  return 0
}

set fp [open ogloszenia.db "r"]
set data [read -nonewline $fp]
close $fp

set t 0
foreach a [split $data "\n"]  {
#ZUOOOO
  if {[string match -nocase "*$prz*" $a]} {
    putserv "PRIVMSG $chan :$a"
    incr t
   }
}

if {$t == "0"} {
   putserv "NOTICE $nick :Nie ma takiego og³oszenia."
}
}

# !skasuj <ogloszenie>

proc p:skasuj {nick uhost hand chan arg} {
set fp [open ogloszenia.db "r"]
set data [read -nonewline $fp]
close $fp

set lines [split $data "\n"]
set lin [lrange [split $arg] 0 end]

if {$lin == ""} {
  putserv "PRIVMSG $chan :Uzywaj: !skasuj <ogloszenie>"
  return 0
}

set nu1 0
set n 0

foreach a $lines {
#ZUOOOO
  if {[string match -nocase "*$lin*" $a]} {
     incr n
     set lines [lreplace $lines $nu1 $nu1 ""]
     set fp [open ogloszenia.db "w"]
     puts $fp [join $lines "\n"]
     close $fp
  }
  incr nu1
}

if {$n == 0} {
  putserv "PRIVMSG $chan :Nie znalazlem takiego ogloszenia"
  return 0
} else {
  putserv "PRIVMSG $chan :Ogloszenie zostalo skasowane"
}
}