From owner-freebsd-questions Fri Jan 17 15:51:48 2003 Delivered-To: freebsd-questions@freebsd.org Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125]) by hub.freebsd.org (Postfix) with ESMTP id AF8FD37B401 for ; Fri, 17 Jan 2003 15:51:45 -0800 (PST) Received: from geneva.dli.net (imx2.dli.net [140.237.59.13]) by mx1.FreeBSD.org (Postfix) with ESMTP id EE56743F3F for ; Fri, 17 Jan 2003 15:51:44 -0800 (PST) (envelope-from ken.koyabu@dli.net) Received: from iscan3.dli.net (iscan3.dli.net [140.237.59.17]) by geneva.dli.net (8.9.1/8.9.1) with SMTP id QAA67284 for ; Fri, 17 Jan 2003 16:39:38 -0800 (PST) Received: from 140.237.59.10 by iscan3.dli.net (InterScan E-Mail VirusWall NT); Fri, 17 Jan 2003 15:51:44 -0800 Received: from athens.mea.com (relay.mea.com [140.237.254.4] (may be forged)) by munich.dli.net (8.9.1/8.9.1) with ESMTP id PAA39923 for ; Fri, 17 Jan 2003 15:54:33 -0800 (PST) Received: from dliexc00.dli.net ([140.237.252.21]) by athens.mea.com (8.9.1/8.9.1) with ESMTP id QAA70565 for ; Fri, 17 Jan 2003 16:09:39 -0800 (PST) Received: by DLIEXC00 with Internet Mail Service (5.5.2653.19) id ; Fri, 17 Jan 2003 15:48:28 -0800 Message-ID: <953B9655BA44D5119D1E00508BE27C155AC2F6@DLIEXC00> From: "Koyabu, Ken" To: "'questions@FreeBSD.org'" Cc: "Koyabu, Ken" Subject: Question Regarding Kerberos Date: Fri, 17 Jan 2003 15:48:20 -0800 MIME-Version: 1.0 X-Mailer: Internet Mail Service (5.5.2653.19) Content-Type: text/plain; charset="iso-8859-1" Sender: owner-freebsd-questions@FreeBSD.ORG Precedence: bulk List-ID: List-Archive: (Web Archive) List-Help: (List Instructions) List-Subscribe: List-Unsubscribe: X-Loop: FreeBSD.ORG Hi, I need some help. I'm running FreeBSD 4.5-RELEASE version. I ported the following perl script from the system running FreeBSD 2.2.7-RELEASE. (the perl script works fine on FreeBSD 2.2.7.) But, when I execute this perl script on FreeBSD 4.5, it fails with the following messages: open2: exec of socket 140.237.253.1 23 failed at /opr/get line 23 I'm using stable perl 5.6.1 on FreeBSD 4.5 server. Here is the actual perl script which I'm trying to run: ---------------------------------------------------------------------------- --------------------------------- #!/usr/local/bin/perl use FileHandle; use IPC::Open2; require 'getopt.pl'; do Getopt("s"); $line=1; $skip_to = $opt_s; while(<>) { chop; next if /^#/; next if /^\s*$/; ($name,$ip,$login,$pass,$pass2) = split; next if $line++ < $skip_to; print "$name\n"; $pid = open2 ( \*TELNET_IN , \*TELNET_OUT, "socket $ip 23" ); <<< FAILED AT THIS LINE #23 sleep 10; # give it some time to connect to the host print TELNET_OUT $login,"\n"; sleep 10; # wait for response print TELNET_OUT "$pass\n"; sleep 10; and so on................ ---------------------------------------------------------------------------- --------------------------------- When I tried to telnet to one of Cisco router, I got this messages which I do not see when I telnet from older version of FreeBSD server. login: Kerberos: No default realm defined for Kerberos! I could still manually telnet & logged on the router, but I never saw "Kerberos" message at telnet login before with older FreeBSD. The reason socket can not be executed from this perl scrip is...because of "kerberos"? I may installed Kerberos option at installation time, but I don't think I turned on kerberos for authentication. I really do not need kerberos, so I would like to turn it off if it's possible, and I need to make this perl script to work on FreeBSD 4.5 environment. I would really appreciate your help. Regards, Ken To Unsubscribe: send mail to majordomo@FreeBSD.org with "unsubscribe freebsd-questions" in the body of the message