From 8d4fe58ee09b7f5d00ee0c1a6e122a1bcff7ca4e Mon Sep 17 00:00:00 2001
From: Tom Feist <shabble@metavore.org>
Date: Sat, 8 Jan 2011 20:00:20 +0000
Subject: moved docs/ to https://github.com/shabble/irssi-docs

---
 docs/sigextract.pl | 24 ------------------------
 1 file changed, 24 deletions(-)
 delete mode 100755 docs/sigextract.pl

(limited to 'docs/sigextract.pl')

diff --git a/docs/sigextract.pl b/docs/sigextract.pl
deleted file mode 100755
index cc6f8bb..0000000
--- a/docs/sigextract.pl
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/usr/bin/env perl
-
-use strict;
-use warnings;
-
-my $file = shift // 'allsigs.txt';
-
-open my $fh, $file or die "couldn't open $file: $!";
-my $sigs = {};
-
-while (my $line = <$fh>) {
-    chomp $line;
-    if ($line =~ m/"(\w+(?:\s+\w+)*)"/) {
-        #print "Found signal: $1\n";
-        $sigs->{$1}++;
-    }
-}
-
-close $fh;
-
-my @signals = keys %$sigs;
-
-print join("\n", sort @signals);
-print "\n";
-- 
cgit v1.2.3