current.tcl

# Redirect to today's log. Unfortunately ETP didn't provide the # means to create current link in the ETP folder. Had to resort to # this somewhat round about link.

Location:

/packages/irc-logger/www/current.tcl

Author:

Bart Teeuwisse <bart.teeuwisse@thecodemill.biz>

Created:

2003-03-01

Related Files

• packages/irc-logger/www/current.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {

    # Redirect to today's log. Unfortunately ETP didn't provide the
    # means to create current link in the ETP folder. Had to resort to
    # this somewhat round about link.

    @author Bart Teeuwisse (bart.teeuwisse@thecodemill.biz)
    @creation-date 2003-03-01
    @cvs $Id: current.tcl,v 1.2 2004/05/31 07:09:14 bartt Exp $
    @arch-tag: 9878b1c4-16aa-4492-8560-9ed393942db0
} {
} 

# The current log has the name of today's date in the GMT timezone.

set gmt_today [clock format [clock seconds] -format %Y-%m-%d -gmt true]

# Redirect to today's log without checking iXSf indeed it exists. It
# could be that the logger died or that the ETP does not exists yet as
# nothing has happened today on the channel.

ns_returnredirect ../$gmt_today