===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2006/08/23 01:37:20	1.11
+++ trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2006/08/31 22:29:53	1.12
@@ -1,5 +1,5 @@
 package Net::Telnet::Trango;
-# $RedRiver: Trango.pm,v 1.10 2006/07/31 22:16:52 andrew Exp $
+# $RedRiver: Trango.pm,v 1.11 2006/08/23 00:37:20 andrew Exp $
 use strict;
 use warnings;
 use base 'Net::Telnet';
@@ -466,6 +466,38 @@
                      $su . ' ' . 
                      $new_pass . ' ' . 
                      $new_pass,
+                     expect => $success,
+                    );
+}
+
+=pod
+
+=item su_ipconfig
+
+C<su_ipconfig( 'suid', 'new_ip', 'new_subnet', 'new_gateway' )>
+
+=cut
+
+sub su_ipconfig
+{
+	my $self        = shift;
+
+	my $suid        = shift;
+	my $new_ip      = shift;
+	my $new_subnet  = shift;
+	my $new_gateway = shift;
+
+	return undef unless $suid =~ /^\d+$/;
+	return undef unless $new_ip;
+	return undef unless $new_subnet;
+	return undef unless $new_gateway;
+		
+	# su ipconfig <suid> <new ip> <new subnet> <new gateway>
+	return $self->cmd(String => 'su ipconfig ' . 
+                     $suid       . ' ' . 
+                     $new_ip     . ' ' . 
+                     $new_subnet . ' ' . 
+                     $new_gateway,
                      expect => $success,
                     );
 }