bugfix: Make get_model return model of device instead of board type

Fixes the fact that get_model has done the same as other functions.

This probably always should of been a real model of active device
not just of the hardware type from the begining.

DEV NOTE:
This is in perl, even though we intended to migrate to LUA the
core library that contains this data has yet to be migrated
so we need to add this as a perl program.

Change-Id: Ib8a4ea6dd881c32e6d7660607576aeb5218b1e7a

files/usr/local/bin/get_model

@@ -1,11 +1,46 @@
-#!/bin/sh
+#!/usr/bin/perl -w -I/www/cgi-bin
-#CMLARA:  Temporary shell script for ar71xx platform models
+=for commnet
-# Return the model of the device
 
-if [ ! -f /tmp/sysinfo/model ]; then
+  Part of AREDN -- Used for creating Amateur Radio Emergency Data Networks
-  . /lib/functions.sh
+  Copyright (C) 2016 Conrad Lara
-  . /lib/ar71xx.sh
+   See Contributors file for additional contributors
-  ar71xx_board_detect
-fi
 
-cat /tmp/sysinfo/model
+  This program is free software: you can redistribute it and/or modify
+  it under the terms of the GNU General Public License as published by
+  the Free Software Foundation version 3 of the License.
+
+  This program is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+  Additional Terms:
+
+  Additional use restrictions exist on the AREDN(TM) trademark and logo.
+    See AREDNLicense.txt for more info.
+
+  Attributions to the AREDN Project must be retained in the source code.
+  If importing this code into a new or existing project attribution
+  to the AREDN project must be added to the source code.
+
+  You must not misrepresent the origin of the material conained within.
+
+  Modified versions must be modified to attribute to the original source
+  and be marked in reasonable ways as differentiate it from the original
+  version.
+
+=cut
+
+use perlfunc;
+
+$boardinfo = hardware_info();
+
+if ( exists $boardinfo->{'name'} ) {
+    print ("$boardinfo->{'name'} \n");
+} else {
+    # This should never happen
+    print ("Unknown Hardware");
+}