Text 10533, 93 rader
Skriven 2007-08-19 11:57:54 av Alexey Vissarionov (2:5020/545)
  Kommentar till text 10506 av Gert Koefoed Andersen (2:236/150)
Ärende: Program for 64bit to gate
=================================
Good ${greeting_time}, Gert!

18 Aug 07 15:11, you wrote to me:

 GA>>> I have to find out a way of getting some list mails and gate soem
 GA>>> echoes form one net to another by 64bit linux system, and it is not
 GA>>> fidogate while this is not working to be compiled on a 64-bit
 GA>>> system. So the linux program should do 2-3 functions.
 GA>>> 1. gate echos from 1 network to another and use to change Tag name
 GA>>> from one to another.
 AV>> HPT built with perl support. Excellent for a node system.
 GA> Yes but just the way to let it gate from 2-3 net and rename the tags
 GA> for the choosed nets own tags.

Quoting my /home/fido/lib/filter.pl :

sub filter()
{
 &vsue;
}

sub vsue()
{
 my @ccwords=
 (
# a list of regular expressions to catch
 );
 my $msgtext=$text;
 $msgtext =~ s/SEEN-BY.*//g;
 for my $ccword(@ccwords)
 {
  if ($msgtext =~ /$ccword/i)
  {
   &w_log(9,"vsue: Found a message from " . $fromname . " in " . $area);
   putMsgInArea( "VSUE",$fromname,$toname,
                $fromaddr,$toaddr,$subject,
                "","Loc",$text,1);
   last;
  }
 }
 return "";
}

Changing this to:

my $gated_area = "GATED." . $area; # or any other modification

putMsgInArea($gated_area,$fromname,$toname,$fromaddr,$toaddr,
             $subject,"","Loc",$msgtext,1);

will do the right thing.

 GA>>> 2. get connect to list server UseNet and put in the messages to a
 GA>>> UseNet to a system network and give it the rigth FTN Tag name and
 GA>>> newgrp + list name.
 AV>> Explain this...
 GA> To find and connect to a both a listserver for about several special
 GA> lists

Lists which are distributed via e-mail?

 GA> and too connect to UseNet and get soem of the echoes this way
 GA> and have them made to echoes on zone 900's echoes.

Newsgroups via NNTP?

For both of these, create a technical point address at your node and install
fidogate there. You even won't need the following perl code:

 GA>>> 3. get echoes by newsgroup and change the newsgroup name to a
 GA>>> another name for users use. and maybe could make some mail packs to
 GA>>> a node know on fido system.
 AV>> #!/usr/bin/perl
 AV>> my $nntphost="news.example.net";
 AV>> my $server, $reply;
 AV>> socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp')) || die
 AV>> ("$!");
 AV>> $server = sockaddr_in(119, inet_aton($nntphost));
 AV>> connect(SOCK, $server) || die ("$!");
 AV>> select(SOCK); $| = 1; select(STDOUT); # flush handles
 AV>> $reply = <SOCK>;
 AV>> die ("Bad reply from server") unless $reply =~ /^200/;
 AV>> print SOCK "GROUP local.test\n";
 AV>> $reply = <SOCK>;
 AV>> # etc.
 GA> Could be used it I thoose it this way by newsgroups.

I recommend using HPT on a node and FidoGate on a point for that.


... :wq!
--- /bin/vi
 * Origin: http://openwall.com/Owl/ru/ (2:5020/545)