34 lines
669 B
Perl
34 lines
669 B
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use lib "../calcms";
|
|
use utf8;
|
|
|
|
use Data::Dumper;
|
|
use Config::General;
|
|
use Storable qw(nstore);
|
|
|
|
use db;
|
|
use config;
|
|
|
|
our $default={
|
|
configFile => '/home/radio/piradio.de/agenda/config/config.cgi',
|
|
timezone => 'Europe/Berlin',
|
|
local_media_url => 'http://piradio.de/agenda_files/media/',
|
|
project => '88vier',
|
|
location => 'piradio',
|
|
};
|
|
|
|
my $config = config::get($default->{configFile});
|
|
print Dumper($config);
|
|
|
|
my $dbh=db::connect($config);
|
|
my $query=q{
|
|
select * from calcms_events
|
|
order by start
|
|
};
|
|
|
|
my $events=db::get($dbh, $query);
|
|
nstore($events, 'event_export.dat');
|