add some convenience for perl

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@1571 57a11ea4-9604-0410-9ed3-97b8803252fd

src/engine/date.c

@@ -102,6 +102,14 @@ printDateSecs (char * buff, time_t t)
 }
 
 
+char * 
+xaccPrintDateSecs (time_t t)
+{
+   char buff[100];
+   printDateSecs (buff, t);
+   return strdup (buff);
+}
+
 /**
  * scanDate
  *    Convert a string into  day / month / year integers according to

src/engine/date.h

@@ -91,6 +91,8 @@ typedef enum
 void printDate (char * buff, int day, int month, int year);
 void printDateSecs (char * buff, time_t secs);
 
+char * xaccPrintDateSecs (time_t secs);
+
 void scanDate (const char *buff, int *day, int *monty, int *year);
 char dateSeparator(void);