diff options
| author | Andreas Brachold <vdr07@deltab.de> | 2009-12-19 13:50:17 +0000 |
|---|---|---|
| committer | Andreas Brachold <vdr07@deltab.de> | 2009-12-19 13:50:17 +0000 |
| commit | 088518042587c633b662d054375c9801bed844f4 (patch) | |
| tree | 1ac3ba2672d83314e40646e2857e7910d1788a85 /bin | |
| parent | fd94b0111202e094cc4b2b8272eb5d637aed719b (diff) | |
| download | xxv-088518042587c633b662d054375c9801bed844f4.tar.gz xxv-088518042587c633b662d054375c9801bed844f4.tar.bz2 | |
* CHANNELS: allow query a compact list ( by cmd=clist&compact=1 )
* STATUS: Refactoring output (network/filesys/memory/vitals)
* STREAM: Fix SMB streaming (div by zero)
* html/xstyle: footer updated
* xstyle: css fix correct z-index on schema for timemarker
* jason: use one loading mask for many tasks
* jason: timer self updating if new timer created
* jason: stream allow external video player
* jason: use compact channel list (reduce memory footprint)
* update translations
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/xxvd | 11 |
1 files changed, 8 insertions, 3 deletions
@@ -507,7 +507,7 @@ sub init_locale { return ($charset,$useutf8); } - +my $LOG_FAILED = undef; # ------------------ sub init_logging { # ------------------ @@ -534,8 +534,13 @@ sub init_logging { my $mode = '>>'; #$mode .= ':utf8' if($Tools::CHARSET && $Tools::CHARSET eq 'UTF-8'); - my $fh = IO::File->new($loggerfile,$mode) - or return print(sprintf("Couldn't write %s : %s!",$loggerfile,$!)); + my $fh = IO::File->new($loggerfile,$mode); + unless ($fh) { + return if($LOG_FAILED);# log only once, if failed + $LOG_FAILED = 1; + return print(sprintf("Couldn't write %s : %s!",$loggerfile,$!)); + } + $LOG_FAILED = undef; # binmode $fh, ":encoding(utf8)" if($Tools::CHARSET eq 'UTF-8'); print $fh sprintf("%d (%d) [%s] %s\n",++$loggercnt, $errcode, $tt, $msg); $fh->close; |
