Fixed problem with --services query command.

'service_list' should have been 'services'.

diff --git a/src/spong-server.pl b/src/spong-server.pl
index eb3abff3ccaddf362dab02c4112cae6f5d60d730..61252a57a9a036b960d710aba2827ec5902c11e2 100755 (executable)
--- a/src/spong-server.pl
+++ b/src/spong-server.pl
@@ -510,7 +510,7 @@ sub show_host {
 
 sub show_services {
    my( $hosts, $type, $view ) = @_;
-   Spong::Host->new( $hosts )->service_list()->display( $type, $view ); }
+   Spong::Host->new( $hosts )->services()->display( $type, $view ); }
 
 sub show_stats {
    my( $hosts, $type, $view ) = @_;