実践で学ぶ、一歩進んだサーバ構築・運用術

     1  #! /usr/bin/perl
     2  $PROXY_TELNET = "proxy.klab.org";
     3  $PROXY_PORT = 23;
     4  $Verbose = 0;
     5  
     6  while ($_ = shift) {
     7      last if ! /^-(.*)/;
     8      if ($1 =~ /^v+$/) { $Verbose += length($&); next; }
     9      print< 
    11  Options:
    12      -v    Verbose mode
    13  EOF
    14  }
    15  $HOST = $_;
    16  if ($_ = shift) {
    17      $PORT = $_;
    18  } else {
    19      $PORT = 23;
    20  }
    21  print "Verbose Level: $Verbose\n" if $Verbose;
    22  
    23  use Socket;
    24  ($name, $aliases, $proto) = getprotobyname('tcp');
    25  ($name, $aliases, $type, $len, $thataddr) = gethostbyname($PROXY_TELNET);
    26  $that = sockaddr_in($PROXY_PORT, $thataddr);
    27  socket(S, PF_INET, SOCK_STREAM, $proto) || die "socket: $!";
    28  connect(S, $that) || die "connect: $!";
    29  
    30  if ($Verbose > 1) {
    31      $Rin = &fhbits('STDIN S');
    32  } else {
    33      $Rin = &fhbits('S');
    34  }
    35  &login;
    36  &connect;
    37  exit 0;
    38  
    39  # login 処理
    40  sub login {
    41      do { &receive(0.1); } until (/name:/);
    42      &send("sengoku\r");
    43      do { &receive(0.1); } until (/word:/);
    44      &send("########\r");
    45      do { &receive(0.1); } until (/proxy>/);
    46      &send("c $HOST $PORT\r");
    47      do { &receive(0.1); } until (/\.\.\.\n/);
    48      $Raw =~ m/\.\.\.[\r\n]+/;
    49      $Raw = $';
    50  }
    51  
    52  # connect
    53  sub connect {
    54      my($rout,$len);
    55      print "CONNECT\n" if $Verbose;
    56      $Rin = &fhbits('STDIN S');
    57      syswrite(STDOUT,$Raw,length($Raw));
    58      while ((select($rout=$Rin,undef,undef,undef))[0]) {
    59          if (vec($rout,fileno(S),1)) {
    60              $len = sysread(S,$_,1024);
    61              return if $len <= 0;        # EOF
    62              syswrite(STDOUT,$_,$len);
    63          }
    64          if (vec($rout,fileno(STDIN),1)) {
    65              $len = sysread(STDIN,$_,1024);
    66              return if $len <= 0;        # EOF
    67              syswrite(S,$_,$len);
    68          }
    69      }
    70  }
    71  
    72  # send(str);  str を送る
    73  sub send {
    74      undef $Buffer;
    75      undef $Raw;
    76      while( $_ = shift ) {
    77          print if $Verbose > 2;
    78          syswrite(S,$_,length);
    79      }
    80  }
    81  
    82  # receive(s);  s 秒入力が途絶えるまで待つ
    83  sub receive {
    84      my($timeout) = shift;
    85      my($rout);
    86      while ((select($rout=$Rin,undef,undef,$timeout))[0]) {
    87          if (vec($rout,fileno(S),1)) {
    88              exit 1 if sysread(S,$_,1024) <= 0;          # EOF
    89              $Raw .= $_;
    90              tr/\r\000\012\021\023\032/\n/d;
    91              $Buffer .= $_;
    92              print if $Verbose > 1;
    93          }
    94          if (vec($rout,fileno(STDIN),1)) {
    95              exit 1 if sysread(STDIN,$_,1024) <= 0;      # EOF
    96              s/\n/\r/g;
    97              syswrite(S,$_,length);
    98          }
    99      }
   100      $_ = $Buffer;
   101  }
   102  
   103  sub fhbits {
   104      my(@fhlist) = split(' ',$_[0]);
   105      my($bits);
   106      for (@fhlist) {
   107          vec($bits,fileno($_),1) = 1;
   108      }
   109      $bits;
   110  }