# lanparty_mfz.tcl
#
# Copyright (c) 2003 Jochen "Y0Gi" Kupperschmidt <http://homework.nwsnet.de/>
# Version: 14-Sep-2003
# Released under the terms of the MIT License.
#
# Fetches the LANparty.de MFZ entry count of your party.
# Just type '!mfz' in a channel the bot is in.

package require http

# URL of the mfz script. Replace XXXXX with your party id.
set mfz_url "http://www.lanparty.de/events/mfz/?id=XXXXX"

bind pub - !mfz lanparty_mfz

proc lanparty_mfz {nick uhost hand chan text} {
    global mfz_url

    # Read XML data as string through HTTP.
    set token [http::geturl $mfz_url]
    set data [http::data $token]

    # Count occurences of the <item> element.
    set num [regexp -all -nocase -- "<item>" $data]

    # Polish the output.
    if {$num < 1} {
        set entries "kein Eintrag"
    } elseif {$num == 1} {
        set entries "1 Eintrag"
    } else {
        set entries "$num Einträge"
    }
    puthelp "PRIVMSG $chan :$entries in der Mitfahrzentrale"
    return 0
}

putlog "lanparty_mfz.tcl loaded."