}
print "\n";
printf("byte 22: 0x%x\n", ord($board[22]));
-$board[22] = chr(ord($board[22]) | 0x3);
-printf("byte 22: 0x%x\n", ord($board[22]));
-my $boarddesc_new = encode_base64(join('',@board));
-chomp($boarddesc_new);
-print "BOARD_DESCRIPTION: ${boarddesc64} -> ${boarddesc_new}\n";
-#AQFQAAAAAAAAAAAAiAKsAdAFAABqOgAABgABAAAAAAA=
showprop("FP_REMOTE_POWER");
showprop("FP_REMOTE_BOOT");
#$reqstr='<?xml version="1.0"?><?RMCXML version="1.0"?><RMCSEQ><REQ CMD="boardpropset"><BPROP NAME="BOARD_DESCRIPTION"><VAL>'.$boarddesc_new.'</VAL></BPROP></REQ></RMCSEQ>';
#print $reqstr."\n";
#print Dumper(_req($reqstr));
-setprop("BOARD_DESCRIPTION", $boarddesc_new);
#serveraction("hardreset");
serveraction("powerup");