$allow_ip=array("10.0.0.1"
"10.0.0.23"
);
if (!in_array($_SERVER['REMOTE_ADDR'], $allow_ip)) {
exit();
} 30 kwi 2010
$allow_ip=array("10.0.0.1"
"10.0.0.23"
);
if (!in_array($_SERVER['REMOTE_ADDR'], $allow_ip)) {
exit();
} #!/usr/bin/perl -w
use strict;
use XML::Simple;
use Data::Dumper;
my $data = XMLin('nokaut.xml');
print Dumper($data); {$data[ii].tresc|truncate_enc:36:"...":true} select NOW()::date "2010-04-23"
select t_date from table where t_date >= NOW()::date+'1 day'::interval order by t_date limit 3"2010-04-24"
"2010-04-24"
"2010-04-24"
select t_date from table where t_date >= NOW()+'1 day'::interval order by t_date limit 3"2010-04-25"
"2010-04-25"
"2010-04-25"