1 files changed, 24 insertions, 0 deletions
diff --git a/scripts/krazy2tasks.pl b/scripts/krazy2tasks.pl
new file mode 100755
index 0000000000..0f42efc058
--- /dev/null
+++ b/scripts/krazy2tasks.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+my $file = shift;
+die "No .tasks file given to save data into." unless ($file);
+
+open(PIPE, "krazy2all . --export textedit |") or
+    die "Could not start krazy2all, please make sure it is in your PATH.";  
+open(FILE, ">$file") or die "Failed to open \"$file\" for writing.";
+
+while (<PIPE>) {
+    my $line = $_;
+    chomp $line;
+    next unless $line =~ /^(.*):(\d+):(.*)$/;
+
+    my $file = $1;
+    my $lineno = $2;
+    my $description = $3;
+    next if $file =~ /\/3rdparty\//;
+
+    print FILE "$file\t$lineno\tWARN\tKrazy: $description\n";
+}
+