#!/usr/bin/perl -w -T
use strict;

use CGI;
my $cgi = new CGI;

use File::Basename;
use Cwd 'abs_path';     # aka realpath()

print "Content-type: text/plain\n\n";

my $thisdir=abs_path(dirname($0));
my $thisscript=basename($@);

my $server_name = $ENV{"SERVER_NAME"} || "linux.dell.com";
my $request_path = $ENV{"SCRIPT_NAME"} || "/repo/firmware/$thisscript";
my $firmware_repo = dirname($request_path);
my $base_repo = dirname($firmware_repo);
my $hardware_repo = "$base_repo/hardware";

my $fd;
open $fd, "$thisdir/_tools/bootstrap.sh" or die "#oops...";
while(<$fd>)
{
    s|^SERVER=.*|SERVER="http://$server_name"|;
    s|^REPO_URL=.*|REPO_URL="$firmware_repo"|;
    print $_;
}
close($fd);