Subversion Repositories public

Rev

Rev 47 | Rev 60 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 47 Rev 52
Line 1... Line 1...
1 
/***************************************************************************
 1 
/***************************************************************************
2 
 *   Copyright (C) 2007 by Andreas Theofilu   *
 2 
 *   Copyright (C) 2007 by Andreas Theofilu                                *
3 
 *   andreas@TheoSys.at   *
 3 
 *   andreas@TheoSys.at                                                    *
4 
 *                                                                         *
 4 
 *                                                                         *
5 
 *   This program is free software; you can redistribute it and/or modify  *
 5 
 *   This program is free software; you can redistribute it and/or modify  *
6 
 *   it under the terms of the GNU General Public License as published by  *
 6 
 *   it under the terms of the GNU General Public License as published by  *
7 
 *   the Free Software Foundation; either version 2 of the License, or     *
 7 
 *   the Free Software Foundation version 3 of the License.                *
8 
 *   (at your option) any later version.                                   *
 - 
 
9 
 *                                                                         *
 8 
 *                                                                         *
10 
 *   This program is distributed in the hope that it will be useful,       *
 9 
 *   This program is distributed in the hope that it will be useful,       *
11 
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
 10 
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
12 
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
 11 
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
13 
 *   GNU General Public License for more details.                          *
 12 
 *   GNU General Public License for more details.                          *
Line 65... Line 64...
65 
}
 64 
}
66 
 
 65 
 
67 
long get_date (char *sdate)
 66 
long get_date (char *sdate)
68 
{
 67 
{
69 
int tag,mon,year,i,j,pos,len,punkt;
 68 
int tag,mon,year,i,j,pos,len,punkt;
70 
char zw[21],hv0[21];
 69 
char zw[21];
71 
char *beg,*end;
 70 
char *beg,*end;
72 
 
 71 
 
73 
	if (sdate == NULL || strlen (sdate) < 6)
 72 
	if (sdate == NULL || strlen (sdate) < 6)
74 
	   return -1L;
 73 
	   return -1L;
75 
 
 74 
 
Line 175... Line 174...
175 
}
 174 
}
176 
 
 175 
 
177 
long get_gebos_date (char *sdate, int kenn)
 176 
long get_gebos_date (char *sdate, int kenn)
178 
{
 177 
{
179 
int tag,mon,year,i,j,pos,len,punkt;
 178 
int tag,mon,year,i,j,pos,len,punkt;
180 
char zw[21],hv0[21];
 179 
char zw[21];
181 
char *beg,*end;
 180 
char *beg,*end;
182 
 
 181 
 
183 
	if (!kenn)
 182 
	if (!kenn)
184 
	{
 183 
	{
185 
	   if (strlen (sdate) < 6)
 184 
	   if (strlen (sdate) < 6)