Current Directory:
\\10.5.0.10\iis\Sites\goprint2.com\www\
Contents:
Directories:
App_Code
App_Data
App_GlobalResources
App_LocalResources
App_WebReferences
articles
aspnet_client
Bin
common
designer
dillners
images
img
includes
kwikkopy
order_centre
printthree
RadControls
update
WebServices
Files:
about_us.aspx | Download
about_us.aspx.vb | Download
contact_us.aspx | Download
contact_us.aspx.vb | Download
create_user.aspx | Download
create_user.aspx.vb | Download
Default.aspx | Download
Default.aspx.vb | Download
discount.aspx | Download
discount.aspx.vb | Download
domain_activation.aspx | Download
domain_activation.aspx.vb | Download
downloadPD.aspx | Download
downloadPD.aspx.vb | Download
download_error.aspx | Download
download_error.aspx.vb | Download
email_policy.aspx | Download
email_policy.aspx.vb | Download
error_page.aspx | Download
error_page.aspx.vb | Download
faq.aspx | Download
faq.aspx.vb | Download
favicon.ico | Download
FileNotFound.htm | Download
generate_print_driver_step1.aspx | Download
generate_print_driver_step1.aspx.vb | Download
generate_print_driver_step2.aspx | Download
generate_print_driver_step2.aspx.vb | Download
generate_print_driver_step3.aspx | Download
generate_print_driver_step3.aspx.vb | Download
Global.asax | Download
header.fla | Download
header.swf | Download
home.aspx | Download
home.aspx.vb | Download
jsincluding.js | Download
login.aspx | Download
login.aspx.vb | Download
marcelito.txt | Download
packages.aspx | Download
packages.aspx.vb | Download
password_recovery.aspx | Download
password_recovery.aspx.vb | Download
PrintIt.master | Download
PrintIt.master.vb | Download
PrintIt.sitemap | Download
PrintItEs.sitemap | Download
PrintItFr.sitemap | Download
PrintIt_CreateUser.master | Download
PrintIt_CreateUser.master.vb | Download
PrintIt_OutSide.master | Download
PrintIt_OutSide.master.vb | Download
privacy_policy.aspx | Download
privacy_policy.aspx.vb | Download
proba.aspx | Download
proba.aspx.vb | Download
robots.txt | Download
sample.txt | Download
show_sess_par.aspx | Download
show_sess_par.aspx.vb | Download
site_map.aspx | Download
site_map.aspx.vb | Download
site_map.xml | Download
sRacadUploader.jar | Download
sRacadUploader_last.jar | Download
terms_and_conditions.aspx | Download
terms_and_conditions.aspx.vb | Download
terms_of_service.aspx | Download
terms_of_service.aspx.vb | Download
test.txt | Download
testimonials.aspx | Download
testimonials.aspx.vb | Download
TextDraw.html | Download
udraw-designer-widescreen-ui.zip | Download
web.config | Download
websites-for-printers.aspx | Download
websites-for-printers.aspx.vb | Download
File Preview:
Partial Class generate_print_driver_step1
Inherits System.Web.UI.Page
Public printItInstallerService As New com.racadtech.services.PrintDriverGenerator()
Public ticket As New com.racadtech.services.Ticket1()
Private _user As MembershipUser
Private _userProfile As ProfileCommon
Private _webWS As New WebWS
Private _storeId
Private _commonFunctions As CommonFunctions = New CommonFunctions()
Public _selectedLanguage As String = ""
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
_user = Membership.GetUser()
If Not Request.QueryString("uid") Is Nothing Then ' HeadOffice User generates print driver for some Store
If Request.QueryString("uid").ToString <> "" Then
Dim _guid = New Guid(Request.QueryString("uid"))
_user = Membership.GetUser(_guid)
RegeneratePDLabel.Visible = False
End If
End If
_userProfile = Profile.GetProfile(_user.UserName)
_storeId = _userProfile.StoreId
If Request.QueryString("ShowGeneration") = "No" Then
GenerateDriverDiv.Visible = False
End If
'Dim _directory = "http://pd.printitat.net/" & ConfigurationManager.AppSettings("PrintItStoreDataVirtualDirectory") & "/" & _userProfile.StoreId & "/"
Dim _directory = ConfigurationManager.AppSettings("PrintItStoreDataPath") & "\" & _userProfile.StoreId
'Dim logFile As System.IO.StreamWriter = System.IO.File.CreateText(_directory & "\" & "debug.txt")
'logFile.WriteLine("[Directory] = " & _directory)
Dim _windowsPD As String = ""
Dim _macPD As String = ""
Try
Dim _file As String
For Each _file In System.IO.Directory.GetFiles(_directory)
'logFile.WriteLine("[Find File : ] " & _file)
'If (_file.StartsWith(_directory & "\GoPrint2")) Then
'logFile.WriteLine("[Extention : ] " & _commonFunctions.GetDocumentName(_file, True, "\\").ToString().Split("\")(5).Split(".")(1))
Dim _fileName = _commonFunctions.GetDocumentName(_file, True, "\\")
If _fileName.Split(".")(1) = "exe" Then
'logFile.WriteLine("[Find Windows PD : ] " & _file)
_windowsPD = _fileName
End If
If _fileName.Split(".")(1) = "dmg" Then
'logFile.WriteLine("[Find Mac PD : ] " & _file)
_macPD = _fileName
End If
'End If
Next _file
Catch ex As Exception
'logFile.WriteLine("[EXCEPTION] " & ex.Message)
Finally
'logFile.Close()
'logFile.Dispose()
End Try
If _windowsPD = "" And _macPD = "" Then
'_________________
'Check if user Creates PrintDriverInterface, if not so redirect him to the PrintDriverInterfacePage
If _webWS.GetPrintDriverInterfaceByStoreId(_userProfile.StoreId).Tables(0).Rows.Count = 0 Then
PrintDriverLinksDiv.Visible = False
NoPrintDriverLabel.Visible = False
If Session("PartnerId") IsNot Nothing Then
NoPrintDriverInterfaceLabel.Visible = False
PrintDriverInterfaceLink.Visible = False
NoPrintDriverInterfaceForGraventLabel.Visible = True
Else
NoPrintDriverInterfaceLabel.Visible = True
PrintDriverInterfaceLink.Visible = True
NoPrintDriverInterfaceForGraventLabel.Visible = False
End If
GeneratePDImageButton.Enabled = False
Else
PrintDriverLinksDiv.Visible = False
If Session("PartnerId") IsNot Nothing Then
NoPrintDriverLabel.Visible = False
Else
NoPrintDriverLabel.Visible = True
End If
NoPrintDriverInterfaceLabel.Visible = False
PrintDriverInterfaceLink.Visible = False
GeneratePDImageButton.Enabled = True
End If
'__________________
Else
If Not Request.QueryString("uid") Is Nothing Then
PrintDriverLinksDiv.Visible = False
Else
If _windowsPD <> "" Then
WindowsPDLink.Visible = True
WindowsPDLink2.Visible = True
WindowsPDLink.NavigateUrl = "/" & ConfigurationManager.AppSettings("PrintItStoreDataVirtualDirectory") & "/" & _userProfile.StoreId & "/" & _windowsPD
WindowsPDLink2.NavigateUrl = "/" & ConfigurationManager.AppSettings("PrintItStoreDataVirtualDirectory") & "/" & _userProfile.StoreId & "/" & _windowsPD
End If
If _macPD <> "" Then
MacPDLink.Visible = True
MacPDLink2.Visible = True
MacPDLink.NavigateUrl = "/" & ConfigurationManager.AppSettings("PrintItStoreDataVirtualDirectory") & "/" & _userProfile.StoreId & "/" & _macPD
MacPDLink2.NavigateUrl = "/" & ConfigurationManager.AppSettings("PrintItStoreDataVirtualDirectory") & "/" & _userProfile.StoreId & "/" & _macPD
End If
End If
End If
End Sub
Protected Sub GeneratePDImageButton_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles GeneratePDImageButton.Click
NoPrintDriverLabel.Visible = False
NoPrintDriverInterfaceLabel.Visible = False
PrintDriverInterfaceLink.Visible = False
Dim _activationId
If _webWS.GetActivationDataSetByUserId(_user.ProviderUserKey).Tables(0).Rows.Count > 0 Then
_activationId = _webWS.GetActivationDataSetByUserId(_user.ProviderUserKey).Tables(0).Rows(0).Item("ActivationId").ToString()
Else
Dim _newActivationId As Guid = Guid.NewGuid()
_webWS.InsertActivation(_user.ProviderUserKey, _userProfile.StoreId, _newActivationId.ToString(), True)
_activationId = _newActivationId.ToString()
End If
Dim _printerName = PrintDriverNameTextField.Text
'Dim _companyName = CompanyNameTextField.Text
Dim _companyName = PrintDriverNameTextField.Text
ticket = printItInstallerService.CreateTicket(_storeId, _activationId, _printerName, _companyName, "PrintIt", "f")
Session("PrintItInstaller_TicketId") = ticket.TicketId
Session("PrintItInstaller_StoreId") = ticket.StoreId
Session("PrintItInstaller_ActivationId") = ticket.ActivationId
Session("PrintItInstaller_PrinterName") = ticket.PrinterName
Session("PrintItInstaller_CompanyName") = ticket.CompanyName
Session("PrintItInstaller_CompanyNameShort") = ticket.CompanyNameShort
Session("PrintItInstaller_IsSDCIntegrated") = ticket.IsSDCIntegrated
Session("PrintItInstaller_WindowsDriverLocation") = ticket.WindowsDriverLocation
Session("PrintItInstaller_MacDriverLocation") = ticket.MacDriverLocation
Session("PrintItInstaller_QueuePosition") = ticket.QueuePosition
Session("PrintItInstaller_IsComplete") = ticket.IsComplete
Response.Redirect("~/generate_print_driver_step2.aspx")
End Sub
End Class