#!/usr/bin/perl -T # # $dotat: doc/web/cgi/url,v 1.5041 2012/02/06 01:20:01 fanf2 Exp $ use strict; use warnings; my %DATE; my %LINK; my %TEXT; my @ENTRIES = ( ### INSERT HERE ### scalar( $DATE{"8BJZT"} = "2012-02-06T01:20:01Z", $LINK{"8BJZT"} = q, $TEXT{"8BJZT"} = q, "8BJZT"), scalar( $DATE{"27GPP"} = "2012-02-06T00:40:01Z", $LINK{"27GPP"} = q, $TEXT{"27GPP"} = q, "27GPP"), scalar( $DATE{"F6XWR"} = "2012-02-05T22:40:00Z", $LINK{"F6XWR"} = q, $TEXT{"F6XWR"} = q, "F6XWR"), scalar( $DATE{"ZP6LF"} = "2012-02-05T22:30:01Z", $LINK{"ZP6LF"} = q, $TEXT{"ZP6LF"} = q, "ZP6LF"), scalar( $DATE{"6C87L"} = "2012-02-05T22:10:05Z", $LINK{"6C87L"} = q, $TEXT{"6C87L"} = q, "6C87L"), scalar( $DATE{"C6G8P"} = "2012-02-05T22:10:01Z", $LINK{"C6G8P"} = q, $TEXT{"C6G8P"} = q, "C6G8P"), scalar( $DATE{"8YP78"} = "2012-02-05T21:10:00Z", $LINK{"8YP78"} = q, $TEXT{"8YP78"} = q, "8YP78"), scalar( $DATE{"7B6FB"} = "2012-02-05T18:50:01Z", $LINK{"7B6FB"} = q, $TEXT{"7B6FB"} = q, "7B6FB"), scalar( $DATE{"WRFY6"} = "2012-02-05T18:20:00Z", $LINK{"WRFY6"} = q, $TEXT{"WRFY6"} = q, "WRFY6"), scalar( $DATE{"59JK9"} = "2012-02-05T17:40:00Z", $LINK{"59JK9"} = q, $TEXT{"59JK9"} = q, "59JK9"), scalar( $DATE{"9MZ6P"} = "2012-02-05T17:10:00Z", $LINK{"9MZ6P"} = q, $TEXT{"9MZ6P"} = q