]> dxcluster.org Git - spider.git/blob - cmd/echo.pl
iadd CTY-1922 changes
[spider.git] / cmd / echo.pl
1
2 # echo the line passed to the output decoding certain 
3 # "escape" sequences on the way
4 #
5 # Copyright (c) 2002 Dirk Koopman G1TLH
6 #
7 #
8 #
9
10 my ($self, $line) = @_;
11
12 $line =~ s/\\t/\t/g;                    # tabs
13 $line =~ s/\\a/\a/g;                    # beeps
14 my @out = split /\\[n]/, $line;
15 return (1, @out);