7 my ($dtstart, $rrule, $limit );
10 $dtstart = '19270311T040000Z';
13 m{\s* TZ \s* [:=] \s* (\S+.*) $}xi && do {
14 printf( "SET timezone TO '%s';\n", $1);
16 m{\s* LIMIT \s* [:=] \s* (\d+) $}xi && do {
19 m{\s* DTSTART \s* [:=] \s* (\S+.*) $}ix && do {
22 m{\s* RRULE \s* [:=] \s* (\S+.*) $}ix && do {
24 printf( "SELECT * FROM event_instances('%s', '%s' ) LIMIT %d;\n", $dtstart, $rrule, $limit);