Changeset 180 for osx

Timestamp:

12/20/10 00:22:59 (17 months ago)

Author:

frank

Message:

Updated OS X version of global onelinerz to the latest rev.

Location:

osx/scripts/bbs-scene_global_onelinerz

Files:

• CHANGELOG (modified) (2 diffs)
• README (modified) (1 diff)
• UPGRADE (added)
• ansi.pl (added)
• file_id.diz (modified) (1 diff)
• onelinerz.cfg (modified) (1 diff)
• onelinerz.pl (modified) (5 diffs)

osx/scripts/bbs-scene_global_onelinerz/CHANGELOG

@@ +1 @@
+2010 12-19  V2.3 Frank Linhares <admin@bbs-scene.org>
+
+    * Added configurable Alias, BBS Name and oneliner
+      colour options.
+
+    * Added new ansi parsing system (ansi.pl)
+
+2010 12-18  V2.2.1 Frank Linhares <admin@bbs-scene.org>
+
+    * Added the ability via config option to turn ansi
+      in the onelinerz on or off
+
+2010-12-17  V2.2 Frank Linhares  <admin@bbs-scene.org>
+
+    * oneliner.pl: Added Renegade style pipe code
+      support for ANSI colours.
+
 2010-11-13  V2.1 Frank Linhares  <admin@bbs-scene.org>
 
@@ -12 +29 @@
 
     * onelinerz.pl: removed the need to use curl
-          to process xml
+      to process xml
 
     * onelinerz.pl: created direct socket to pull

osx/scripts/bbs-scene_global_onelinerz/README

@@ -6 +6 @@
             \/    \/     \/             \/     \/    \/     \/     \/
                  bbs-scene.org global onelinerz perl script
-     v2.1 by Frank Linhares aka netsurge / 13-11-10 / admin@bbs-scene.org
+     v2.3 by Frank Linhares aka netsurge / 19-12-10 / admin@bbs-scene.org
                                 
-                                       Install Instructions                             
+                           Install Instructions                         
+_ Overview _
+
+The global onelinerz system is an Internet enabled multi bbs wall style
+oneliners door.  Using the bbs-scene.org api, multiple bbses can share one
+pool of onelinerz on their systems. Global Onelinerz supports Renegade pipe
+codes for adding some colour to individual onelinerz.  ANSI support can be
+turned on or off via the onelinerz.cfg file.
+
 _ Prerequisites _
 

osx/scripts/bbs-scene_global_onelinerz/file_id.diz

@@ -4 +4 @@
   /____  >\___  >___  >___|  /\___  >
 +<:<---\/-----\/----\/-----\/-----\/>:>+
-!     global onelinerz script v2.1     |
+!     global onelinerz script v2.3     |
 +   this perl script can be used as a  :
 : door to access the bbs-scene.org api +

osx/scripts/bbs-scene_global_onelinerz/onelinerz.cfg

@@ -15 +15 @@
 
 # set your bbs name below.
+
 $bbsname    = "BBS Name";
 
 # set your bbs-scene.org username below. Remember to escape the @ with a \ 
+
 $username   = "email\@bbs-scene.org";
 
 # set your bbs-scene.org password below.
+
 $password   = "password";
 
 # set the path to your onelinerz directory below.
+
 $linerzpath = "/path/to/onelinerz/";
 
 # set the name of the header file below.
+
 $header     = "onelinerz.ans";
 
 # Set limit of onelinerz below.
+
 $limit      = 13;
 
+# Set if you want ANSI Colours 1 = on / 0 = off
+
+$ansi       = 0;
+
+# Oneliner Colour. Options are: Black, Blue, Green, Cyan, Red, Magenta, 
+# Grey, Yellow, White, Lt Grey, Lt Blue, Lt, Green, Lt Cyan, Lt Red,
+# Lt Magenta 
+
+$lcolour    = $Ansi_Codes{'Lt Grey'};
+
+# Alias Colour. Options are: Black, Blue, Green, Cyan, Red, Magenta, 
+# Grey, Yellow, White, Lt Grey, Lt Blue, Lt, Green, Lt Cyan, Lt Red,
+# Lt Magenta 
+
+$acolour    = $Ansi_Codes{'White'};
+
+# BBS Name Colour. Options are: Black, Blue, Green, Cyan, Red, Magenta, 
+# Grey, Yellow, White, Lt Grey, Lt Blue, Lt, Green, Lt Cyan, Lt Red,
+# Lt Magenta 
+
+$bcolour    = $Ansi_Codes{'Lt Cyan'};
+
 # Set any usernames not allowed to post below.
+
 @twit      = ("Guest","Jackass");

osx/scripts/bbs-scene_global_onelinerz/onelinerz.pl

@@ -16 +16 @@
 #
 
-# Load config
+# Load config and ansi set
+require "ansi.pl";
+
 my $config_file = "onelinerz.cfg";
 open CONFIG, "$config_file"
@@ -37 +39 @@
 eval { use XML::Simple; };
 if ($@) {
-    print "You need the HTML::Entities module installed.\r\n";
+    print "You need the XML::Simple module installed.\r\n";
     exit;
 }
@@ -46 +48 @@
 $oheader = $linerzpath . "/" . $header;
 my $url = "http://bbs-scene.org/api/onelinerz.php?limit";
-my $api = $url . "=" . $limit;
+my $api = $url . "=" . $limit . "&ansi=" . $ansi;
 
 my $xmlresponse = &bbssceneApiGet( $username, $password, $api );
@@ -64 +66 @@
 $xml = new XML::Simple( KeyAttr => [] );
 
-&stripIllegal($xml);
+#&stripIllegal($xml);
+
 
 # read XML file
 $data = $xml->XMLin("$xmlresponse") or die "Can't process onelinerz.xml : $!";
 
+
 my $i = 0;
 
@@ -75 +79 @@
 
     $oneliner =
-        " \e[30;1m(\e[37;1m"
+        " \e[30;1m(" . $acolour 
       . $e->{alias}
-      . "\e[34;1m/\e[36;1m"
+      . "\e[34;1m/" . $bcolour
       . $e->{bbsname}
-      . "\e[30;1m) \e[30;0m"
+      . "\e[30;1m) " . $lcolour
       . $e->{oneliner};
 
+    #Convert Pipe codes to Escape Codes
+    
+    $oneliner =~ s/\|00/$Ansi_Codes{'Black'}/;
+    $oneliner =~ s/\|01/$Ansi_Codes{'Blue'}/;
+    $oneliner =~ s/\|02/$Ansi_Codes{'Green'}/;
+    $oneliner =~ s/\|03/$Ansi_Codes{'Cyan'}/;
+    $oneliner =~ s/\|04/$Ansi_Codes{'Red'}/;
+    $oneliner =~ s/\|05/$Ansi_Codes{'Magenta'}/;
+    $oneliner =~ s/\|06/$Ansi_Codes{'Brown'}/;
+    $oneliner =~ s/\|07/$Ansi_Codes{'Lt Grey'}/;
+    $oneliner =~ s/\|08/$Ansi_Codes{'Grey'}/;
+    $oneliner =~ s/\|09/$Ansi_Codes{'Lt Blue'}/;
+    $oneliner =~ s/\|10/$Ansi_Codes{'Lt Green'}/;
+    $oneliner =~ s/\|11/$Ansi_Codes{'Lt Cyan'}/;
+    $oneliner =~ s/\|12/$Ansi_Codes{'Lt Red'}/;
+    $oneliner =~ s/\|13/$Ansi_Codes{'Lt Magenta'}/;
+    $oneliner =~ s/\|14/$Ansi_Codes{'Yellow'}/;
+    $oneliner =~ s/\|15/$Ansi_Codes{'White'}/;
+    $oneliner =~ s/\|16/$Ansi_Codes{'Bk Black'}/;
+    $oneliner =~ s/\|17/$Ansi_Codes{'Bk Blue'}/;
+    $oneliner =~ s/\|18/$Ansi_Codes{'Bk Green'}/;
+    $oneliner =~ s/\|19/$Ansi_Codes{'Bk Cyan'}/;
+    $oneliner =~ s/\|20/$Ansi_Codes{'Bk Red'}/;
+    $oneliner =~ s/\|21/$Ansi_Codes{'Bk Magenta'}/;
+    $oneliner =~ s/\|22/$Ansi_Codes{'Bk Brown'}/;
+    $oneliner =~ s/\|23/$Ansi_Codes{'Bk Grey'}/;
+    $oneliner =~ s/\|24/$Ansi_Codes{'Black'}/;
+     
+    # Limit line length 
     $oneliner = substr( $oneliner, 0, 121 );