Initial commit

README.md

@@ -0,0 +1,5 @@
+Autorubrik
+----------
+
+Generate headlines. Aftonbladet probably uses the same script...
+Developed in 2011, so the content reflects that time.

autorubrik.pl

@@ -0,0 +1,10 @@
+#!/usr/bin/perl -w
+
+# Written by felhan 28/3-2011, updated when needed
+
+my @subj = ("LKAB:s styrelse", "Toppchefen", "Ensama mamman", "Khadaffi", "Sollentuna-mannen", "Kicki Danielsson", "Carnegie-mannen", "Systemadministratör", "Socialstyrelsen", "Ryanair", "Porrkungen", "Fettdoktorn", "Zlatan", "Hans Sheike", "Stureplansprofilen", "Reinfeldt", "Juholt");
+my @verb = ("om babylyckan", "gripen inatt", "om panikfärden", "rasar", "i knarkrazzia", "till attack mot $subj[int(rand(@subj))]", "varnar för dödsknarket");
+my @under = ("- Vi har hela listan", "- Rikslarm imorse", "- \"hon tog mig på pattarna!\"", "- \"Det bara svartnade\"", "- \"$subj[int(rand(@subj))] fattar ingenting\"", "- \"Jag skäms\"", "- \"Jag trodde att jag skulle dö\"", "- Tre till sjukhus", "- Läkarna förstod ingenting");
+
+print "$subj[int(rand(@subj))] $verb[int(rand(@verb))] $under[int(rand(@under))] \n";
+