[Athens-pm] [Fwd: RFC greeklish]

[Alexander Karelas]

> I had a good time yesterday, I hope the same counts for you.
> We even made some decisions:
> 
> - from now on we will meet each 2nd Wednesday of the month, so the next 
> meeting will be on 13 November. Time and location will be announced on 
> the list. If there's anyone that wants to write a piece of code that 
> calculates the date of the next meeting, please do, I'll include it in 
> the frontpage.

#!/usr/bin/perl


use Date::Calc qw( Nth_Weekday_of_Month_Year );



($date, $month, $year) = (localtime(time))[3,4,5];

$month++;

$year += 1900;



if ($date <= (Nth_Weekday_of_Month_Year($year,$month,3,2))[2]) {

	print ((Nth_Weekday_of_Month_Year($year,$month,3,2))[2]."/$month/$year")    # "3"=Wednesday, "2"=2nd

} else {

	$month++;

	if ($month==13) {

		$month=1;

		$year++;

	}

	print ((Nth_Weekday_of_Month_Year($year,$month,3,2))[2]."/$month/$year")

}