Metacat

    # add the publication Date to the eml document. 

    my $Second = "";

    my $Minute = "";

    my $Hour = "";

    my $Day = "";

    my $Month = "";

    my $Year = "";

    my $WeekDay = "";

    my $DayOfYear = "";

    my $IsDST = "";

    ($Second, $Minute, $Hour, $Day, $Month, $Year, $WeekDay, $DayOfYear, $IsDST) = localtime(time) ;

    $Month = $Month + 1;

    if($Month < 10) { 

	$Month = "0".$Month;

    }

    if($Day < 10) { 

	$Day = "0".$Day;  

    } 

    $Year = $Year + 1900; 

    $doc .= "<pubDate>\n";

    $doc .= $Year."-".$Month."-".$Day;

    $doc .= "</pubDate>\n";