1 --- feeder-0.99/usr/bin/feed2inn~ Sat Apr 22 11:43:37 2000
2 +++ feeder-0.99/usr/bin/feed2inn Tue Aug 6 23:17:19 2002
4 my $INNXMIT = "/usr/bin/innxmit";
5 my $NNTPSERVER = "localhost";
7 -my $DIR = '/var/spool/news/feeder';
8 +my $DIR = '/var/spool/feeder';
11 my $ARTICLES = "$TMP/articles";
12 --- feeder-0.99/usr/bin/suckem_perl~ Tue May 9 13:08:44 2000
13 +++ feeder-0.99/usr/bin/suckem_perl Sat Oct 5 07:38:19 2002
21 -my $REMOTE_ADDR = 'http://www.media-com.com.pl/~radecki/'; # na koncu _musi_ byæ '/'
22 +my $REMOTE_ADDR = 'http://www.karnet.pl/newsy/'; # na koncu _musi_ byæ '/'
24 -my $MAINDIR = '/var/spool/news/feeder'; # a tu bez '/'!
25 +my $MAINDIR = '/var/spool/feeder'; # a tu bez '/'!
26 my $RECEIVED = "$MAINDIR/received";
27 my $GRUPY = "$MAINDIR/groups";
31 getopts('dq', \%args); #debug, quiet
39 my $termios = new POSIX::Termios;
41 my $ospeed = $termios->getospeed;
42 - $terminal = Tgetent Term::Cap { TERM => undef, OSPEED => $ospeed };
43 - $terminal->Trequire(qw/ce ku kd/);
44 +# $terminal = Tgetent Term::Cap { TERM => undef, OSPEED => $ospeed };
45 +# $terminal->Trequire(qw/ce ku kd/);
46 # $terminal->Tputs('r1',1, *STDOUT);
50 my $start_time = time();
52 my $curr_time = time() - $start_time;
55 - $terminal->Tgoto('cm', 0, 0, *STDOUT);
56 +# $terminal->Tgoto('cm', 0, 0, *STDOUT);
57 + print `tput cup 0 0`;
58 for my $l (0..$maxclients-1) {
59 - $terminal->Tputs('ce', 1, *STDOUT);
60 +# $terminal->Tputs('ce', 1, *STDOUT);
62 + print `tput cup $l 0`;
64 if (defined(@{$clients[$l]}[0])) {
65 print $l+1, "+ ", @{$clients[$l]}[0],
66 ".", @{$clients[$l]}[1], "\n";
67 } else {print "$l-\n"}
70 print "[", '#' x $i, ' ' x (50 - $i) , "]\n";
71 - $terminal->Tputs('ce', 1, *STDOUT);
73 + #$terminal->Tputs('ce', 1, *STDOUT);
74 print "Elapsed time: ", $curr_time, " sec,\tAverage speed: ", ($curr_time == 0) ? 0:int($global_size/($curr_time+1)),
75 " Bps,\tTotal size: ", int($global_size/1024)," kB\n";
78 if ($i) {warn "B³±d w czasie pobierania pliku, ponawiam próbê\n"}
82 my $sokecik=IO::Socket::INET->new(PeerAddr => "$remote_server", PeerPort => 80,
83 Timeout => 15, Proto => 'tcp');
84 - $sokecik->print("GET $remote_dir$_[0] HTTP/1.0\n\n");
85 +# $sokecik->print("GET $remote_dir$_[0] HTTP/1.0\n\n");
86 + $sokecik->print("GET $remote_dir$_[0] HTTP/1.1\n");
87 + $sokecik->print("Host: $remote_server\n\n");
88 +# print "$remote_server, $remote_dir $_[0]";
89 my $line = <$sokecik>;
91 $line =~ /^\S+\s+(\d+)/;