Simmons Consulting, the Website of Toby Simmons

MT Blacklist Updater in Perl

04
Jan

Thanks to the original work of Luke Reeves, Gene Wood, and Cheah Chu Yeow I’ve created a Perl version of a MT-Blacklist updater. Like the last one, it gets the RDF feed and makes additions or deletions as needed to your blacklist. I have this version running as a scheduled task under Windows 2000 and it works swell.

» View the source code (Copyright © 2004 W. Tobias Simmons)

This entry was posted on Sunday, January 4th, 2004 at 11:44 pm and is filed under Comment Spam. You can follow any responses to this entry through the RSS 2.0 feed. Both comments and pings are currently closed.

Comments (2) »

  1. Cheah Chu Yeow says:
    1/10/2004 at 12:58 pm

    Nice! Linked to this page on my MT-Blacklist Updater site.

  2. Brennan Stehling says:
    6/24/2004 at 11:02 am

    I have started to use your Perl script to update MT-Blacklist but I did have some troubles. Perhaps you would like to read what I have written in my blog about it. I have experienced the problem before but I was not able to resolve it this time. Basically the LWP modules in Perl can fetch an HTTP request and handle redirects, but in this case it thinks there is a recursive redirect. So I just used something else to fetch the file to a local site which will not have redirect and your script will work. I may update your script and send it back to you.

    I am considering creating a config file in my home directory (.mt-updater.cnf) and the updater script will use that to extract the username, password and feed url to make the process work so that the script does not need to be updated. Then the script could be run once and it will prompt the user for those values and create the config file. I would also force the file to have 600 permissions so only the owner could read the file for security reasons.

    Perhaps I will have time to work on it tonight.