#!/usr/bin/perl
#
#(c) mhp und der gpl in 2002. ;)
#

die "usage: $0 < VCARD > birthday" unless (@ARGV == 0 || (@ARGV == 1 && $ARGV[0] eq '--'));

my $title, $bday, $name, $status, $line;
$status=0;
while (defined($line=<STDIN>)) {
	chomp($line);
	$status=1 if ($line=~/^BEGIN/);
	$bday="$3/$2/$1" if ($line=~/^BDAY:([0-9]+)-([0-9]+)-([0-9]+)/);
	if ($line=~/^TITLE:(.+)/)
	{
		$title="$1";
		$title=~s/\r//g;
	}
	if ($line=~/N:(.*)/)
	{
		$name=$1;
		$name=~s/;/, /g;
		$name=~s/\r//g;
	}
	if ($line=~/^END:/)
	{
		$status=0;
		if($bday ne "") {
			if($name ne "") { print "$name"; }
			if($title ne "") { print "($title)"; }
			if(($name eq "") && ($title eq "")) {
				print "unknown";
			}
			print "=$bday\n";
		}
		$name=$nick=$title=$bday="";
	}
}
