add the save and echo commands
[spider.git] / cmd / echo.pl
diff --git a/cmd/echo.pl b/cmd/echo.pl
new file mode 100644 (file)
index 0000000..14497d4
--- /dev/null
@@ -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);