-sub Date_SecsSince1970 {
- my($mysqlDate) = @_;
- $mysqlDate =~ m/(\d{4})-(\d{2})-(\d{2}) (\d{2}):(\d{2}):(\d{2})/
- || return time();
- my($y,$m,$d,$h,$mn,$s) = ($1,$2,$3,$4,$5,$6);
- my($sec_now,$sec_70,$Ny,$N4,$N100,$N400,$dayofyear,$days)=();
- my($cc,$yy)=();
-
- $y=~ /(\d{2})(\d{2})/;
- ($cc,$yy)=($1,$2);
-
- $Ny=$y;
-
- $N4=($Ny-1)/4 + 1;
- $N4=0 if ($y==0);
-
- $N100=$cc + 1;
- $N100-- if ($yy==0);
- $N100=0 if ($y==0);
-
- $N400=($N100-1)/4 + 1;
- $N400=0 if ($y==0);
-
- my(@days) = ( 0, 31, 59, 90,120,151,181,212,243,273,304,334,365);
- my($ly)=0;
- $ly=1 if ($m>2 && &Date_LeapYear($y));
-
- $dayofyear=$days[$m-1]+$d+$ly;
- $days= $Ny*365 + $N4 - $N100 + $N400 + $dayofyear;
- $sec_now=($days-1)*24*3600 + $h*3600 + $mn*60 + $s;
- $sec_70 =62167219200;
- return ($sec_now-$sec_70);
+sub Date_SecsSince1970
+{
+ my($mysqlDate) = @_;
+ $mysqlDate =~ m/(\d{4})-(\d{2})-(\d{2}) (\d{2}):(\d{2}):(\d{2})/
+ || return time();
+ my($y,$m,$d,$h,$mn,$s) = ($1,$2,$3,$4,$5,$6);
+ my($sec_now,$sec_70,$Ny,$N4,$N100,$N400,$dayofyear,$days)=();
+ my($cc,$yy)=();
+
+ $y=~ /(\d{2})(\d{2})/;
+ ($cc,$yy)=($1,$2);
+
+ $Ny=$y;
+
+ $N4=($Ny-1)/4 + 1;
+ $N4=0 if ($y==0);
+
+ $N100=$cc + 1;
+ $N100-- if ($yy==0);
+ $N100=0 if ($y==0);
+
+ $N400=($N100-1)/4 + 1;
+ $N400=0 if ($y==0);
+
+ my(@days) = ( 0, 31, 59, 90,120,151,181,212,243,273,304,334,365);
+ my($ly)=0;
+ $ly=1 if ($m>2 && &Date_LeapYear($y));
+
+ $dayofyear=$days[$m-1]+$d+$ly;
+ $days= $Ny*365 + $N4 - $N100 + $N400 + $dayofyear;
+ $sec_now=($days-1)*24*3600 + $h*3600 + $mn*60 + $s;
+ $sec_70 =62167219200;
+ return ($sec_now-$sec_70);