print "DTSTART;TZID=\"$tzn\":", $first."T".$starttime, "00$r\n";
print "DTEND;TZID=\"$tzn\":", $first."T".$stoptime, "00$r\n";
$row->{'days'} =~ s/([MTWRFS])/,$days{$1}/g;
$row->{'days'} =~ s/^,//;
#$stopdate++;
print "RRULE:FREQ=WEEKLY;UNTIL=${stopdate}T000000Z;BYDAY=", $row->{'days'}, "$r\n";
print "DTSTART;TZID=\"$tzn\":", $first."T".$starttime, "00$r\n";
print "DTEND;TZID=\"$tzn\":", $first."T".$stoptime, "00$r\n";
$row->{'days'} =~ s/([MTWRFS])/,$days{$1}/g;
$row->{'days'} =~ s/^,//;
#$stopdate++;
print "RRULE:FREQ=WEEKLY;UNTIL=${stopdate}T000000Z;BYDAY=", $row->{'days'}, "$r\n";