- or download this
my $s = Net::Appliance::Session->new({
personality => "FreeBSD411",
...
finally {
$s->close;
};
- or download this
prompt user
match /[Uu]sername: $/
...
send ''
# send terminal length %s
- or download this
......
[ 0.589068] di queueing data for send: ""
...
Sorry
[user1@freebsd411 /]$
..............................
- or download this
$s->begin_privileged({$su_pass}); ## I don't know how to call/use
+ this ;) or Doesn't work ?
- or download this
110 $self->prompt_looks_like('privileged')
111 or die 'should be in privileged mode but prompt does not ma
+tch';
112 $self->in_privileged_mode(1);