+ my @dontsave = qw(ENABLE_LAN_AUTONEG ENABLE_LAN_100 ENABLE_LAN_FDUPLEX
+ GATEWAY IP_ADDRESS NETMASK TFTP_FIRMWARE_FILE TFTP_ADDR_FIRMWARE
+ ENABLE_DHCP MAC_ADDRESS LAST_CARD_NAME LAST_ENABLE_DHCP LAST_GATEWAY
+ LAST_IP_ADDRESS LAST_NETMASK);
+
+ open (SAVEFILE, ">${save}") || die "Error opening save-file: $!\n";
+ print STDERR "saving" if (!$verbose);
+ foreach my $ts (@fw_vars) {
+ next if (grep(/^${ts}$/, @dontsave));
+
+ my $phash = _getprop($ts)->{RESP}->{PROPLIST}->{PROP};
+ next if ($phash->{PERMS} ne 'RW');
+
+ print SAVEFILE "${ts}=".$phash->{VAL}."\n";
+ print STDERR "." if (!$verbose);
+ }
+ close(SAVEFILE);
+ print STDERR "done\n" if (!$verbose);