[Ftnpl-cvs] SF.net SVN: ftnpl:[606] trunk/scripts/BBBS/mrtgbbbs

[<ja...@us...>]

Revision: 606
          http://ftnpl.svn.sourceforge.net/ftnpl/?rev=606&view=rev
Author:   jame
Date:     2011-07-13 17:58:13 +0000 (Wed, 13 Jul 2011)

Log Message:
-----------
Move mrtgbbbs.pl to bin/ directory.

Added Paths:
-----------
    trunk/scripts/BBBS/mrtgbbbs/bin/
    trunk/scripts/BBBS/mrtgbbbs/bin/mrtgbbbs.pl

Removed Paths:
-------------
    trunk/scripts/BBBS/mrtgbbbs/mrtgbbbs.pl

Copied: trunk/scripts/BBBS/mrtgbbbs/bin/mrtgbbbs.pl (from rev 605, trunk/scripts/BBBS/mrtgbbbs/mrtgbbbs.pl)
===================================================================
--- trunk/scripts/BBBS/mrtgbbbs/bin/mrtgbbbs.pl	                        (rev 0)
+++ trunk/scripts/BBBS/mrtgbbbs/bin/mrtgbbbs.pl	2011-07-13 17:58:13 UTC (rev 606)
@@ -0,0 +1,50 @@
+#!/usr/bin/perl
+
+# mrtgbbbs.pl
+#
+# Copyright (c) 2000-2011 Robert James Clay.  All Rights Reserved.
+# This is free software;  you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+
+use warnings;
+use strict;
+use IO::Socket;
+
+our $VERSION = 1.3;
+
+my ($host, $type, $socket, $first, $second, $time );
+
+#my $DEBUG = 0;
+
+if ( $ARGV[0] ) {
+    $host = $ARGV[0];
+    $type = $ARGV[1];
+}
+else {
+    print {*STDERR} "Usage: $0 <hostname> <io|user>\n";
+    exit 1;
+}
+
+#
+$socket = IO::Socket::INET->new(
+    PeerAddr => $host,
+    PeerPort => 16_425,        # standard BBBS port
+    Proto    => 'tcp',
+    Type     => SOCK_STREAM
+) or die "Could not open port.\n";
+
+print {$socket} "$type\n";
+
+$first  = <$socket>;
+$second = <$socket>;
+$time   = <$socket>;
+
+close $socket or die "Unable to close socket.\n";
+
+print "$first";
+print "$second";
+print "$time\n";
+
+print q{};
+
+exit;    # We're done!

Deleted: trunk/scripts/BBBS/mrtgbbbs/mrtgbbbs.pl
===================================================================
--- trunk/scripts/BBBS/mrtgbbbs/mrtgbbbs.pl	2011-07-13 16:14:05 UTC (rev 605)
+++ trunk/scripts/BBBS/mrtgbbbs/mrtgbbbs.pl	2011-07-13 17:58:13 UTC (rev 606)
@@ -1,50 +0,0 @@
-#!/usr/bin/perl
-
-# mrtgbbbs.pl
-#
-# Copyright (c) 2000-2011 Robert James Clay.  All Rights Reserved.
-# This is free software;  you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-
-use warnings;
-use strict;
-use IO::Socket;
-
-our $VERSION = 1.3;
-
-my ($host, $type, $socket, $first, $second, $time );
-
-#my $DEBUG = 0;
-
-if ( $ARGV[0] ) {
-    $host = $ARGV[0];
-    $type = $ARGV[1];
-}
-else {
-    print {*STDERR} "Usage: $0 <hostname> <io|user>\n";
-    exit 1;
-}
-
-#
-$socket = IO::Socket::INET->new(
-    PeerAddr => $host,
-    PeerPort => 16_425,        # standard BBBS port
-    Proto    => 'tcp',
-    Type     => SOCK_STREAM
-) or die "Could not open port.\n";
-
-print {$socket} "$type\n";
-
-$first  = <$socket>;
-$second = <$socket>;
-$time   = <$socket>;
-
-close $socket or die "Unable to close socket.\n";
-
-print "$first";
-print "$second";
-print "$time\n";
-
-print q{};
-
-exit;    # We're done!


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.