#!/usr/bin/perl

use strict;
use Net::Telnet;

unless (@ARGV > 2) { exit 2; }

my $nasip = shift(@ARGV);
my $community = shift(@ARGV);
my $login = shift(@ARGV);

my ($user,$pass,$t);
($user,$pass)=split(/:/,$community,2);

$t = new Net::Telnet (Timeout => 5,
                      Errmode => "return",
#                     Dump_Log => '/tmp/telnet.log',
                     Prompt => '/> $/');
if ($t->errmsg){
    exit 24;
}
$t->open($nasip);
if ($t->errmsg){
    exit 24;
}
$t->login($user, $pass);
if ($t->errmsg){
    exit 24; #returns here with timeout in 3.13
}
$t->cmd("/interface pppoe-server");
$t->cmd("remove [find user=\"$login\"]");
$t->cmd("/quit");
$t->close();
exit 0;