#Version: 1.0.8
#iPhoneOrientations: Portrait
#Target: iPhone
#MinVersion: 8
#PlistExtra: <key>UIViewControllerBasedStatusBarAppearance</key><false/>
#AppFont: AvenirLTStd-Black.ttf
#Entitlement: <key>aps-environment</key><string>production</string>
#PlistExtra:<key>NSPhotoLibraryUsageDescription</key><string>Select a photo.</string>
#PlistExtra:<key>NSCameraUsageDescription</key><string>Taking a photo.</string>
#PlistExtra:<key>NSMicrophoneUsageDescription</key><string>Record video.</string>
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
#CertificateFile:ios_distribution.cer
#ProvisionFile:pushProvisionalAdhocDistribution.mobileprovision
#End Region
'#If RELEASE
' #CertificateFile: ios_distribution.cer
' #ProvisionFile: ios_distribution_appstore.mobileprovision
'#END IF
Sub Process_Globals
Public App As Application
Public NavControl As NavigationController
Public Page1,Referal As Page
Public kvs As KeyValueStore
Dim downloadLinks As Map
Private background As ImageView
Private login As ImageView
Public hd As HUD
Dim parentURL As String
Dim userDetail,userDetail1 As Map
Public senderId,parentURL,AccessToken,userID,referalCode,refBy,profilePicLink As String
Dim parentPicLink As String : parentPicLink = "http://photo_admin/"
Private referl As TextView
Private submitReferal As ImageView
Dim firebaseAnalytics As FirebaseAnalytics
Public fm As FirebaseMessaging
Public auth As FirebaseAuth
Dim strUserName As String
Dim strInputDialog As String
Dim txtUserName As String
Dim newLogin As Boolean
Private loginEmailBt As Button
Private SignUp As Button
End Sub
Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
' parentURL="http://livemobtech.com/photocontest/photo_admin/mobile_api.php"
parentURL = "http://www.medbaltra.com/photo_admin/mobile_api.php"
Page1.Initialize("page1")
Referal.Initialize("referal")
kvs.Initialize(File.DirLibrary,"datastore")
Dim no As NativeObject = App
no.RunMethod("setStatusBarHidden:animated:", Array(True, False))
firebaseAnalytics.Initialize()
auth.Initialize("auth")
''''''''''''''''''''''
App.RegisterUserNotifications(True, True, True)
App.RegisterForRemoteNotifications
fm.Initialize("fm")
'''''''''''''''''''''''''
downloadLinks.Initialize
If kvs.ContainsKey("regComplete")Then
If kvs.Get("regComplete") = "yes" Then
initPageDashboard
Else
Page1.RootPanel.LoadLayout("loginPage")
Nav.NavigationBarVisible = False
Nav.ShowPage(Page1)
End If
Else
kvs.Put("regComplete","no")
Page1.RootPanel.LoadLayout("loginPage")
Nav.NavigationBarVisible = False
Nav.ShowPage(Page1)
End If
End Sub
Private Sub fm_FCMConnected
If kvs.ContainsKey("regComplete")Then
If kvs.Get("regComplete") = "yes" Then
Log("FCMConnected")
fm.SubscribeToTopic("general") 'add ios_ prefix to all topics
End If
End If
End Sub
Private Sub Application_RemoteNotification (Message As Map, CompletionHandler As CompletionHandler)
Log($"Message arrived: ${Message}"$)
'Msgbox(Message.Get("body"), Message.Get("title"))
' Dim ln As Notification
' ln.Initialize(DateTime.Now)
' ln.IconBadgeNumber = 1
' ln.AlertBody = Message.Get("body")
' ln.PlaySound = True
' ln.Register
CompletionHandler.Complete
End Sub
Private Sub Application_Background
Log("App Background")
' fm.FCMDisconnect 'should be called from Application_Background
End Sub
Private Sub Application_Inactive
Log("App Inactive")
End Sub
Private Sub Application_Active
Log("App Active")
App.ApplicationIconBadgeNumber = 0
fm.FCMConnect 'should be called from Application_Active
End Sub
