commiting initial scripts

Author: jgimenez

di.fm

@@ -0,0 +1,9 @@
+#!/bin/sh
+TYPE=$1
+if [ -z "${TYPE}" ]; then
+	curl -s www.di.fm | grep pls | cut -d '"' -f 2| cut -d / -f 5 | sed -e s,.pls,, |sort | uniq
+else
+	URL=http://listen.di.fm/public3/${TYPE}.pls
+	STREAM=$(curl -s ${URL} | grep File1 |cut -d = -f 2)
+	mplayer ${STREAM}
+fi

hexebcdic2ascii

@@ -0,0 +1,2 @@
+#!/bin/sh
+echo -n -e $(sed 's/../\\x&/g') | iconv -f EBCDICUS

jad

@@ -0,0 +1,2 @@
+#!/bin/sh
+wine ~/download/jad.exe $*

jadall

@@ -0,0 +1,2 @@
+#!/bin/sh
+find . -type d -exec sh -c 'cd {} && jad -s java -o *.class' \;

kopete-offline

@@ -0,0 +1,4 @@
+#!/bin/sh
+export DISPLAY=:0.0
+qdbus org.kde.kopete /Kopete org.kde.Kopete.setOnlineStatus Offline
+kdialog --title "Kopete" --passivepopup "Es la hora, Kopete parado"

mail-expect

@@ -0,0 +1,64 @@
+#!/usr/bin/expect
+set mailserver [lrange $argv 0 0]
+set from [lrange $argv 1 1]
+set to [lrange $argv 2 2]
+
+spawn telnet $mailserver 25
+expect "failed" {
+                send_user "$mailserver: connect failed\n"
+                exit    
+        } "2?? *" {
+        } "4?? *"   {
+                exit
+        } "refused" {
+                send_user "$mailserver: connect refused\n"
+                exit
+        } "closed" {
+                send_user "$mailserver: connect closed\n"
+                exit
+        } timeout {
+                send_user "$mailserver: connect to port 25 timeout\n"
+                exit
+        }
+send "HELO foo.com\r"
+expect "2?? *" {
+} "5?? *" {
+        exit
+} "4?? *" {
+        exit
+}
+send "MAIL FROM: <$from>\r"
+expect "2?? *"  {
+} "5?? *" {
+        exit
+} "4?? *" {
+        exit
+}
+send "RCPT TO: <$to>\r"
+expect "2?? *" {
+} "5?? *" {
+        exit
+} "4?? *" {
+        exit
+}
+send "DATA\r"
+expect "3?? *" {
+} "5?? *" {
+        exit
+} "4?? *" {
+        exit
+}
+send "From: $from\r"
+send "To: $to\r"
+send "Subject: test\r"
+send "This is a test message\r"
+send ".\r"
+expect "2?? *" {
+} "5?? *" {
+        exit
+} "4?? *" {
+        exit
+}
+send "QUIT\r"
+exit
+

nmap2csv

@@ -0,0 +1,45 @@
+#! /usr/bin/perl -w
+use strict;
+
+my @fieldNames = (
+                "Host:",
+                "Ports:",
+                "OS:",
+                "Seq Index:",
+                "IPID Seq:"
+                );
+
+my $split = join "|", @fieldNames;
+$split = "($split)";
+
+while( <> ){
+
+        foreach my $fieldName ( @fieldNames ){
+                if( $_ =~ m/$fieldName/ ){
+                        my ( $pre, $post ) = split $fieldName, $_ ;
+                        my ( $fieldVal, @junk ) = split /$split/, $post;
+
+                        if( $fieldName eq "Host:" ){
+                                $fieldVal =~ m/([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)\s+\((.*)\)/;
+                                my $dottedDecIp = $1; 
+                                my $ipName = $2;
+                                print "\"$dottedDecIp\",\"$ipName\",";
+                        }
+                        elsif( $fieldName eq "OS:" ){
+                                my $os = $fieldVal;
+                                $os =~ s/^\s+//;
+                                $os =~ s/\s+$//;
+                                print "\"$os\",";
+                        }
+                        elsif( $fieldName eq "Ports:" ){
+                                my( @ports ) = $fieldVal =~ m/\s+([0-9]+)\/open/g;
+                                print "\"";
+                                foreach my $port ( @ports ){
+                                        print "$port,";
+                                }
+                                print "\"";
+                        }
+                }
+        }
+        print "\n";
+}