From 9512041501ad75d8aca9304c6dcb6d2f84b0ad39 Mon Sep 17 00:00:00 2001 From: dirk Date: Thu, 14 Jun 2007 23:33:41 +0200 Subject: [PATCH] sort a load of gitignores on a real server --- .gitignore | 16 ++++ connect/.gitignore | 3 + data/.gitignore | 13 ++++ filter/.gitignore | 2 + html/.gitignore | 2 + html/home.html | 3 +- html/newprot.html | 3 +- mrtg/.gitignore | 2 + msg/.gitignore | 3 + perl/EphMsg.pm | 186 +++++++++++++++++++++++++++++++++++++++++++++ scripts/.gitignore | 3 + src/.gitignore | 2 + techdoc/.gitignore | 4 + 13 files changed, 238 insertions(+), 4 deletions(-) create mode 100644 .gitignore create mode 100644 connect/.gitignore create mode 100644 data/.gitignore create mode 100644 filter/.gitignore create mode 100644 html/.gitignore create mode 100644 mrtg/.gitignore create mode 100644 msg/.gitignore create mode 100644 perl/EphMsg.pm create mode 100644 scripts/.gitignore create mode 100644 src/.gitignore create mode 100644 techdoc/.gitignore diff --git a/.gitignore b/.gitignore new file mode 100644 index 00000000..1ca43b05 --- /dev/null +++ b/.gitignore @@ -0,0 +1,16 @@ +local* +*~ +*.[oa] +*.tmp +CVS +tmp +*.bak +.#* +*# +*gz +*zip +.* +!.gitignore +packclus +tutor* +db diff --git a/connect/.gitignore b/connect/.gitignore new file mode 100644 index 00000000..16112e11 --- /dev/null +++ b/connect/.gitignore @@ -0,0 +1,3 @@ +* +!.gitignore +!*.issue diff --git a/data/.gitignore b/data/.gitignore new file mode 100644 index 00000000..6027afdc --- /dev/null +++ b/data/.gitignore @@ -0,0 +1,13 @@ +bad* +debug +*.db +*.v? +spots +user* +dupefile +log +wwv +wcy +motd* +issue +logout diff --git a/filter/.gitignore b/filter/.gitignore new file mode 100644 index 00000000..bbfa3dce --- /dev/null +++ b/filter/.gitignore @@ -0,0 +1,2 @@ +*.pl +*.pl.o diff --git a/html/.gitignore b/html/.gitignore new file mode 100644 index 00000000..4cb187e5 --- /dev/null +++ b/html/.gitignore @@ -0,0 +1,2 @@ +mrtg +client diff --git a/html/home.html b/html/home.html index e77c09cd..dd6fcc1f 100644 --- a/html/home.html +++ b/html/home.html @@ -25,7 +25,6 @@ Here are various jumping off points:-

 

Copyright © 1998 by Dirk Koopman G1TLH. All Rights Reserved
- $Id: index.html,v 1.19 2001/04/17 20:44:11 - g0vgs Exp $ + $Id$ diff --git a/html/newprot.html b/html/newprot.html index 1bb84fe2..a0e40c86 100644 --- a/html/newprot.html +++ b/html/newprot.html @@ -208,6 +208,5 @@ sufficient!

Copyright © 2001 by Dirk Koopman G1TLH. All Rights Reserved
-$Id: index.html,v 1.19 2001/04/17 20:44:11 g0vgs Exp -$ +$Id$ diff --git a/mrtg/.gitignore b/mrtg/.gitignore new file mode 100644 index 00000000..d6b7ef32 --- /dev/null +++ b/mrtg/.gitignore @@ -0,0 +1,2 @@ +* +!.gitignore diff --git a/msg/.gitignore b/msg/.gitignore new file mode 100644 index 00000000..16112e11 --- /dev/null +++ b/msg/.gitignore @@ -0,0 +1,3 @@ +* +!.gitignore +!*.issue diff --git a/perl/EphMsg.pm b/perl/EphMsg.pm new file mode 100644 index 00000000..eabba932 --- /dev/null +++ b/perl/EphMsg.pm @@ -0,0 +1,186 @@ +# +# This class is the internal subclass that deals with 'Ephmeral' +# communications like: querying http servers and other network +# connected data services and using Msg.pm +# +# An instance of this is setup by a command together with a load +# of callbacks and then runs with a state machine until completion +# +# $Id$ +# +# Copyright (c) 2001 - Dirk Koopman G1TLH +# + +package EphMsg; + +use strict; +use Msg; +use DXVars; +use DXUtil; +use DXDebug; +use IO::File; +use IO::Socket; +use IPC::Open3; + +use vars qw(@ISA $deftimeout); + +@ISA = qw(Msg); +$deftimeout = 60; + + +sub new +{ + +} + +# we probably won't use the normal format +sub enqueue +{ + my ($conn, $msg) = @_; + push (@{$conn->{outqueue}}, $msg . $conn->{lineend}); +} + +sub dequeue +{ + my $conn = shift; + my $msg; + + if ($conn->{csort} eq 'ax25' && exists $conn->{msg}) { + $conn->{msg} =~ s/\cM/\cJ/g; + } + + if ($conn->{state} eq 'WC') { + $conn->to_connected($conn->{call}, 'O', $conn->{csort}); + } + + if ($conn->{msg} =~ /\cJ/) { + my @lines = $conn->{msg} =~ /([^\cM\cJ]*)\cM?\cJ/g; + if ($conn->{msg} =~ /\cJ$/) { + delete $conn->{msg}; + } else { + $conn->{msg} =~ s/([^\cM\cJ]*)\cM?\cJ//g; + } + + while (defined ($msg = shift @lines)) { + dbg("connect $conn->{cnum}: $msg") if $conn->{state} ne 'C' && isdbg('connect'); + + $msg =~ s/\xff\xfa.*\xff\xf0|\xff[\xf0-\xfe].//g; # remove telnet options + + &{$conn->{rproc}}($conn, $msg); + } + } +} + +sub to_connected +{ + my ($conn, $call, $dir, $sort) = @_; + $conn->{state} = 'C'; + $conn->conns($call); + delete $conn->{cmd}; + $conn->{timeout}->del if $conn->{timeout}; + delete $conn->{timeout}; + $conn->nolinger; + &{$conn->{rproc}}($conn, "$dir$call|$sort"); +} + + +sub start_connect +{ + my $call = shift; + my $fn = shift; + my $conn = ExtMsg->new(\&main::new_channel); + $conn->{outgoing} = 1; + $conn->conns($call); + + my $f = new IO::File $fn; + push @{$conn->{cmd}}, <$f>; + $f->close; + $conn->{state} = 'WC'; + $conn->_dotimeout($deftimeout); +} + +sub _doconnect +{ + my ($conn, $sort, $line) = @_; + my $r; + + $sort = lc $sort; # in this case telnet, ax25 or prog + dbg("CONNECT $conn->{cnum} sort: $sort command: $line") if isdbg('connect'); + if ($sort eq 'telnet') { + # this is a straight network connect + my ($host, $port) = split /\s+/, $line; + $port = 23 if !$port; + $r = $conn->connect($host, $port); + if ($r) { + dbg("Connected $conn->{cnum} to $host $port") if isdbg('connect'); + } else { + dbg("***Connect $conn->{cnum} Failed to $host $port $!") if isdbg('connect'); + } + } elsif ($sort eq 'prog') { + $r = $conn->start_program($line, $sort); + } else { + dbg("invalid type of connection ($sort)"); + } + $conn->disconnect unless $r; + return $r; +} + +sub _doabort +{ + my $conn = shift; + my $string = shift; + dbg("connect $conn->{cnum}: abort $string") if isdbg('connect'); + $conn->{abort} = $string; +} + +sub _dotimeout +{ + my $conn = shift; + my $val = shift; + dbg("connect $conn->{cnum}: timeout set to $val") if isdbg('connect'); + $conn->{timeout}->del if $conn->{timeout}; + $conn->{timeval} = $val; + $conn->{timeout} = Timer->new($val, sub{ &_timedout($conn) }); +} + + +sub _timedout +{ + my $conn = shift; + dbg("connect $conn->{cnum}: timed out after $conn->{timeval} seconds") if isdbg('connect'); + $conn->disconnect; +} + +# handle callsign and connection type firtling +sub _doclient +{ + my $conn = shift; + my $line = shift; + my @f = split /\s+/, $line; + my $call = uc $f[0] if $f[0]; + $conn->conns($call); + $conn->{csort} = $f[1] if $f[1]; + $conn->{state} = 'C'; + &{$conn->{rproc}}($conn, "O$call|$conn->{csort}"); + delete $conn->{cmd}; + $conn->{timeout}->del if $conn->{timeout}; +} + +sub _send_file +{ + my $conn = shift; + my $fn = shift; + + if (-e $fn) { + my $f = new IO::File $fn; + if ($f) { + while (<$f>) { + chomp; + my $l = $_; + dbg("connect $conn->{cnum}: $l") if isdbg('connll'); + $conn->send_raw($l . $conn->{lineend}); + } + $f->close; + } + } +} diff --git a/scripts/.gitignore b/scripts/.gitignore new file mode 100644 index 00000000..4b9ad3b3 --- /dev/null +++ b/scripts/.gitignore @@ -0,0 +1,3 @@ +* +!.gitignore +*.issue diff --git a/src/.gitignore b/src/.gitignore new file mode 100644 index 00000000..c5926d96 --- /dev/null +++ b/src/.gitignore @@ -0,0 +1,2 @@ +client +dbg diff --git a/techdoc/.gitignore b/techdoc/.gitignore new file mode 100644 index 00000000..1abc35ad --- /dev/null +++ b/techdoc/.gitignore @@ -0,0 +1,4 @@ +* +!Makefile +!*.pod +!.gitignore -- 2.43.0