PRINT  'Server:' + @@SERVERNAME + ' Database:'+convert(nvarchar,DB_NAME ( )) ;

DECLARE @result int = 0;

IF EXISTS (SELECT 1 FROM [INFORMATION_SCHEMA].[TABLES] where TABLE_NAME in ('Flag') AND TABLE_SCHEMA='System')
EXEC sp_executesql N'SET @result=0;
SET @result = isnull((SELECT 1 FROM [System].[Flag] D WHERE Flag=''ThumbPrint''), 0)
', N'@result int output', @result=@result output;


IF (@result=1) -- databasen er en Datatransport
BEGIN
	EXEC ('print ''Databasen er af typen datatransport klient database.'';

DECLARE @ServiceURL [Unicode1024],
        @ThumbPrint [Unicode1024],
        @Result int = 0;
	
EXEC [System].[HentIkkeTomtFlag] @Flag = N''ServiceURL'', @FlagVarcharVaerdi = @ServiceURL out;
EXEC [System].[HentIkkeTomtFlag] @Flag = N''ThumbPrint'', @FlagVarcharVaerdi = @ThumbPrint out;

PRINT  ''G-værdi:'' + @@SERVERNAME + '':''+convert(nvarchar,DB_NAME ( )) +'':'' +@ThumbPrint;
	
EXEC [System].[GemFlag] @Flag = N''ThumbPrint'', 
                        @FlagBitVaerdi=0, 
                        @FlagVarcharVaerdi=N''1E47A10F3CE49609DCB5C4AE8686E7E3EB3A2D22;C009FEF6FEDCC518CB15EAE464CEE580BB02DA49'', 
                        @DefaultVaerdi=N'''', 
                        @Beskrivelse=N''Anvendes til at verificere korrekt SSL certifikat'', 
                        @Opdaterbar=1, 
                        @Overwrite=1;

EXEC [System].[HentIkkeTomtFlag] @Flag = N''ThumbPrint'', @FlagVarcharVaerdi = @ThumbPrint out;
PRINT  ''N-værdi:'' + @@SERVERNAME + '':''+convert(nvarchar,DB_NAME ( )) +'':'' +@ThumbPrint;

EXECUTE @Result = [CLR].[CheckSSLThumbprint] @ServiceURL, @ThumbPrint
                IF not (@Result = 1)
                print ''Ukendt certifikat (nye) på serviceurl.'';
                else
                print ''Nye virker.'';
	');
END
ELSE
IF EXISTS (SELECT 1 FROM [INFORMATION_SCHEMA].[TABLES] where TABLE_NAME in ('System_DatavarehusTyper','System_Datavarehus'))
EXEC sp_executesql N'SET @result=0;
SET @result=isnull((
SELECT 2 FROM [dbo].[System_Datavarehus] D
WHERE EXISTS (SELECT 1 
        FROM [dbo].[System_DatavarehusTyper] DT
        WHERE  D.DatavarehusTypeID=DT.DatavarehusTypeID and DT.[DatavarehusTypeNavn]=''EDV'')
		AND D.ErAktuelleDB = 1) , 0)', N'@result int output', @result=@result output;

IF (@result=2) -- databasen er en EDV
BEGIN
  EXEC ('print ''Databasen er af typen Statens BI EDV database.'';
  SET NOCOUNT ON;
DECLARE @FlagBitVaerdi bit
       ,@FlagVarcharVaerdi varchar(255)
       ,@Status int

-- TODO: Set parameter values here.

EXECUTE [dbo].[System_HentFlag] @Flag = ''ThumbPrint'', @FlagBitVaerdi=@FlagBitVaerdi OUTPUT ,@FlagVarcharVaerdi=@FlagVarcharVaerdi OUTPUT, @Status=@Status OUTPUT;

PRINT  ''G-værdi:'' + @@SERVERNAME + '':''+convert(nvarchar,DB_NAME ( )) +'':'' +@FlagVarcharVaerdi;

EXEC [dbo].[System_GemFlag] @Flag = N''ThumbPrint'', 
                        @FlagBitVaerdi=0, 
                        @FlagVarcharVaerdi=N''1E47A10F3CE49609DCB5C4AE8686E7E3EB3A2D22;C009FEF6FEDCC518CB15EAE464CEE580BB02DA49'', -- nuværende forældet værdi
                        @DefaultVaerdi=N'''', 
                        @Beskrivelse=N''Anvendes til at verificere korrekt SSL certifikat'', 
                        @Status=@Status OUTPUT;

EXECUTE [dbo].[System_HentFlag] @Flag = ''ThumbPrint'', @FlagBitVaerdi=@FlagBitVaerdi OUTPUT ,@FlagVarcharVaerdi=@FlagVarcharVaerdi OUTPUT, @Status=@Status OUTPUT;
PRINT  ''N-værdi:'' + @@SERVERNAME + '':''+convert(nvarchar,DB_NAME ( )) +'':'' +@FlagVarcharVaerdi;
');
END

IF (@result = 0)
	PRINT N'Bemærk ' + convert(nvarchar(256),DB_NAME ( )) + N' ikke er genkendt som EDV - eller Datatransport database. Så intet blev rettet.';