#!/us/bin/perl                                                                                                                                                                                                                                                                    

use strict;
use warnings;

use DBI;
use LWP::UserAgent;

sub get_serialno {
  my $dbh = DBI->connect("DBI:mysql:database=stuff;host=localhost", "woo", "hoo", {'RaiseError' => 1}) || die "Error: " . DBI->errstr;
  my $sth = $dbh->prepare("SELECT serialno FROM appliances");
  $sth->execute();
  my $sn;
  my $ref = $sth->fetchall_arrayref();
  foreach my $result (@$ref) {
    $sn .= $result->[0];
  }
  return $sn;
  $sth->finish();
  $dbh->disconnect();
}

my $asyncos = shift || die "Usage: imagefetch.pl <version number>-<build>\n";
my ($version, $build) = split /-/, $asyncos;
(my $mversion = $version) =~ s/\./-/g;

my $urlpart = "http://downloads.ironport.com/asyncos/upgrade/asyncos-$mversion.ipup?requested_version=phoebe-$mversion-$build&serial=";
my $snpart = get_serialno;
my $url = $urlpart . $snpart;

print $url;

print "\n\n";