#!/usr/bin/perl
use Time::Local;
require "plans_config.pl";
require "plans_lib.pl";

print "content-type:text/html\n\n";
print <<p1;
  This utility converts plans data from SQL tables
  to .xml files

  It does not remove (drop) the SQL tables afterwards.
p1

$data_storage_mode=1;

&load_calendars();
&load_events("all");

$data_storage_mode=0;

&update_calendar(0);
&update_event(0);

# done already?!