Perl Scripts
Scripts @ www.susannawinter.net
framing.pl
framing.pl is used to protect pages that are being framed inside
someone else's (usually search engines') web pages. It is used together with Apache
module mod_rewrite to check
whether the HTTP_REFERER field contains an URL within another.
[Source code]
Put this in a .htaccess file:
RewriteEngine on
# allow for Google cache etc.
RewriteCond %{HTTP_REFERER} ^http://www\.google\..*/.*$ [OR]
RewriteCond %{HTTP_REFERER} ^http://216\.239\.[0-9]{1,3}\.[0-9]{1,3}/(search|custom|translate).*$
RewriteRule ^.*$ - [L]
# Redirect to the framing script
RewriteCond %{HTTP_REFERER} ^http://.*\.com/.*yourdomain\.here(%2F|/).*$
RewriteRule ^.*\.html$ /cgi/framing.pl [R,L]
httprequests.pl
httprequests.pl gets the number of HTTP
requests from Apache access_log file, and uses RRDtool to save the data in a Round Robin Database
and to display it graphically. The results are shown in two images: one for the
last 24 hours and the other for the
current month. The images are updated
every 10 minutes. [Source code]
Create the RRD file with the following command:
rrdtool create httprequests.rrd --step 600 DS:http:COUNTER:1800:0:U RRA:AVERAGE:0.5:1:360 RRA:AVERAGE:0.5:24:420
And set a cron job to update it every 10 minutes:
*/10 * * * * /path/to/httprequests.pl
swishsearch.pl
SWISH++
is a fast file indexing and searching engine. This script is a web interface for the
search engine. It is based on the example provided with the Debian package
(/usr/share/doc/swish++/examples/www_example/search.cgi.gz, see also
http://www.fifi.org/doc/swish++/www_example/)
by an anonymous author. You can test the script in my search page.
[Source code]
uptime.pl
uptime.pl reads the system uptime in seconds since the
Epoch from
/proc/uptime and converts it into textual form. The script is quite simple
and probably not very accurate since it uses a rough average to calculate the days in
a month. The script's output is only an HTML fragment that can be inserted to a web page
with an SSI tag:
<!--#include virtual="/path/to/uptime.pl" -->
This produces the following output:
xmms-infopipe-parser.pl
This script is for displaying on a web page the songs playing on your
XMMS.
xmms-infopipe-parser.pl parses the information produced by the
XMMS Infopipe
plugin (by Urpo Lankinen). The script is roughly based on the "fifolog" example
(Example 16.10) from the O'Reilly Perl Cookbook (see eg. http://www.unix.org.ua/orelly/perl/cookbook/ch16_12.htm).
It displays the currently playing song, previous 3 songs, and the streaming radio station
(if you're listening to one). Here's an example output:
- Martha Wainwright - Jesus and Mary - I Know You're Married But I've Got Feelings Too (2008) [3:40]
- Martha Wainwright - Jesus and Mary - I Know You're Married But I've Got Feelings Too (2008) [3:40]
- Martha Wainwright - You Cheated Me - I Know You're Married But I've Got Feelings Too (2008) [3:15]
- Martha Wainwright - Bleeding All Over You - I Know You're Married But I've Got Feelings Too (2008) [3:45]
You can include the output on a web page. Mine's on my About me
page. [Source code only]
[Source code & text files (ZIPped)].
You can either set up a cron job to update the information periodically or
have the script check whether the currently playing song has changed. (It's low both on
CPU and memory consumption.)
Scripts @ untamo.lnet.lut.fi
highscore.pl
highscore.pl is used to display and update Top 3 high scores in different Shockwave and Java games played by me and my friends. The output can be seen in Humppa.CS game results page (in Finnish). You also need to create text files for each of the games and make them rw for the script. [Source code]
nethack.pl
nethack.pl parses the NetHack record file and
displays the high scores as an HTML page. The high scores can be listed
according to player name, character name, profession, race, gender and alignment.
The script uses tiles from the RLTiles project
(formerly known as Mitsuhiro Itakura's NetHack tiles)
to display different professions, races and genders in small graphics tiles. The results can be seen
in NetHack Top100 @untamo.
[Source code]
You also need to generate a text file, nh_players.txt, that maps the
user ID's to user names. The file is of the format "ID# name\n", each player
on its own line. You can get the user ID's from /etc/passwd/ (for example).
Here's an example:
1000 Player1
1001 Player2
1002 Player3
...
Wow. It looks like someone is actually using this script. A word of advice, though. Save the images to your own server! My friend does not like you hogging his bandwidth. Thank you.
urlsearch.pl
urllist.cgi (by Juha Huttunen)
is a script that catches URLs from
IRC channels and stores them in text files.
urlsearch.pl
is an add-on to urllist.cgi for searching among the URLs with different
criteria. It was originally written as a home assignment for the LUT course
010577001 Internet Programming
in summer 2001, and has been in use for nearly 4 years. However, recently urllist.cgi
has undergone changes from textfile-based to SQL-based. Therefore, I'm handing over to
Juha the task of transforming urlsearch.pl to match the changes, and ceasing
any further updates on the script.
The textfile-based script is still available for download.
[Source code] In addition to the script
itself, you also need 8 text files (for each channel!) that contain the URLs:
files #channel.1 to #channel.7 (from the last seven days) and
#channel.old (for URLs older than one week). See how unefficient this is!
The files are of the following format:
#channel [Tue Jul 3 12:40:14 2001] <nick> http://www.example.com/
#channel [Wed Jul 4 13:00:00 2001] <foo> http://www.foobar.fi/
lasturl.pl
This is another add-on to urllist.cgi. The script
automatically redirects to the last URL catched from the channel given as parameter.
Quite handy as a button in your browser's personal toolbar or similar.
[Source code]
Commissioned Work
- News and fishing licence fee updater for Kymenlaakson kalatalouskeskus. [Screenshot]
- Price list updater for KuntoHovi Spa Hotel. [Screenshot]
