sub checkout_sse_file {
    my ($checkout_path, $filename) = @_;

    if($checkout_path !~ /[\/\\]$/) {
        $checkout_path .= '\\';
    }

    my $sspath= 'C:\Program Files (x86)\Microsoft Visual Studio\VSS\win32';

    $ENV{SSDIR}="\\\\servername\\dms-sourcesafe";

    my $cmd = "\"$sspath\\ss.exe\" Checkout \"\$/DMS MW/SCADA/Substation Editor Files/$filename\" -C- -I- -GL\"$checkout_path \"";
    #print "\n********************\n\$cmd=$cmd\n";
    # if the file is already there it doesn't download it again. 
    # BUT, it won't overwrite a file unless the read-only bit is set.

    system $cmd;
    return $? >> 8;
}

sub checkin_sse_file {
    my ($checkout_path, $filename, $comment) = @_;

    if($checkout_path !~ /[\/\\]$/) {
        $checkout_path .= '\\';
    }

    my $sspath= 'C:\Program Files (x86)\Microsoft Visual Studio\VSS\win32';

    $ENV{SSDIR}="\\\\servername\\dms-sourcesafe";

    my $cmd = "\"$sspath\\ss.exe\" Checkin \"\$/DMS MW/SCADA/Substation Editor Files/$filename\" -C\"$comment\" -I- -GL\"$checkout_path \"";
 
    system $cmd;
    return $? >> 8;
}