Select Code to Download

Select or download this

      $all_ap{$_}->{'webloginpostdata'} = {
                'var:main' => 'menu',
...
                'var:connecting1' => '0'
            };

Select or download this

      $all_ap{$_}->{'webadminpostdata'} = {
              'var:main' => 'menu',
...
              'settings/idle_timeout' => '30'
        };

Select or download this

my $login_status = loginweb($all_ap{$_}->{'webloginurl'}, $all_ap{$_}-
+>{'webloginpostdata'});
if ($login_status eq 'success'){
...
      print "New login created:\n\t username: $all_ap{$_}->{'webuser'}
+ \n\t password: $all_ap{$_}->{'webpass'}\n";
    }

Select or download this
```
sub loginweb{

...

}
```
Select or download this
```
sub changewebpass{
...

}
```

Select or download this

my %webloginpostdata = (...);
my %webadminpostdata = (...);
...
<code>

loginweb(\%webloginpostdata)