added url shortener checker + some comments

binfalse · binfalse · commit 1f179c28b2b3 · 2011-07-29T14:01:01.000+02:00
diff --git a/c-cpp/bubbles/bubbles.cpp b/c-cpp/bubbles/bubbles.cpp
@@ -12,6 +12,8 @@
 #include <errno.h>
 #include <fstream>
 
+// written by Martin Scharm
+//   see http://binfalse.de
 
 using namespace std;
 
diff --git a/c-cpp/nim.cpp b/c-cpp/nim.cpp
@@ -2,7 +2,7 @@
 #include <stdlib.h>
 
 /* written by martin scharm
- * see  https://binfalse.de
+ *   see http://binfalse.de
  *
  * you have to take a various number of o's
  * from *one* of the stacks. if you did so,
diff --git a/c-cpp/vidsplit.cpp b/c-cpp/vidsplit.cpp
@@ -2,6 +2,12 @@
 #include <highgui.h>
 #include <iostream>
 
+/* written by martin scharm
+ *   see http://binfalse.de
+ *
+ * split a video streams to png images
+ */
+
 using namespace std;
 
 
diff --git a/java/Link.java b/java/Link.java
@@ -9,7 +9,7 @@
 * 
 * this class creates a Link extending JLabel
 * 
-* @author Martin Scharm
+* @author Martin Scharm, see http://binfalse.de
 *
 */
 public class Link extends javax.swing.JLabel implements java.awt.event.MouseListener
diff --git a/java/Zbox.java b/java/Zbox.java
@@ -4,7 +4,7 @@
 /**********************************
  *
  *    written by Martin Scharm
- *     see https://binfalse.de
+ *      see http://binfalse.de
  *
  **********************************/
 
diff --git a/monitoring/check_UBC.pl b/monitoring/check_UBC.pl
@@ -1,9 +1,12 @@
 #!/usr/bin/perl -w
-
 ###################################
 #
+#     Monitor the UserBeanCounter
+#     of OpenVZ vservers. This is
+#     the way vservers tell it's
+#     host about ressource issues.
 #     written by Martin Scharm
-#      see https://binfalse.de
+#       see http://binfalse.de
 #
 ###################################
 
diff --git a/monitoring/check_backup.sh b/monitoring/check_backup.sh
@@ -1,4 +1,13 @@
 #!/bin/bash
+###################################
+#
+#     Check if there are pending Backups
+#     written by Martin Scharm
+#       see http://binfalse.de
+#
+#     tested with v8.60
+#
+###################################
 
 source /usr/lib/nagios/plugins/utils.sh
 
diff --git a/monitoring/check_catalyst_fans.pl b/monitoring/check_catalyst_fans.pl
@@ -1,11 +1,11 @@
 #!/usr/bin/perl -w
-
-###################################
+#################################################
 #
+#     Monitoring FANS of a CISCO catalyst
 #     written by Martin Scharm
-#      see https://binfalse.de
+#       see http://binfalse.de
 #
-###################################
+#################################################
 
 use strict;
 use Net::SNMP;
diff --git a/monitoring/check_catalyst_flash.pl b/monitoring/check_catalyst_flash.pl
@@ -1,11 +1,11 @@
 #!/usr/bin/perl -w 
-
-###################################
+#################################################
 #
+#     Monitoring FLASH dirve of a CISCO catalyst
 #     written by Martin Scharm
-#      see https://binfalse.de
+#       see http://binfalse.de
 #
-###################################
+#################################################
 
 use strict;
 use Net::SNMP;
diff --git a/monitoring/check_catalyst_load.pl b/monitoring/check_catalyst_load.pl
@@ -1,11 +1,11 @@
 #!/usr/bin/perl -w 
-
-###################################
+#################################################
 #
+#     Monitoring FLASH drive of a CISCO catalyst
 #     written by Martin Scharm
-#      see https://binfalse.de
+#      see http://binfalse.de
 #
-###################################
+#################################################
 
 use strict;
 use Net::SNMP;
diff --git a/monitoring/check_catalyst_mem.pl b/monitoring/check_catalyst_mem.pl
@@ -1,11 +1,11 @@
 #!/usr/bin/perl -w 
-
-###################################
+#################################################
 #
+#     Monitoring MEMORY of a CISCO catalyst
 #     written by Martin Scharm
-#      see https://binfalse.de
+#      see http://binfalse.de
 #
-###################################
+#################################################
 
 use strict;
 use Net::SNMP;
diff --git a/monitoring/check_catalyst_temp.pl b/monitoring/check_catalyst_temp.pl
@@ -1,11 +1,11 @@
 #!/usr/bin/perl -w 
-
-###################################
+#################################################
 #
+#     Monitoring TEMPERATURE of a CISCO catalyst
 #     written by Martin Scharm
-#      see https://binfalse.de
+#       see http://binfalse.de
 #
-###################################
+#################################################
 
 use strict;
 use Net::SNMP;
diff --git a/monitoring/check_hp_health.pl b/monitoring/check_hp_health.pl
@@ -1,9 +1,9 @@
 #!/usr/bin/perl -w
 ###################################
 #
-#     HP ProLiant Monitoring
+#     HP ProLiant health Monitoring
 #     written by Martin Scharm
-#      see https://binfalse.de
+#       see http://binfalse.de
 #
 #     tested with v8.60
 #
diff --git a/monitoring/check_imapds.sh b/monitoring/check_imapds.sh
@@ -1,9 +1,12 @@
 #!/bin/bash
-
 ###################################
 #
+#     check the number of running
+#     imapd's, we had some trouble
+#     with them, few days ago
+#
 #     written by Martin Scharm
-#      see https://binfalse.de
+#       see http://binfalse.de
 #
 ###################################
 
diff --git a/monitoring/check_mount.pl b/monitoring/check_mount.pl
@@ -1,9 +1,9 @@
 #!/usr/bin/perl -w
-
 ###################################
 #
+#  Check the state of mount points
 #     written by Martin Scharm
-#      see https://binfalse.de
+#       see http://binfalse.de
 #
 ###################################
 
diff --git a/monitoring/check_pykota.sh b/monitoring/check_pykota.sh
@@ -1,9 +1,11 @@
 #!/bin/bash
-
 ###################################
 #
+#     check if pykota is available.
+#     especially helpful if somebody
+#     updated python...
 #     written by Martin Scharm
-#      see https://binfalse.de
+#       see http://binfalse.de
 #
 ###################################
 
diff --git a/monitoring/check_url_shortener.pl b/monitoring/check_url_shortener.pl
@@ -0,0 +1,72 @@
+#!/usr/bin/perl -w
+###################################
+#
+#     Monitoring URL Shortener
+#     written by Martin Scharm
+#      see http://binfalse.de
+#
+#     tested with v8.60
+#
+###################################
+use warnings;
+use strict;
+use Getopt::Long;
+
+# curl executable, you might need to change the path!?
+my $curl = "/usr/bin/curl";
+
+
+my $expect = "";
+my $short = "";
+my $respcode = 0;
+my $respurl = "";
+my $help = 0;
+
+GetOptions (
+	'short=s' => \$short,
+	'expect=s' => \$expect,
+	'help' => \$help,
+	'h' => \$help);
+
+if ($help || !-x $curl || !$short)
+{
+	print "$curl isn't executable...\n" unless -x $curl;
+	print "need an URL (--short) to expand\n" unless $short;
+	
+	print "PARAMETERS:\n";
+	print "\t--short \tshortened URL\n";
+	print "\t--expect\texpected target redirection\n";
+	print "\t--help  \tshow this msg\n";
+	exit 3;
+}
+
+open CMD, "curl -s -I $short |";
+while (<CMD>)
+{
+	if (m/^HTTP\S*\s+(\d+)/)
+	{
+		$respcode = $1;
+		next;
+	}
+	if (m/^Location:\s+(\S+)\s*$/)
+	{
+		$respurl = $1;
+		next;
+	}
+}
+close CMD;
+
+if ($respcode != 301)
+{
+	print "urgh, smth is wrong: response was $respcode, redirecting to $respurl\n";
+	exit 2;
+}
+
+if ($expect && $respurl ne $expect)
+{
+	print "we are redirected with $respcode, but to $respurl, not as expected to $expect!?\n";
+	exit 1;
+}
+
+print "redirecting works perfectly: $respcode -> $respurl\n";
+exit 0;
diff --git a/monitoring/check_wp.PHP b/monitoring/check_wp.PHP
@@ -1,10 +1,10 @@
 #!/usr/bin/php
 <?php
-
 ###################################
 #
+#     WordPress Updates Monitoring
 #     written by Martin Scharm
-#      see https://binfalse.de
+#       see http://binfalse.de
 #
 ###################################
 
diff --git a/scripts/autobackup.sh b/scripts/autobackup.sh
@@ -1,11 +1,10 @@
 #!/bin/bash
-
 ###############################
 #
 #   automatic backup script
 #
 #   written by Martin Scharm
-#      see http://binfalse.de
+#     see http://binfalse.de
 #
 ###############################
 
diff --git a/scripts/backup b/scripts/backup
@@ -1,8 +1,13 @@
 #!/bin/bash
-
-# for more informations visit:
+###############################
+#
+#   Create easily backups of
+#   files and directories
+#
+#   written by Martin Scharm
+#     see http://binfalse.de
 #
-#          https://binfalse.de
+###############################
 
 if [ $# -ne 1 ]
 then
diff --git a/scripts/check-links.pl b/scripts/check-links.pl
@@ -1,8 +1,13 @@
 #!/usr/bin/perl -w
-
-# for more informations visit:
+###############################
+#
+#   Check and analyze links
+#      on a website
+#
+#   written by Martin Scharm
+#     see http://binfalse.de
 #
-#     http://binfalse.de
+###############################
 
 use strict;
 use LWP::UserAgent;
diff --git a/scripts/dns-bench.pl b/scripts/dns-bench.pl
@@ -1,4 +1,12 @@
 #!/usr/bin/perl -w
+###############################
+#
+#   DNS-server benchmarking
+#
+#   written by Martin Scharm
+#     see http://binfalse.de
+#
+###############################
 use warnings;
 use strict;
 
diff --git a/scripts/dual-proxy.pl b/scripts/dual-proxy.pl
@@ -1,5 +1,12 @@
 #!/usr/bin/perl -w
-# see http://binfalse.de
+###############################
+#
+#   Creating a dual proxy w Perl
+#
+#   written by Martin Scharm
+#     see http://binfalse.de
+#
+###############################
 
 use warnings;
 use strict;
diff --git a/scripts/essen.pl b/scripts/essen.pl
@@ -1,4 +1,12 @@
 #!/usr/bin/perl -w
+###############################
+#
+#   Query canteen schedule
+#
+#   written by Martin Scharm
+#     see http://binfalse.de
+#
+###############################
 
 use warnings;
 use strict;
diff --git a/scripts/html5_clock.js b/scripts/html5_clock.js
@@ -1,3 +1,4 @@
+/* JS binary clock by Martin Scharm <http://binfalse.de> */
 function init()
 {
 	clock();
diff --git a/scripts/mediadump b/scripts/mediadump
diff --git a/scripts/unforgotten.sh b/scripts/unforgotten.sh
diff --git a/scripts/unpack b/scripts/unpack
diff --git a/user-scripts/galaxydatasetimprover.user.js b/user-scripts/galaxydatasetimprover.user.js
diff --git a/user-scripts/squirrelmail_search_reorder.user.js b/user-scripts/squirrelmail_search_reorder.user.js

Original file line number	Diff line number	Diff line change
`@@ -2,7 +2,7 @@`
`2`	`2`	`#include <stdlib.h>`
`3`	`3`
`4`	`4`	`/* written by martin scharm`
`5`		`- * see https://binfalse.de`
	`5`	`+ * see http://binfalse.de`
`6`	`6`	`*`
`7`	`7`	`* you have to take a various number of o's`
`8`	`8`	`* from one of the stacks. if you did so,`
Original file line number	Diff line number	Diff line change
`@@ -9,7 +9,7 @@`
`9`	`9`	`*`
`10`	`10`	`* this class creates a Link extending JLabel`
`11`	`11`	`*`
`12`		`-* @author Martin Scharm`
	`12`	`+* @author Martin Scharm, see http://binfalse.de`
`13`	`13`	`*`
`14`	`14`	`*/`
`15`	`15`	`public class Link extends javax.swing.JLabel implements java.awt.event.MouseListener`
Original file line number	Diff line number	Diff line change
`@@ -4,7 +4,7 @@`
`4`	`4`	`/**********************************`
`5`	`5`	`*`
`6`	`6`	`* written by Martin Scharm`
`7`		`- * see https://binfalse.de`
	`7`	`+ * see http://binfalse.de`
`8`	`8`	`*`
`9`	`9`	`**********************************/`
`10`	`10`
Original file line number	Diff line number	Diff line change
`@@ -1,9 +1,12 @@`
`1`	`1`	`#!/usr/bin/perl -w`
`2`		`-`
`3`	`2`	`###################################`
`4`	`3`	`#`
	`4`	`+# Monitor the UserBeanCounter`
	`5`	`+# of OpenVZ vservers. This is`
	`6`	`+# the way vservers tell it's`
	`7`	`+# host about ressource issues.`
`5`	`8`	`# written by Martin Scharm`
`6`		`-# see https://binfalse.de`
	`9`	`+# see http://binfalse.de`
`7`	`10`	`#`
`8`	`11`	`###################################`
`9`	`12`