FS Passengers customization (documentation?)

[n455jb]

Hi does anyone have anything I can read in regards to how to customize the VA appearance, ie.

website integration, company addition for VA's, and other items?

I checked the FSP documentation, w/o availability.

[DanSteph]

Sorry, that would be a complete PHP/HTML/DESIGN doc and is out of scope
of FsP I think.

Dan

[DanSteph]

notice you might ask precise question about this in this forum...

I might rework the PHP script to get more complex function later when I'll have somes spare
time... (with any luck this might happen this years)

Dan

[n455jb]

That would help, If I can help Id like to attempt to put something together for you. With things Ive learned from tweaking, and website
integration. Im a .net developer by trade, and will report anything i make for you guys.. ---

Jason

[leboyrio]

how do u add your logo after u have created a company/.

[n455jb]

I've made the SQL scripts to accomodate MS SQL 2000.

--- flights table.sql ---
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[flights]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[flights]
GO

CREATE TABLE [dbo].[flights] (
[id] [int] IDENTITY (1, 1) NOT NULL ,
[datestamp] [datetime] NOT NULL ,
[Username] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[Password] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[CompanyName] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[PilotName] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[FlightID] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[OnlineNetworkNbr] [int] NULL ,
[FlightDate] [datetime] NULL ,
[AircraftName] [nvarchar] (100) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[AircraftType] [nvarchar] (100) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[NbrPassengers] [int] NULL ,
[CargoWeight] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[Mtow] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[StartAircraftWeight] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[EndAircraftWeight] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[StartFuelQuantity] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[EndFuelquantity] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[DepartureICAOName] [nvarchar] (100) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[ArrivalICAOName] [nvarchar] (100) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[DepartureLocalHour] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[ArrivalLocalHour] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[DepartureGmtHour] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[ArrivalGmtHour] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[TotalBlockTime] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[TotalBlockTimeNight] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[TotalDistance] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[TotalAirbornTime] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[TotalTimeOnGround] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[MaxAltitude] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[CruiseSpeed] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[CruiseMachSpeed] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[CruiseTimeStartSec] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[CruiseTimeStopSec] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[CruiseFuelStart] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[CruiseFuelStop] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[LandingSpeed] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[LandingPitch] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[TouchDownVertSpeedFt] [float] NULL ,
[CaptainSentMayday] [int] NULL ,
[CrashFlag] [int] NULL ,
[FlightResult] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[PassengersOpinion] [nvarchar] (50) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[PassengersOpinionText] [text] COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[FailureText] [text] COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[CasualtiesText] [text] COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[PilotBonusText] [text] COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[BonusPoints] [int] NULL ,
[PilotPenalityText] [text] COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[PenalityPoints] [int] NULL ,
[BitsPenalityDisabled] [int] NULL ,
[ALL_HTTP] [nvarchar] (500) COLLATE SQL_Latin1_General_CP1_CI_AS NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
GO

--- end flights table sql ---

--- stored proc DBAuthenticate ---

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[DBAuthenticate]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[DBAuthenticate]
GO

SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO

CREATE PROCEDURE DBAuthenticate

(
@username Varchar(100),
@password VarChar(100),
@strIP VarChar(100)
)
As
DECLARE @ID Int
DECLARE @actualPassword VarChar (100)

SELECT
@ID = IdentityCol,
@actualPassword = p_password
FROM flights_users
WHERE u_username = @username

UPDATE flights_users
SET lastlogin = getdate(), ip_address = @strIP WHERE id = @ID


IF @ID IS NOT NULL
IF @password = @actualPassword
RETURN @ID

ELSE
RETURN -2
ELSE
RETURN -1
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO



--- end stored proc DBAuthenticate ---


Then to accomodate ASP.net Ive written a few scripts. If anyone wants them for data collection. Im still tweaking them however to check
for duplicates, etc. This is just something quick I put together.
I am actively modifying it however. You'll notice I have also a stored procedure in use. That SQL is above.


-- fspassengers.aspx --

<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Net" %>
<%@ Import Namespace="System.Web.Mail" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<%@ Import Namespace="System.Data" %>
<script runat="server" language="vb">

'------------------------------------------
'FS Passengers 1.0 | VA DB Script...
'Purpose: Allows the details from FS Passengers to be auto inserted into db.
'www.virtualatc.net
'VirtualATC - Jason Burton / Leximedia LLC
'n455jb@virtualatc.net / jab@leximedia.net
'------------------------------------------


Sub Page_Load


If Request.ServerVariables("HTTP_USER_AGENT") = "FsPassengers 1.0"

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then




'Debug response...
'Response.Write("#Answer#" & Request.ServerVariables("ALL_HTTP"))




If Request("FsPAskConnexion") = "yes" Then


'Check the user and password for a valid registered
user here...

If DBAuthenticate(Request("username"), Request("password")) > 0 Then
'FormsAuthentication.RedirectFromLoginPage(Username.Text, False)

'If all is well....

Response.Write("#Answer# Ok - connected;")

'Use
the US Metric system. Based on US information.

Response.Write("Weight=1 Dist=2 Speed=1 Alt=1 Liqu=1")

Response.Write("#welcome#Welcome to vATC's VA Reporting system#endwelcome#")
Else

Response.Write ("#Answer# Error - Username don't exist or wrong password"
& vbcrlf &"visit http://www.virtualatc.net for more info;")
Response.Write ("#Answer# Please either use another user/pw combo or
reregister on http://www.virtualatc.net;")


End If











Else

'Response the wrong user.. and return a failure msg.
'Log this entry attempt and send error msg.
'-----------------------------------------------

Response.Write ("#Answer# Error - Username don't exist or wrong
password;")
Response.Write ("#Answer# Please either use another user/pw combo or
reregister on http://www.virtualatc.net;")

End If

' 'Script from Paypal.com modified.
' '--------------------------------
' Dim strFormValues As String = Request.Form.ToString
()
' Dim strNewValue, strResponse
'
' 'Log ALL transactions the entries to text for debugging.
' Dim objStreamWriter As StreamWriter
'
' 'Using the log file we can investigate all queries...Keep
running .txt of it.
' objStreamWriter = File.AppendText ( MapPath
("debug.log") )
' objStreamWriter.WriteLine(strFormValues)
' objStreamWriter.Close



If Request("FsPAskToRegister") = "yes" Then

'Add each item...

'Add to DB

Dim conVirtATC As SqlConnection
Dim strInsert As String
Dim cmdInsert As SqlCommand

conVirtATC = New SqlConnection
("Server=127.0.0.1;uid=virtualatc;password=virtualatc;database=virtualatc;")
strInsert = "Insert Flights ( [username],[password],companyName,
PilotName,
FlightId,OnlineNetworkNbr,FlightDate,AircraftName,AircraftType,NbrPassengers,CargoWeight,Mtow,StartAircraftWeight,EndAircraftWeight,
StartFuelQuantity,EndFuelQuantity,DepartureICAOName,ArrivalICAOName,DepartureLocalHour,ArrivalLocalHour,DepartureGMTHour,Arriv
alGMTHour,TotalBlockTime,TotalBlockTimeNight,TotalAirbornTime,
TotalTimeOnGround,TotalDistance,MaxAltitude,CruiseSpeed,CruiseMachSpeed,CruiseTimeStartSec,
CruiseTimeStopSec,CruiseFuelStart,CruiseFuelStop,LandingSpeed,LandingPitch,TouchDownVertSpeedFt,CaptainSentMay
Day,CrashFlag,FlightResult,PassengersOpinion,PassengersOpinionText,FailureText,CasualtiesText,PilotBonusText,BonusPoints,PilotP
enalityText,PenalityPoints,BitsPenalityDisabled,ALL_HTTP ) values (
@username,@password,@companyName,@PilotName,@FlightId,@OnlineNetworkNbr,@FlightDate,@AircraftName,@AircraftType,@Nb
rPassengers,@CargoWeight,@Mtow,@StartAircraftWeight,@EndAircraftWeight,@StartFuelQuantity,@EndFuelQuantity,@DepartureICAO
Name,@ArrivalICAOName,@DepartureLocalHour,@ArrivalLocalHour,@DepartureGMTHour,@ArrivalGMTHour,@TotalBlockTime,@TotalB
lockTimeNight,@TotalAirbornTime,@TotalTimeOnGround,@TotalDistance,@MaxAltitude,@CruiseSpeed,@CruiseMachSpeed,@CruiseT
imeStartSec,@CruiseTimeStopSec,@CruiseFuelStart,@CruiseFuelStop,@LandingSpeed,@LandingPitch,@TouchDownVertSpeedFt,@
CaptainSentMayDay,@CrashFlag,@FlightResult,@PassengersOpinion,@PassengersOpinionText,@FailureText,@CasualtiesText,@Pilo
tBonusText,@BonusPoints,@PilotPenalityText,@PenalityPoints,@BitsPenalityDisabled,@ALL_HTTP)"
cmdInsert = New SqlCommand(strInsert, conVirtATC)

cmdInsert.Parameters.Add("@username", Request("username"))
cmdInsert.Parameters.Add("@password", Request
("password"))
cmdInsert.Parameters.Add("@companyName",Request
("companyName"))
cmdInsert.Parameters.Add("@PilotName",Request("PilotName"))
cmdInsert.Parameters.Add("@FlightId",Request("FlightId"))
cmdInsert.Parameters.Add("@OnlineNetworkNbr",Request
("OnlineNetworkNbr"))
cmdInsert.Parameters.Add("@FlightDate",Request("FlightDate"))
cmdInsert.Parameters.Add("@AircraftName",Request
("AircraftName"))
cmdInsert.Parameters.Add("@AircraftType",Request
("AircraftType"))
cmdInsert.Parameters.Add("@NbrPassengers",Request
("NbrPassengers"))
cmdInsert.Parameters.Add("@CargoWeight",Request
("CargoWeight"))
cmdInsert.Parameters.Add("@Mtow",Request("Mtow"))
cmdInsert.Parameters.Add("@StartAircraftWeight",Request
("StartAircraftWeight"))
cmdInsert.Parameters.Add("@EndAircraftWeight",Request
("EndAircraftWeight"))
cmdInsert.Parameters.Add("@StartFuelQuantity",Request
("StartFuelQuantity"))
cmdInsert.Parameters.Add("@EndFuelQuantity",Request
("EndFuelQuantity"))
cmdInsert.Parameters.Add("@DepartureICAOName",Request
("DepartureICAOName"))
cmdInsert.Parameters.Add("@ArrivalICAOName",Request
("ArrivalICAOName"))
cmdInsert.Parameters.Add("@DepartureLocalHour",Request
("DepartureLocalHour"))
cmdInsert.Parameters.Add("@ArrivalLocalHour",Request
("ArrivalLocalHour"))
cmdInsert.Parameters.Add("@DepartureGMTHour",Request
("DepartureGMTHour"))
cmdInsert.Parameters.Add("@ArrivalGMTHour",Request
("ArrivalGMTHour"))
cmdInsert.Parameters.Add("@TotalBlockTime",Request
("TotalBlockTime"))
cmdInsert.Parameters.Add("@TotalBlockTimeNight",Request
("TotalBlockTimeNight"))
cmdInsert.Parameters.Add("@TotalAirbornTime",Request
("TotalAirbornTime"))
cmdInsert.Parameters.Add("@TotalTimeOnGround",Request
("TotalTimeOnGround"))
cmdInsert.Parameters.Add("@TotalDistance",Request
("TotalDistance"))
cmdInsert.Parameters.Add("@MaxAltitude",Request("MaxAltitude"))
cmdInsert.Parameters.Add("@CruiseSpeed",Request
("CruiseSpeed"))
cmdInsert.Parameters.Add("@CruiseMachSpeed",Request
("CruiseMachSpeed"))
cmdInsert.Parameters.Add("@CruiseTimeStartSec",Request
("CruiseTimeStartSec"))
cmdInsert.Parameters.Add("@CruiseTimeStopSec",Request
("CruiseTimeStopSec"))
cmdInsert.Parameters.Add("@CruiseFuelStart",Request
("CruiseFuelStart"))
cmdInsert.Parameters.Add("@CruiseFuelStop",Request
("CruiseFuelStop"))
cmdInsert.Parameters.Add("@LandingSpeed",Request
("LandingSpeed"))
cmdInsert.Parameters.Add("@LandingPitch",Request
("LandingPitch"))
cmdInsert.Parameters.Add("@TouchDownVertSpeedFt",Request
("TouchDownVertSpeedFt"))
cmdInsert.Parameters.Add("@CaptainSentMayDay",Request
("CaptainSentMayDay"))
cmdInsert.Parameters.Add("@CrashFlag",Request("CrashFlag"))
cmdInsert.Parameters.Add("@FlightResult",Request
("FlightResult"))
cmdInsert.Parameters.Add("@PassengersOpinion",Request
("PassengersOpinion"))
cmdInsert.Parameters.Add("@PassengersOpinionText",Request
("PassengersOpinionText"))
cmdInsert.Parameters.Add("@FailureText",Request("FailureText"))
cmdInsert.Parameters.Add("@CasualtiesText",Request
("CasualtiesText"))
cmdInsert.Parameters.Add("@PilotBonusText",Request
("PilotBonusText"))
cmdInsert.Parameters.Add("@BonusPoints",Request
("BonusPoints"))
cmdInsert.Parameters.Add("@PilotPenalityText",Request
("PilotPenalityText"))
cmdInsert.Parameters.Add("@PenalityPoints",Request
("PenalityPoints"))
cmdInsert.Parameters.Add("@BitsPenalityDisabled",Request
("BitsPenalityDisabled"))
cmdInsert.Parameters.Add
("@ALL_HTTP",Request.ServerVariables("ALL_HTTP"))

Trace.Warn("SQL: " & strInsert)

conVirtATC.Open()
cmdInsert.ExecuteNonQuery()
conVirtATC.Close()


'If the user wants to register their flight info...
Response.Write ("#Answer# Ok - Saved flight data;")


Else



End If



End If


Else
'The users not using FS Passengers or not detected yet.

Response.Write ("vATC requires that you use FS Passengers 1.0 with this page.")

End If


End Sub

Function DBAuthenticate( strUsername As String, strPassword As String ) As Integer

'Of course dim all variables...
Dim conMydata As SqlConnection
Dim cmdSelect As SqlCommand
Dim parmReturnValue As SqlParameter
Dim intResult As Integer

'Set SQL connection string here.
conMydata = new SqlConnection( ConfigurationSettings.AppSettings("DatabaseConnection") )

'Set the cmd to execute stored procedure made called 'DBAuthenticate'
cmdSelect = New SqlCommand("DBAuthenticate", conMyData)
cmdSelect.CommandType = CommandType.StoredProcedure

'get return value from SP
parmReturnValue = cmdSelect.Parameters.Add( "RETURN_VALUE", SqlDbType.Int)

parmReturnValue.Direction = ParameterDirection.ReturnValue

cmdSelect.Parameters.Add("@username", strUsername)
cmdSelect.Parameters.Add("@password", strPassword)
cmdSelect.Parameters.Add("@strIP", Request.ServerVariables("REMOTE_ADDR"))

conMydata.Open()

cmdSelect.ExecuteNonQuery()

intResult = cmdSelect.Parameters("RETURN_VALUE").Value



conMydata.Close()



Return intResult

End Function









</script>



-- fspassengers.aspx end --


If anyone have questions about the code above, let me know ill try my best.. Otherwise im working on making packaged solutions for
this... Since Im sure alot of VA's are looking for this product..