From 592ba3bbe38f0de633900a77183c05a9acc78b7d Mon Sep 17 00:00:00 2001
From: Anthony Minessale <anthony.minessale@gmail.com>
Date: Thu, 5 Nov 2009 23:19:20 +0000
Subject: [PATCH] add help
git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@15378 d0543943-73ff-0310-b7d9-9358b9ac24b2
---
libs/esl/perl/logger.pl | 20 ++++++++++++++++++++
1 file changed, 20 insertions(+)
diff --git a/libs/esl/perl/logger.pl b/libs/esl/perl/logger.pl
index 2e26cfdb69..59e1373b68 100644
--- a/libs/esl/perl/logger.pl
+++ b/libs/esl/perl/logger.pl
@@ -13,6 +13,21 @@ my $e;
my $running = 1;
my $con;
+my $USAGE = "
+FreeSWITCH Logger Utility
+
+USAGE:
+-h --helpThis help
+-p --port <port> Choose port
+-P -pass <pass> Choose password
+-f --file <file> Output file
+-pb --paste-bin <name> Post to FreeSWITCH Paste Bin
+-sp --sip-profiles <list> List of SIP profiles to trace
+-sd --sip-debug <leve> Set SIP debug level
+
+No arguments given will trace profile 'internal' to STDOUT
+";
+
$SIG{INT} = sub { $running = 0 };
sub parse(\$\$$) {
@@ -27,6 +42,11 @@ sub parse(\$\$$) {
}
for($i = 0; $i < $argc; $i++) {
+ if ($ARGV[$i] =~ /^\-help$|^\-\-help$/) {
+ print $USAGE;
+ exit;
+ }
+
if (! (parse($i, $host, '^-h$|^--host$') ||
parse($i, $port, '^-p$|^--port$') ||
parse($i, $pass, '^-P$|^--pass$') ||