X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fecho.pl;fp=cmd%2Fecho.pl;h=14497d438dd65847e356b0c8787ae755733cb378;hb=3a020ba6be87b9db9730f926dc03d59ecb87129e;hp=0000000000000000000000000000000000000000;hpb=cb340a0cf45f789d95201e4d4b9aec4ed581622d;p=spider.git

diff --git a/cmd/echo.pl b/cmd/echo.pl
new file mode 100644
index 00000000..14497d43
--- /dev/null
+++ b/cmd/echo.pl
@@ -0,0 +1,15 @@
+# 
+# echo the line passed to the output decoding certain 
+# "escape" sequences on the way
+#
+# Copyright (c) 2002 Dirk Koopman G1TLH
+#
+# $Id$
+#
+
+my ($self, $line) = @_;
+
+$line =~ s/\\t/\t/g;			# tabs
+$line =~ s/\\a/\a/g;			# beeps
+my @out = split /\\[n]/, $line;
+return (1, @out);