proc htmlready {htmltext} {
        string map -nocase
                " "     "%20"
                "!"     "%21"
                ","     "%2C"
                "."     "%2E"
                "'"     "%27"
        } $htmltext
}