add some headers to old files

Signed-off-by: Nico Schottelius <nico@ikn.schottelius.org>

old/run_prog

@@ -0,0 +1,19 @@
+title="run program"
+colour="darkblue"
+geometry="30x1"
+prog="run_prog-sh"
+
+xterm -fg $colour -bg black -bd $colour -cr $colour -hc $colour \
+-title "$title" -name "$title" -T "$title" \
+-bc -bcf 1000 -bcn 900  -fb *-*-bold-*-*-*-*-*-*-*-*-*-*-* \
+-fn '-misc-fixed-bold-r-normal-*-*-*-*-*-*-*-iso8859-15' \
+-geometry "$geometry" \
+-ls -mesg -bw 8 +cu +dc +s +sb -sl 1500 -ulc -e "$prog" $@
+
+# other fonts
+#-fn '-adobe-*-bold-r-*-*-*-140-*-*-*-*-iso8859-*' \
+# -fn '-misc-fixed-bold-r-normal-*-15-120-100-100-c-90-*-*' \
+# -fn '-misc-fixed-*-*-*-*-*-*-*-*-*-*-*-*' \
+
+# -u8 does not like german characters...
+#-ls -mesg -bw 8 +cu +dc +s +sb -sl 1500 -ulc -u8

old/send_sms_swisscom.pl

@@ -0,0 +1,77 @@
+#!/usr/bin/perl -w
+#
+# (c) 2007, Tonnerre Lombard <tonnerre@pauli.sygroup.ch>,
+#	    SyGroup GmbH Reinach. All rights reserved.
+#
+# Redistribution and use  in source and binary forms,  with or without
+# modification, are  permitted provided that  the following conditions
+# are met:
+#
+# * Redistributions  of source  code must  retain the  above copyright
+#   notice, this list of conditions and the following disclaimer.
+# * Redistributions in binary form  must reproduce the above copyright
+#   notice, this  list of conditions  and the following  disclaimer in
+#   the  documentation  and/or   other  materials  provided  with  the
+#   distribution.
+# * Neither  the  name  of  the  SyGroup  GmbH nor  the  name  of  its
+#   contributors may  be used to  endorse or promote  products derived
+#   from this software without specific prior written permission.
+#
+# THIS SOFTWARE IS PROVIDED  BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+# "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES OF MERCHANTABILITY AND
+# FITNESS FOR A  PARTICULAR PURPOSE ARE DISCLAIMED. IN  NO EVENT SHALL
+# THE  COPYRIGHT  OWNER OR  CONTRIBUTORS  BE  LIABLE  FOR ANY  DIRECT,
+# INDIRECT, INCIDENTAL,  SPECIAL, EXEMPLARY, OR  CONSEQUENTIAL DAMAGES
+# (INCLUDING, BUT  NOT LIMITED TO, PROCUREMENT OF  SUBSTITUTE GOODS OR
+# SERVICES; LOSS  OF USE, DATA, OR PROFITS;  OR BUSINESS INTERRUPTION)
+# HOWEVER CAUSED AND ON ANY  THEORY OF LIABILITY, WHETHER IN CONTRACT,
+# STRICT  LIABILITY,  OR  TORT  (INCLUDING  NEGLIGENCE  OR  OTHERWISE)
+# ARISING IN ANY WAY OUT OF  THE USE OF THIS SOFTWARE, EVEN IF ADVISED
+# OF THE POSSIBILITY OF SUCH DAMAGE.
+#
+
+use LWP::UserAgent;
+
+if ($#ARGV != 1) {
+   die("$0: number text");
+}
+my $number  = $ARGV[0];
+my $text    = $ARGV[1];
+
+my $ua = new LWP::UserAgent;
+$ua->timeout(10);
+$ua->env_proxy();
+$ua->cookie_jar({});
+
+$response = $ua->post('https://www.swisscom-mobile.ch/youth/sms_senden-de.aspx?login',
+{
+	isiwebuserid =>	'your-phone-number-here',
+	isiwebpasswd =>	'your-web-password-here'
+});
+unless ($response->is_success() || $response->is_redirect())
+{
+	die('Unable to log into SMS gateway: ' . $response->status_line());
+}
+$response = $ua->post('https://www.swisscom-mobile.ch/youth/sms_senden-de.aspx',
+{
+	'__EVENTTARGET' =>			'',
+	'__EVENTARGUMENT' =>			'',
+	'__VIEWSTATE_SCM' =>			'1',
+	'__VIEWSTATE' =>			'',
+	'FooterControl:hidNavigationName' =>	'SMS senden',
+	'FooterControl:hidMailToFriendUrl' =>	'youth/sms_senden-de.aspx',
+	'CobYouthSMSSenden:txtNewReceiver' =>	"$number",
+	'CobYouthSMSSenden:txtMessage' =>	"$text",
+	'CobYouthSMSSenden:btnSend' =>		'Senden'
+});
+unless ($response->is_success())
+{
+	die('Unable to send SMS: ' . $response->status_line());
+}
+$response = $ua->get('https://www.swisscom-mobile.ch/youth/youth_zone_home-de.aspx?logout');
+unless ($response->is_success())
+{
+	warn('Unable to log out of SMS gateway: ' . $response->status_line());
+}
+
+exit(0);

old/update-git+cogito.sh

@@ -0,0 +1,59 @@
+#!/bin/sh
+# Nico Schottelius
+# Date: Mit Nov  9 12:57:04 CET 2005
+# Last Modified: Thu Nov 10 12:53:00 CET 2005
+# 
+# Install latest git and cogito to $INSTALL_PREFIX/$name and
+# link the binaries to $BINDIR
+# Needs git and cogito to work!
+# And:
+# - libexpat-dev
+# - libcurl3-dev
+# - libssl-dev
+# - libz-dev
+
+BASE_GET=http://www.kernel.org/pub/scm/
+PROJECTS="git/git.git cogito/cogito.git"
+BUILDDIR=/home/user/nico/build
+INSTALL_PREFIX=/usr/packages
+BINDIR=/usr/local/bin
+
+error_in()
+{
+   echo "[failed] $1"
+   echo "Exiting now."
+   exit 1
+}
+
+for project in $PROJECTS; do
+   realname=$(echo $project | sed -e 's,.*/,,' -e 's/\.git$//')
+
+   echo "Working on $realname (in $BUILDDIR/$realname) ... "
+
+   if [ ! -d "$BUILDDIR/$realname" ]; then
+      echo "Cloning $realname"
+      cg-clone "${BASE_GET}${project}" "$BUILDDIR/$realname"
+   else
+      echo "Updating $realname from \"origin\""
+      cd "$BUILDDIR/$realname" || error_in "$BUILDDIR/$realname"
+      cg-update origin
+   fi
+
+   if [ $? -ne 0 ]; then
+      echo "Pull or clone failed, ABORTING."
+      exit 23
+   fi
+
+   cd "$BUILDDIR/$realname"
+   version=$(cg-object-id)
+   echo "Installing $realname (Version: $version)"
+   DDIR=$INSTALL_PREFIX/$realname-$version
+   make clean || error_in "Cleaning $realname"
+   make "prefix=$DDIR" all || error_in "Building $realname"
+   make "prefix=$DDIR" install || error_in "Installing $realname"
+
+   echo "Linking files to $BINDIR ..."
+   for file in "$DDIR/bin/"*; do
+      ln -sf $file "$BINDIR" || error_in "Linking $file"
+   done
+done