#use strict;

##</code><code>##

    if ($imagefile =~ m/src=\"\//i) {
        $imagefile = "\/" . $';
    }
    elsif ($imagefile =~ m/src=\"/i) {
        $imagefile = $';
    }

##</code><code>##

$imagefile =~ s|src="/?||;

##</code><code>##

$imagefile =~ s|src="/?(.*)"$|/$1|;

##</code><code>##

    # check to see if this image file is in the eMedSample path
    if ($path =~ m/([a-zA-Z0-9\_\-\/])+MMS-Apps\/eMedSample/i) {
        $ImageFilePath = "MMS-Apps/eMedSample/WwwRoot" . $imagefile;
    }

##</code><code>##

$path =~ m{[\w/-]+MMS-Apps/eMedSample}i

##</code><code>##

use List::Util qw( first );

my @pattern_prefix = ( { pat => qr{{[\w/-]+MMS-Apps/eMedSample}i,
                         pre => 'MMS-Apps/eMedSample/WwwRoot', },
                       { pat => qr{...}i,
                         pre => '...' }, );

my $match = first { $path =~ $_->{pat} } @pattern_prefix;
$ImageFilePath = $match ? $match->{pre} . $imagefile
               : "Not sure what the path is here: $path\n";

##</code><code>##

# This function in addition to 
sub ReportFileFound {
    my ($filename, $imagefile, $linenum, $bBuildFilePath) = @_;

##</code><code>##

# call as ReportFileFound({ filename  => $fn,
#                           imagefile => $if,
#                           linenum   => $ln,
#                           bBuildFilePath => $bBFP, });
sub ReportFileFound {
   my $args_ref = shift;

# use $args_ref->{filename} for $filename

##</code><code>##

    my $aLength = $#FinalImageFileList + 1;

##</code><code>##

    my $aLength = scalar @FinalImageFileList;

##</code><code>##

        foreach $tmpImageFile (@FinalImageFileList) {
            
            #its not here so lets insert it...
            if ($tmpImageFile eq $ImagePath) {
                $bFound = 1;
                last;
            }

##</code><code>##

$bFound = scalar first { $_ eq $imagePath } @FinalImageFileList;

##</code><code>##

    open hFile, $filename or die "Failed to open $filename\n";

##</code><code>##

open hFile, '<', $filename
    or die "Can't read '$filename': $!\n";

##</code><code>##

        if ($line =~ m/src="([a-zA-Z0-9\_\-\/])+\.(gif|jp[e]?g|bmp)"/i) {
            $line = $&;
            ReportFileFound($saved_name, $line, $linenum, 1);
        }

##</code><code>##

        if ($line =~ m{(src="[\w/-]+\.(?:gif|jp[e]?g|bmp)")/i) {
            $line = $1;
            ReportFileFound($saved_name, $line, $linenum, 1);
        }

##</code><code>##

sub CheckForImageReferencesInSQL {
    my($server, $username, $password, $DB) = @_;
    use MSSQL::Sqllib;

##</code><code>##

    foreach $QueryResult (@QueryResult) {
        foreach $row (keys %$QueryResult) {

##</code><code>##

@ARGV = (".") unless @ARGV;

##</code><code>##

    unlink $g_logfile;

##</code><code>##

    or die "Can't unlink '$g_logfile': $!";

##</code><code>##

open hLOGFILE, ">>$g_logfile" or die "Could not open the file $g_logfile\n";

##</code><code>##

open hLOGFILE, '>>', $g_logfile
    or die "Could not append to '$g_logfile': $!\n";