feeder-0.99-url_n_notermcap.patch

   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
   3 @@ -21,7 +21,7 @@
   4  my $INNXMIT    = "/usr/bin/innxmit";
   5  my $NNTPSERVER = "localhost";
   6
   7 -my $DIR                = '/var/spool/news/feeder';
   8 +my $DIR                = '/var/spool/feeder';
   9
  10  my $TMP                = "$DIR/tmp";
  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
  14 @@ -32,11 +32,12 @@
  15  use Getopt::Std;
  16  use IO::Socket;
  17  use IO::Handle;
  18 +use Term::Cap;
  19  use Symbol;
  20
  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æ '/'
  23
  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";
  28  my $maxclients = 5;
  29 @@ -45,16 +46,18 @@
  30
  31  getopts('dq', \%args); #debug, quiet
  32
  33 -my $terminal;
  34 +#my $terminal;
  35 +
  36  if (! $args{q}) {
  37         use Term::Cap;
  38         require POSIX;
  39         my $termios = new POSIX::Termios;
  40         $termios->getattr;
  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);
  47 +       print `tput clear`;
  48  }
  49
  50  my $start_time = time();
  51 @@ -256,16 +259,22 @@
  52         my $curr_time = time() - $start_time;
  53
  54         if (! $args{q}) {
  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);
  61 +               print `tput cup 1`;
  62 +               print `tput cup $l 0`;
  63 +               print `tput ce`;
  64                         if (defined(@{$clients[$l]}[0])) {
  65                                 print $l+1, "+ ", @{$clients[$l]}[0],
  66                                 ".", @{$clients[$l]}[1], "\n";
  67                         } else {print "$l-\n"}
  68 +                       print "\n";
  69                 }
  70         print "[", '#' x $i, ' ' x (50 - $i) , "]\n";
  71 -       $terminal->Tputs('ce', 1, *STDOUT);
  72 +       print `tput el`;
  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";
  76         }
  77 @@ -278,9 +287,13 @@
  78                 if ($i) {warn "B³±d w czasie pobierania pliku, ponawiam próbê\n"}
  79                 @wynik = eval {
  80                         local $/="\r\n";
  81 +                       print "$_[0]";
  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>;
  90                         my $status;
  91                         $line =~ /^\S+\s+(\d+)/;
  92 @@ -298,4 +311,3 @@
  93  }
  94
  95  #EOF
  96 -