simonjedrake;650387 Wrote:
> I also agree in that it would be good to get this above the "-w flag"
> change resolved in 7.6.1 - I know many other users on the Qnap forum
> who suffer the same issue.
Don't hold your breath too much, but for what it's worth, these patches
made my server.log a lot quieter.
Code:
--------------------
=== Base.pm ===
87c87
< if ($class->can('menu') && $class->menu eq 'apps' && $class =~
/^Plugins::/) {
---
> if ($class->can('menu') && defined($class->menu) && $class->menu eq
'apps' && $class =~ /^Plugins::/) {
=== Cometd.pm ===
456c456
< if (
$conn->[HTTP_CLIENT]->transport eq 'long-polling' ) {
---
> if (
defined($conn->[HTTP_CLIENT]->transport) && $conn->[HTTP_CLIENT]->transport eq
'long-polling' ) {
574c574
< if (
$conn->[HTTP_CLIENT]->transport eq 'long-polling' ) {
---
> if (
defined($conn->[HTTP_CLIENT]->transport) && $conn->[HTTP_CLIENT]->transport eq
'long-polling' ) {
646c646
< if ( $httpClient->transport eq 'long-polling' ) {
---
> if ( defined($httpClient->transport) && $httpClient->transport
eq 'long-polling' ) {
672c672
< if ( $httpClient->transport eq 'long-polling' ) {
---
> if ( defined($httpClient->transport) && $httpClient->transport eq
'long-polling' ) {
=== EditPlaylist.pm ===
46d45
< my $playlist_id = $params->{'playlist_id'};
=== ProtocolHandlers.pm ===
43,45c43,46
< if ($protocolHandlers{$protocol}) {
< return 1;
< }
---
> if( defined($protocol) ) {
> if ($protocolHandlers{$protocol}) {
> return 1;
> }
47,48c48,50
< if (exists $protocolHandlers{$protocol}) {
< return 0;
---
> if (exists $protocolHandlers{$protocol}) {
> return 0;
> }
=== Queries.pm ===
524c524
< if ( $index =~ /^\d+$/ && $quantity =~ /^\d+$/ ) {
---
> if ( $index =~ /^\d+$/ && defined($quantity) && $quantity =~
/^\d+$/ ) {
789c789
< my $cacheKey = $sql . join( '', @{$p} );
---
> $cacheKey = $sql . join( '', @{$p} );
3957,3960c3957,3962
< foreach my $a ( split (/, /, $songData->{$_}) ) {
< if ( $a && !$artists{$a} ) {
< push @artists, $a;
< $artists{$a} = 1;
---
> if( defined($songData->{$_}) ) {
> foreach my $a ( split (/, /, $songData->{$_}) ) {
> if ( $a && !$artists{$a} ) {
> push @artists, $a;
> $artists{$a} = 1;
> }
4982c4984
< if ( $start =~ /^\d+$/ && $end =~ /^\d+$/ ) {
---
> if ( $start =~ /^\d+$/ && defined($end) && $end =~ /^\d+$/ ) {
=== Request.pm ===
1046c1046
< if ($found->[3] && $requestLineRef->[$i] =~
/([^:]+):(.*)/) {
---
> if (defined($found->[3]) &&
defined($requestLineRef->[$i]) && $found->[3] && $requestLineRef->[$i] =~
/([^:]+):(.*)/) {
=== XMLBrowser.pm ===
397c397
< @crumbIndex[-1] .= '_' . uri_escape_utf8(
$search, "^A-Za-z0-9" );
---
> $crumbIndex[-1] .= '_' . uri_escape_utf8(
$search, "^A-Za-z0-9" );
--------------------
--
sebp
'Last.fm' (http://www.last.fm/user/sebp)
------------------------------------------------------------------------
sebp's Profile: http://forums.slimdevices.com/member.php?userid=11768
View this thread: http://forums.slimdevices.com/showthread.php?t=89619
_______________________________________________
beta mailing list
[email protected]
http://lists.slimdevices.com/mailman/listinfo/beta
