Changing account password for XMail and UebiMiau 2.7.2

NOTE: This is my version of a script by Dan Stefan  that can be found here, mirrored here. Take instructions etc. from there, this page is only about modifications to his idea.

My modifications revolve around these issues:

• For some reason, my UebiMiau didn't fill the {$umUser} token - Tried to change this, failed.. So I changed the token to {$umReplyTo|escape:"html"} instead... Yeah, I know it isn't too good.. If you can give me a better option I'd be happy!
• In Dan's script, he expected a "00000 OK" string from the XMail object, I found it just returned 1 when successful.
• Dan's script was counting on a single domain for the whole webmail system. My version takes the domain from from the username, as I have several domains.
• My version writes the server error message to he user if the old passwords fails check.
• Dan uses the Neotech theme for UebiMiau. I use the default, so I posted my addition to it here.

The files:

First follow the instructions on Dan's page above. Here are my versions:

My password-change.cgi - Most changes are marked
My preferences.htm for the default UebiMiau theme - My added segment is marked (It's near the end)

Comments are welcome to liron at newman dot bz.

One little anecdote: I actually don't know any Perl.. So I was actually debugging code I don't know, by a person I don't know, in a language I can't properly understand. And somehow, it worked. :)