initial commit [141.14.140.180,mike]

2026-08-10 16:12:09 +02:00
commit c534ea1c79
66 changed files with 9244 additions and 0 deletions
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+use Getopt::Std;getopts('x');
+
+use Sys::Hostname qw(hostname);use Socket;
+my($ip) = inet_ntoa( (gethostbyname(hostname()))[4] );
+my($user)=getpwuid( $< );
+
+if ($opt_x) {
+	$comment="[$ip,$user] " . join(' ',@ARGV);
+} else {
+	$comment=join(' ',@ARGV);
+}
+
+$comment='-' if ($comment=~/^\s*$/);
+$comment=~s/\s*$//;
+
+system("git add -v .");
+system("git commit -m '$comment'");
+system("git push");
+