[Freeswitch-svn] [commit] r7579 - freeswitch/trunk/scripts/contrib/intralanman/perl

[Freeswitch SVN]

Author: intralanman
Date: Sun Feb 10 18:13:18 2008
New Revision: 7579

Modified:
   freeswitch/trunk/scripts/contrib/intralanman/perl/fspb

Log:
Added short help and a couple other small options
Thanks to wsuff for the getlogin() and hostname() parts


Modified: freeswitch/trunk/scripts/contrib/intralanman/perl/fspb
==============================================================================
--- freeswitch/trunk/scripts/contrib/intralanman/perl/fspb	(original)
+++ freeswitch/trunk/scripts/contrib/intralanman/perl/fspb	Sun Feb 10 18:13:18 2008
@@ -1,24 +1,44 @@
 #!/usr/bin/perl
 use LWP::UserAgent;
 use Getopt::Long;
+use Sys::Hostname;
 #use Data::Dumper;
 
+sub usage() {
+    print "Options:\n";
+    print "    -h This message \n";
+    print "    -l Use long hostname (i.e. user\@host)\n";
+    print "    -n Nick to use for post\n";
+    print "    -r Length of time to keep the post d, m, or f \n\tfor day, month, or forever respectively\n";
+    exit;
+}
+
 my $ua = new LWP::UserAgent;
 my $url = 'http://pastebin.freeswitch.org/';
 my $line;
 my $text;
-
+my $login = getlogin() || getpwuid($<) || "Anonymous";
+my $host = hostname();
 my @getopt_args = (
-    'n=s',
-    'h=s',
+    'n=s', #nick to use for paste
+    'H=s', #highlighting to use 
+    'r=s', #how long to keep the paste [dmf]
+    'l', #use long name user at host
+    'h' # help, shows usage()
 );
+
+# Options Stuff
 Getopt::Long::config("noignorecase", "bundling");
 GetOptions(\%options, @getopt_args);
-my $nick = length($options{n}) > 0 ? $options{n} : `whoami`;
-my $highlighting = length($options{h}) > 0 ? $options{h} : 'text';
-#print "Nick is $nick\nhighlighting is $highlighting\n\n"; 
+usage() if $options{h};
+my $nick = length($options{n}) > 0 ? $options{n} : $login;
+$nick = $options{l} ? $nick . "_AT_" . $host : $nick;
+my $highlighting = length($options{H}) > 0 ? $options{H} : 'text';
+my $keep = length($options{r}) > 0 ? $options{r} : 'd';
+#print "Nick is $nick\nhighlighting is $highlighting\nKeep for $keep\n"; 
 #exit;
 
+
 while($line = <STDIN>) {
     $text .= $line;
 }
@@ -28,15 +48,14 @@
     'pastebin/freeswitch',
     'pastebin' => 'freeswitch'
     );
-my $response = $ua -> post(
-    $url, 
+my $response = $ua -> post($url, 
     {
+	paste => 'Send',
+	remember => "0",
         poster => "$nick", 
 	format => "$highlighting",
-	paste => 'Send',
-	remember => '0',
 	code2 => "$text",
-	expiry => 'd'
+	expiry => "$keep"
     }
 );