diff options
Diffstat (limited to 'utils/rhrd-schedules')
-rwxr-xr-x | utils/rhrd-schedules | 86 |
1 files changed, 86 insertions, 0 deletions
diff --git a/utils/rhrd-schedules b/utils/rhrd-schedules new file mode 100755 index 0000000..76d4946 --- /dev/null +++ b/utils/rhrd-schedules @@ -0,0 +1,86 @@ +#!/usr/bin/perl -w +# +# rhrdlibs +# +# Copyright (C) 2015-2016 Christian Pointner <equinox@helsinki.at> +# +# This file is part of rhrdlibs. +# +# rhrdlibs is free software: you can redistribute it and/or modify +# it under the terms of the GNU Affero General Public License as published by +# the Free Software Foundation, either version 3 of the License, or +# any later version. +# +# rhrdlibs is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU Affero General Public License for more details. +# +# You should have received a copy of the GNU Affero General Public License +# along with rhrdlibs. If not, see <http://www.gnu.org/licenses/>. +# + +use strict; + +# TODO: remove me!!! +use Data::Dumper::Simple; +use lib "../lib/"; + + +use RHRD::rddb; +use RHRD::utils; +use String::MkPasswd qw(mkpasswd); + + +sub print_usage +{ + print STDERR "Usage: rhrd-schedules generate YYYY-MM-DD\n"; +} + +sub generate +{ + my ($ctx, $year, $month, $day) = @_; + + my ($ret, $data) = RHRD::utils::fetch_parse_json("https://pv.helsinki.at/export/day_schedule/$year/$month/$day", "rhrd-schedules"); + if(!$ret) { + print STDERR "Error fetching export from PV: $data\n"; + return 1; + } + + print Dumper($data); + + return 0; +} + +my $num_args = $#ARGV + 1; +if($num_args < 1) { + print_usage(); + exit(1); +} +my $cmd = $ARGV[0]; +my $ret = 0; + +my ($ctx, undef, $errorstring) = RHRD::rddb::init(); +if(defined $ctx) { + if($cmd eq "generate") { + if($num_args == 2 && $ARGV[1] =~ m/^(\d{4})-(\d{2})-(\d{2})$/) { + my $year = $1; + my $month = $2; + my $day = $3; + $ret = generate($ctx, $year, $month, $day); + } else { + print_usage(); + $ret = 1; + } + } else { + print_usage(); + $ret = 1; + } + + RHRD::rddb::destroy($ctx); +} else { + print STDERR "$errorstring\n"; + $ret = 1; +} + +exit $ret; |