#!/usr/bin/perl
#
# DNIP ip update utility (perl)
#
# Author : hollywar <hollywar@mail.holywar.net>
# $Date: 2000/12/22 03:32:59 $
#
# $Revision: 1.6 $
#
# Usage : Change the 'ID', 'PASSWORD' to your own one
#         and just run this script.
#
# If you want to set your ip address directly, 
# change the 'AUTO' to your real ip address in ADDRESS section.
# (ex. ADDRESS="0.0.0.0")
#
# Free Dynamic Domain Name Server Service DNIP.NET (http://www.dnip.net)
#

use Socket ;

$ID="ID" ;
$PASSWORD="PASSWORD" ;
$ADDRESS="AUTO" ;


$REMOTE="www.dnip.net" ;
$PORT="80" ;

$iaddr = inet_aton($REMOTE) ;
$paddr = sockaddr_in($PORT,$iaddr) ;
$proto = getprotobyname('tcp') ;
socket(SOCK,PF_INET,SOCK_STREAM,$proto) ;
connect(SOCK,$paddr) ;

$msg = "GET /update.cgi?id=$ID&password=$PASSWORD&step=2&address=$ADDRESS HTTP/1.0\n" . "User-Agent: DNIP PERL/0.1\n\n" ; 

send(SOCK,$msg,0) ;

while($line = <SOCK>) {
    if ($check==1) { print "$line" ;}
    if ($line =~ /^.*Content-Type/) {$check = 1 ; }
}

close(SOCK) ;

1 ;

#
# $Id: update_perl.sh,v 1.6 2000/12/22 03:32:59 tsoi Exp $
#