Valaszolnatok nehany kerdesemre?
Peldaul,hogy a localhost-ot mire vagy miert kell megvaltoztatni?

Mit kell atirni a /etc/postfix/main.cf-ben
azonkivul ,hogy a localhost-ot?

[root@localhost Regi my Ip]# /etc/ppp/ip-up
Hiba  Nem adtál meg felhasználónevet !
postfix: warning: My hostname localhost is not a fully qualified name – set myhostname or mydomain in /etc/postfix/main.cf
postqueue: warning: My hostname localhost is not a fully qualified name – set myhostname or mydomain in /etc/postfix/main.cf
[root@localhost Regi my Ip]#

Az ark-al megnyitottam enis bar eddig a config parameteres dolgokig az ;mc ; vel is eljutottam

#!/usr/bin/perl -w

#===============================================================================
# Configurációs paraméterek. 
#

my $USERNAME = ”;  # kamucim , subdomain
my $PASSWORD = ”;  # kamujelszo
my $DOMAIN = ”;    # myip.hu (pl. myip.hu)
my $PROXY = ”;                  # proxy szerver beállítása  (ha használsz ilyet)
                                  # pl.: my $PROXY=’proxy.szolgaltatom.hu’;
my $PROXY_PORT = ”;              # proxy portja
                                  # pl.: my $PROXY_PORT=’3128′;

#===============================================================================
# Ne vátoztass semmit inentõl hacsak nem tudod mit csinálsz 🙂
#

use IO::Socket;
use Sys::Syslog qw/:DEFAULT setlogsock/;
use File::Basename;
use POSIX qw/setsid/;
use strict;

my($Server) = ‘www.myip.hu’;
my($ServerPort) = 80;
my($URI) = ‘http://myip.hu/update/updateip.phtml’;

if ($PROXY && $PROXY_PORT){
    $Server = $PROXY;
    $ServerPort = $PROXY_PORT;
}
open STDERR, ‘>>/dev/null’ or die „Can’t write to /dev/null: $!”;

my($exit) = 0;
my($proto) = getprotobyname(‘udp’);
my($program) = basename($0);
my($port, @addr, $new_ip,$old_ip, $MYIP, $pid, $action);

socket(SOCKET, PF_INET, SOCK_DGRAM, $proto);
setlogsock( ‘unix’ );

openlog($program, ‘cons,pid’, ‘user’);

connect(SOCKET, sockaddr_in(0, inet_aton(‘27.0.0.1’)));
($port, @addr) = unpack_sockaddr_in(getsockname(SOCKET));
$new_ip = join(„n”, map {inet_ntoa($_)} @addr);

# tcp kapcsolat nyitása a myip.hu webszerverhez
$MYIP = new IO::Socket::INET (
Proto=>’tcp’,
PeerAddr=>$Server,
PeerPort=>$ServerPort,
Reuse=>1 ) || { error() };

$MYIP->autoflush(1);

# url elküldése
print($MYIP „GET $URI?user_name=$USERNAME&password=$PASSWORD&domain=$DOMAIN HTTP/1.0rnrn”);

# válasz feldolgozása
while (){
if (/^+OK(.*?d{1,3}.d{1,3}.d{1,3}.d{1,3})$/){
        # Felülírodott az IP ?
print(„$1n”);
syslog(‘notice’, „$1n”);
}
elsif (/^-ERR(.*?)$/){
        syslog(‘crit’, „HIBA: $1 n”);
        print „Hiba $1 n”;
        closelog();
exit($exit);
    }
}
close ($MYIP);
closelog();

sub error{
    print(„Sikertelen csatlakozás a $Server szerverhez ! n”);
    syslog(‘crit’,”Sikertelen csatlakozás a $Server szerverhez ! n”);
    closelog();
    exit($exit);
}

szoval vegig csinaltam aztis tobbszor amia readme benvan.
a cron-ba orankenti frisstiest kertem .
Igysem megy:-)

rpm -q perl
vagy ha osszes perles csomagra vagy kivancsi:
rpm -qa | grep perl

Muxik:-)
[root@localhost root]# rpm -q perl
perl-5.8.5-3mdk
[root@localhost root]# rpm -qa | grep perl
perl-Digest-HMAC-1.01-11mdk
perl-XML-Parser-2.34-2mdk
perl-Term-ReadKey-2.21-4mdk
perl-Gnome2-Vte-0.04-1mdk
perl-Mysql-1.22_19-9mdk
perl-DB_File-1.810-1mdk
mod_perl-common-1.3.31_1.29-3mdk
perl-File-Tail-0.98-5mdk
perl-Net-DNS-0.48-2mdk
perl-Gtk2-1.054-1mdk
perl-URI-1.31-3mdk
perl-Convert-ASN1-0.18-1mdk
perl-SDL-1.20.0-10mdk
perl-Image-Size-2.992-2mdk
perl-5.8.5-3mdk
perl-URPM-1.03-1mdk
perl-MailTools-1.62-1mdk
perl-Digest-SHA1-2.10-1mdk
perl-HTML-Tagset-3.03-7mdk
perl-HTML-Parser-3.36-1mdk
perl-IO-Tty-1.02-9mdk
perl-Net-Jabber-1.30-1mdk
perl-Expect-1.15-6mdk
perl-Crypt-SSLeay-0.51-4mdk
perl-Mail-SpamAssassin-3.0.0-1mdk
perl-Carp-Clan-5.3-1mdk
perl-DateManip-5.42a-1mdk
perl-Net_SSLeay-1.25-3mdk
HTML-Embperl-1.3.31_1.3.6-3mdk
perl-base-5.8.5-3mdk
perl-MDK-Common-1.1.18-1mdk
perl-Glib-1.054-1mdk
perl-Libconf-0.33-2mdk
perl-XML-Stream-1.21-2mdk
perl-MIME-Lite-3.01-5mdk
perl-SOAP-Lite-0.60-0.a.2mdk
perl-DBI-1.43-2mdk
perl-Bit-Vector-6.3-4mdk
perl-Devel-Symdump-2.03-4mdk
perl-BSD-Resource-1.24-1mdk
perl-Tk-804.027-2mdk
perl-Authen-PAM-0.14-4mdk
perl-Mail-Sendmail-0.79-3mdk

Amikor frissíteni akarod az IP cím, DNS név összerendelést, csak add ki a „myip” parancsot.

Automatizálás: gép minden egyes indulásakor elinduljon:
beteszel egy rámutató simlinket az indítópultba, vagy egy bejegyzést a valamelyik szkriptbe.

cronba teszem 10 perces frissitessel szerintem koszonom szepen a segitseget .Most sjana nem tidom kiprobalni de holnapra megmondom mit sikerult ossze hoznom:-)
Megegyszer koszi szepen:-)