kind of working

This commit is contained in:
2025-04-11 11:06:01 +02:00
parent 0b7f362c80
commit 3349ea882d
11 changed files with 235 additions and 37 deletions

View File

@@ -1,4 +1,4 @@
#!/bin/sh
perl -I /home/calcms/lib/calcms update_program.pl
perl -I /var/www/html/lib/calcms/update_program.pl
#perl -I /home/radio/calcms/calcms aggregate.cgi date=today 2>/dev/null > /home/radio/radio/agenda/programm.html

View File

@@ -8,8 +8,8 @@ use Date::Calc;
use config;
use template;
my $perlPath='-I /home/calcms/lib/calcms';
my $configPath=$ARGV[0]||'/home/calcms/website/agenda/config/config.cgi';
my $perlPath='-I /var/www/html/lib/calcms';
my $configPath=$ARGV[0]||'/var/www/html/website/agenda/config/config.cgi';
unless (defined $config::config){
config::get($configPath);