#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;
my $PROC_CPUINFO = "/proc/cpuinfo";

my %data;
$data{Beta} =["Q1 2012","B (Beta)","?","256 MB","Beta Board"];
$data{"0002"} =["Q1 2012","B","1.0","256 MB"];
$data{"0003"} =["Q3 2012","B (ECN0001)","1.0","256 MB","Fuses mod and D14 removed"];
$data{"0004"} =["Q3 2012","B","2.0","256 MB","(Mfg by Sony)"];
$data{"0005"} =["Q4 2012","B","2.0","256 MB","(Mfg by Qisda)"];
$data{"0006"} =["Q4 2012","B","2.0","256 MB","(Mfg by Egoman)"];
$data{"0007"} =["Q1 2013","A","2.0","256 MB","(Mfg by Egoman)"];
$data{"0008"} =["Q1 2013","A","2.0","256 MB","(Mfg by Sony)"];
$data{"0009"} =["Q1 2013","A","2.0","256 MB","(Mfg by Qisda)"];
$data{"000d"} =["Q4 2012","B","2.0","512 MB","(Mfg by Egoman)"];
$data{"000e"} =["Q4 2012","B","2.0","512 MB","(Mfg by Sony)"];
$data{"000f"} =["Q4 2012","B","2.0","512 MB","(Mfg by Qisda)"];
$data{"0010"} =["Q3 2014","B+","1.0","512 MB","(Mfg by Sony)"];
$data{"0011"} =["Q2 2014","Compute Module 1","1.0","512 MB","(Mfg by Sony)"];
$data{"0012"} =["Q4 2014","A+","1.1","256 MB","(Mfg by Sony)"];
$data{"0013"} =["Q1 2015","B+","1.2","512 MB","?"];
$data{"0014"} =["Q2 2014","Compute Module 1","1.0","512 MB","(Mfg by Embest)"];
$data{"0015"} =["?","A+","1.1","256 MB / 512 MB","(Mfg by Embest)"];
$data{"a01040"} =["Unknown","2 Model B","1.0","1 GB","(Mfg by Sony)"];
$data{"a01041"} =["Q1 2015","2 Model B","1.1","1 GB","(Mfg by Sony)"];
$data{"a21041"} =["Q1 2015","2 Model B","1.1","1 GB","(Mfg by Embest)"];
$data{"a22042"} =["Q3 2016","2 Model B (with BCM2837)","1.2","1 GB","(Mfg by Embest)"];
$data{"900021"} =["Q3 2016","A+","1.1","512 MB","(Mfg by Sony)"];
$data{"900032"} =["Q2 2016","B+","1.2","512 MB","(Mfg by Sony)"];
$data{"900092"} =["Q4 2015","Zero","1.2","512 MB","(Mfg by Sony)"];
$data{"900093"} =["Q2 2016","Zero","1.3","512 MB","(Mfg by Sony)"];
$data{"920093"} =["Q4 2016","Zero","1.3","512 MB","(Mfg by Embest)"];
$data{"9000c1"} =["Q1 2017","Zero W","1.1","512 MB","(Mfg by Sony)"];
$data{"a02082"} =["Q1 2016","3 Model B","1.2","1 GB","(Mfg by Sony)"];
$data{"a020a0"} =["Q1 2017","Compute Module 3 (and CM3 Lite)","1.0","1 GB","(Mfg by Sony)"];
$data{"a22082"} =["Q1 2016","3 Model B","1.2","1 GB","(Mfg by Embest)"];
$data{"a32082"} =["Q4 2016","3 Model B","1.2","1 GB","(Mfg by Sony Japan)"];

sub slurp {
    my $file = shift;
    open my $fh, '<', $file or die "Failed to open file: \"$file\"";
    local $/ = undef;
    my $cont = <$fh>;
    close $fh;
    return $cont;
}


sub get_pi_revision(){
        my $cpuinfo = slurp($PROC_CPUINFO);
        my ($revision) = ($cpuinfo =~ /Revision\s*:\s(.*?)\n/);
        return $revision;
}


my $rev =  get_pi_revision();
print $data{$rev}[1]."\n";