jeena/telldus
1
0
Fork 0
Code Issues Pull requests Projects Packages Wiki Activity Actions

Changed sunset calculation parameters. Added init script

Browse source 
for Debian and adaptions of tellstickd. All contributions of Anders Betner.
This commit is contained in:
Magnus Juntti 2008-02-18 21:31:07 +00:00
parent 28b7841310
commit 9359c895a2
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
tellstickd/tellstickd
View file

@ -53,7 +53,7 @@ sub get_sunrise_time
$Month++;
my $dt = DateTime->new( year => $Year, month => $Month, day => $Day, time_zone => $TIMEZONE, );
my $sunrise = DateTime::Event::Sunrise ->new( longitude => $LONGITUDE, latitude => $LATITUDE, altitude => '0', iteration => '1');
my $sunrise = DateTime::Event::Sunrise ->new( longitude => $LONGITUDE, latitude => $LATITUDE, altitude => '-0.833', iteration => '1');
$Month--;
@ -71,7 +71,7 @@ sub get_sunset_time
$Month++;
my $dt = DateTime->new( year => $Year, month => $Month, day => $Day, time_zone => $TIMEZONE, );
my $sunrise = DateTime::Event::Sunrise ->new( longitude => $LONGITUDE, latitude => $LATITUDE, altitude => '0', iteration => '1');
my $sunrise = DateTime::Event::Sunrise ->new( longitude => $LONGITUDE, latitude => $LATITUDE, altitude => '-0.833', iteration => '1');
$Month--;
@ -476,6 +476,12 @@ if ($make_daemon == $YES) {
&daemonize();
}
# Create pidfile
my $pidFile = '/var/run/tellstickd.pid';
open PIDFILE, ">$pidFile" or die "$PROGRAM_NAME: Can't open $pidFile: $!\n";
print PIDFILE $$;
close PIDFILE;
if (length($conf_file) < 1) {
$conf_file = $CONFIG_FILE;
}