#!/usr/bin/perl -w

##### CONFIGURATION: EDIT THESE LINES TO POINT TO YOUR FILES ##### 

$grpfile="/var/www/vhosts/famoussoftware.com/pfiles/groups";

$baseURL="http://$ENV{'HTTP_HOST'}";
$baseADDR="$baseURL/services_support/login";

$v5file="$baseADDR/software_updates_v5.html";
#$v5dos="$baseADDR/software_updates_v5dos.html";
#$v5unix="$baseADDR/software_updates_v5unix.html";
$v6file="$baseADDR/software_updates.html";

##### DO NOT EDIT ANY THING BELOW THIS LINE #####

open(GROUPS,$grpfile) or &loc_exit("Can't open $grpfile");
while (<GROUPS>) {
    ($loc_group, $loc_name) = split(/\:/,$_,2);
    trim($loc_name);
    if ($ENV{'REMOTE_USER'} eq $loc_name) {
       #if ($loc_group
        &redirect($v5file);
        &loc_exit;
        }
    } 
&redirect($v6file);
close(GROUPS);
&loc_exit;

#### SUB REDIRECT ####

sub redirect {
    print "Location: @_\n\n";
    }

#### END OF SUB REDIRECT ####

#### SUB TRIM ####

sub trim {
    $_[0] =~ s/^\s*(.*?)\s*$/$1/;
    return $_[0];
    }

#### END OF SUB TRIM ####

#### SUB LOC_EXIT ####

sub loc_exit {
    print "Content-type: text/html\n\n";
    print "@_";
    exit;
    }

#### END OF SUB LOC_EXIT ####