undso’s gists

undso / Sigterm.py

Created April 2, 2021 10:22

	import signal
	import time


	class GracefulKiller:
	kill_now = False


	def __init__(self):
	signal.signal(signal.SIGINT, self.exit_gracefully)

undso / vcard.php

Last active October 5, 2018 09:14

Kleines PHP Skript, dass zu einem Kürzel die passende VCARD zurück liefert. Aufruf über https://domain.com/vcard.php?c=abc

	<?php
	// Prüfung, ob der Parameter gesetzt wurde.
	// Wenn nicht, Weiterleitung zum Host
	if (is_null($_GET['c'])){
	header("Location: https://$_SERVER[HTTP_HOST]");
	exit();
	}
	else{
	$vcard = strtolower($_GET['c']).".vcf";

undso / vcard.php

Created October 5, 2018 05:43

Kleines PHP Skript, dass zu einem Kürzel die passende VCARD zurück liefert.

	<?php

	// Prüfung, ob der Parameter gesetzt wurde.
	// Wenn nicht, Weiterleitung zum Host
	if (is_null($_GET['c'])){
	header("Location: https://$_SERVER[HTTP_HOST]");
	exit();
	}
	else{

undso / vcard.php

Created October 5, 2018 05:43

Kleines PHP Skript, dass zu einem Kürzel die passende VCARD zurück liefert.

	<?php

	// Prüfung, ob der Parameter gesetzt wurde.
	// Wenn nicht, Weiterleitung zum Host
	if (is_null($_GET['c'])){
	header("Location: https://$_SERVER[HTTP_HOST]");
	exit();
	}
	else{

undso / Raspi.md

Last active June 20, 2018 21:48

Doku zum Aufsetzten eines neuen Raspi...falls die SD mal wieder abraucht.

Hostname ändern

Bevor wir den Hostnamen ändern, schauen wir, was der alte Name ist.

hostname

Dann setzen wir einen neuen Hostname.

sudo nano /etc/hostname

undso / WorkSheetExists.vba

Created December 9, 2016 10:25

	Public Function WorkSheetExists(ByVal strName2 As String) As Boolean
	On Error Resume Next
	WorkSheetExists = Not Worksheets(strName2) Is Nothing
	End Function

undso / CopyRename.vba

Last active December 9, 2016 12:40

Copy and rename sheets from list

	Sub AddSheet()
	Application.ScreenUpdating = False
	Dim bottomA As Integer
	bottomA = Range("A" & Rows.Count).End(xlUp).Row
	Dim c As Range
	Dim ws As Worksheet
	For Each c In Range("A2:A" & bottomA)
	Set ws = Nothing
	On Error Resume Next
	Set ws = Worksheets(c.Value)

undso / TabellenblattnamenAuflisten.vba

Created December 4, 2016 20:59

	Sub TabellenblattnamenAuflisten()
	Dim shWorksheet As Worksheet
	Dim shNewWorksheet As Worksheet

	Set shNewWorksheet = ActiveWorkbook.Worksheets.Add
	shNewWorksheet.Cells(1, 1).Value = "Liste der Tabellenblattnamen"

	For Each shWorksheet In ActiveWorkbook.Worksheets
	shNewWorksheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = shWorksheet.Name
	Next

undso / Beispiele.xlsx

Created December 4, 2016 18:50

Einfach Beispiele für nicht ganz altägliche Excel-Funktionen

	Anzeige des Tabellenblattnamens in einer Zelle.
	=RECHTS(ZELLE("dateiname");LÄNGE(ZELLE("dateiname"))-FINDEN("]";ZELLE("dateiname")))

undso / PrivateTorrent.md

Created September 18, 2016 14:30 — forked from sourcec0de/PrivateTorrent.md

Host a private torrent tracker, and seed a torrent on ubuntu 12.10

Install dep, and start tracker

sudo apt-get install bittornado ctorrent
bttrack --port 6969 --dfile ~/.bttrack/dstate --logfile ~/.bttrack/tracker.log --nat_check 0 --scrape_allowed full

Now, create a torrent file

ctorrent -t -u "YOUR_SERVER_IP:6969/announce" -s new_file_name.torrent file_or_folder_for_torrent

Alexander Friedrichs undso

Hostname ändern