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:
Imports System.Net
Imports System.IO
Partial Class includes_submission_settings_inc
Inherits System.Web.UI.UserControl
'Private _userPI As UserPI
Private _webWS As New WebWS
Private _commonFunctions As CommonFunctions = New CommonFunctions()
Private _user As MembershipUser
Private _userProfile As ProfileCommon
Private partnerWS As PartnetWS.Service = New PartnetWS.Service
Private webAdapter As com.racadtech.services.GoPrint2Client = New com.racadtech.services.GoPrint2Client()
Private _originator As String
Public Property Originator() As String
Get
Return _originator
End Get
Set(ByVal value As String)
_originator = value
End Set
End Property
Public ReadOnly Property MasterKey() As String
Get
Return "877k31hg333-d03423332wq-312dkazlfs-433398j543"
End Get
End Property
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.Page.DataBind()
'_userPI = New UserPI(Profile.StoreId)
If Me.Originator = "Admin" Or Me.Originator = "HeadOffice" Or Session("EditUserFromManagement") Then
Dim _guid As Guid = New Guid(Request.QueryString("uid"))
_user = Membership.GetUser(_guid)
Else
_user = Membership.GetUser()
End If
_userProfile = Profile.GetProfile(_user.UserName)
Dim _storeId As Integer = _userProfile.StoreId
'Hide FTPSettings div if user has Module with Temp or Permanent FTP
Dim modules As String() = webAdapter.GetStorePackages(_webWS.GetActivationIdByStoreId(_storeId), MasterKey).ModulesId.Split(",".ToCharArray())
Dim i As Integer = 0
For i = 0 To modules.Length - 1
If Integer.Parse(modules(i)) = 6 Or Integer.Parse(modules(i)) = 7 Then
Me.FTPSettingsPanel.Visible = False
Exit For
End If
Next
If Not Page.IsPostBack Then
Dim _dataSet As New System.Data.DataSet
_dataSet = _webWS.GetEmailSettingsByStoreId(_storeId)
If _dataSet.Tables(0).Rows.Count > 0 Then
Dim _email As String = _dataSet.Tables(0).Rows(0).Item("Email")
Dim _attachmentSize As String = _dataSet.Tables(0).Rows(0).Item("AttachmentSize").ToString()
EmailTextBox.Text = _email
' make additional update for those records where Attachment Size wasn't defined
If _attachmentSize = "" Then
_webWS.UpdateEmailSettingsByStoreId(_storeId, _email, 5)
End If
AttachmentTextBox.Text = _dataSet.Tables(0).Rows(0).Item("AttachmentSize").ToString()
Else
_webWS.InsertEmailSettings(_storeId, _user.Email, 5)
EmailTextBox.Text = _user.Email
AttachmentTextBox.Text = 5
End If
_dataSet = _webWS.GetFtpSettingsByStoreId(_storeId)
If _dataSet.Tables(0).Rows.Count > 0 Then
HostNameTextBox.Text = _dataSet.Tables(0).Rows(0).Item("HostName")
PortTextBox.Text = _dataSet.Tables(0).Rows(0).Item("Port")
UserNameSetTextBox.Text = _dataSet.Tables(0).Rows(0).Item("UserName")
PasswordSetTextBox.Attributes.Add("value", _dataSet.Tables(0).Rows(0).Item("Password"))
'PasswordSetTextBox.Text = _dataSet.Tables(0).Rows(0).Item("Password")
PathTextBox.Text = _dataSet.Tables(0).Rows(0).Item("Path")
IsPASVCheckBox.Checked = _dataSet.Tables(0).Rows(0).Item("IsPASV")
Else
End If
End If
If Me.Originator = "Admin" Or Me.Originator = "HeadOffice" Then
'BreakTR.Visible = True
End If
End Sub
Protected Sub UpdateImageButton_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles UpdateImageButton.Click
'If Session("EditUserFromAdmin") = True Or Session("EditUserFromManagement") Then
' Dim _guid = New Guid(Request.QueryString("uid"))
' _user = Membership.GetUser(_guid)
'Else
' _user = Membership.GetUser()
'End If
'
Dim _isEditAllowed As Boolean = True
If Not Session("PartnerId") Is Nothing Then
Try
Dim _userIdForEdit As String = _user.ProviderUserKey.ToString
Dim _affUserId As String = Session("PartnerId")
_isEditAllowed = partnerWS.isEditAllowed(Session("PartnerId"), _user.ProviderUserKey.ToString)
Catch ex As Exception
_isEditAllowed = False
End Try
End If
Dim _resultMessage As String = ""
If _isEditAllowed Then
_userProfile = Profile.GetProfile(_user.UserName)
Dim _storeId As Integer = _userProfile.StoreId
If Page.IsValid = True Then
Try
If _webWS.GetEmailSettingsByStoreId(_storeId).Tables(0).Rows.Count > 0 Then
_webWS.UpdateEmailSettingsByStoreId(_storeId, EmailTextBox.Text, AttachmentTextBox.Text)
Else
_webWS.InsertEmailSettings(_storeId, EmailTextBox.Text, AttachmentTextBox.Text)
End If
If _webWS.GetFtpSettingsByStoreId(_storeId).Tables(0).Rows.Count > 0 Then
_webWS.UpdateFtpSettingsByStoreId(_storeId, HostNameTextBox.Text, PortTextBox.Text, UserNameSetTextBox.Text, _
PasswordSetTextBox.Text, PathTextBox.Text, IsPASVCheckBox.Checked)
Else
_webWS.InsertFtpSettings(_storeId, HostNameTextBox.Text, PortTextBox.Text, UserNameSetTextBox.Text, _
PasswordSetTextBox.Text, PathTextBox.Text, IsPASVCheckBox.Checked)
End If
'_resultMessage = "Submission Settings have been updated successfully"
_resultMessage = Me.GetLocalResourceObject("SuccessMessage")
Catch ex As Exception
'_resultMessage = "Unable to update Submission Settings due to the following reason: <br/>" & ex.Message.ToString()
_resultMessage = Me.GetLocalResourceObject("FailureMessage") & " : <br/>" & ex.Message.ToString()
End Try
If Me.Originator = "Admin" Or Me.Originator = "HeadOffice" Then
ResultDiv.Visible = True
ResultLabel.Text = _resultMessage
Else
CompleteFormDiv.Visible = False
ResultDiv.Visible = True
ResultLabel.Text = _resultMessage
Try
Dim _headTag As New HtmlGenericControl
_headTag = CType(Me.Page.Master.FindControl("MasterHeadTag"), HtmlGenericControl)
Dim _metaRefreshTag As LiteralControl = New LiteralControl(_commonFunctions.MetaTag("submission_settings.aspx"))
_headTag.Controls.Add(_metaRefreshTag)
Catch ex As Exception
End Try
End If
End If
Else
_resultMessage = "You are not allowed to edit User Submission Settings"
CompleteFormDiv.Visible = False
ResultDiv.Visible = True
ResultLabel.Text = _resultMessage
End If
End Sub
Protected Sub CancelImageButton_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles CancelImageButton.Click
If Me.Originator = "Admin" Or Me.Originator = "HeadOffice" Then
Dim _guid As Guid = New Guid(Request.QueryString("uid"))
_user = Membership.GetUser(_guid)
Else
_user = Membership.GetUser()
End If
_userProfile = Profile.GetProfile(_user.UserName)
Dim _dataSet As New System.Data.DataSet
_dataSet = _webWS.GetEmailSettingsByStoreId(_userProfile.StoreId)
If _dataSet.Tables(0).Rows.Count > 0 Then
EmailTextBox.Text = _dataSet.Tables(0).Rows(0).Item("Email")
Else
End If
_dataSet = _webWS.GetFtpSettingsByStoreId(_userProfile.StoreId)
If _dataSet.Tables(0).Rows.Count > 0 Then
HostNameTextBox.Text = _dataSet.Tables(0).Rows(0).Item("HostName")
PortTextBox.Text = _dataSet.Tables(0).Rows(0).Item("Port")
UserNameSetTextBox.Text = _dataSet.Tables(0).Rows(0).Item("UserName")
PasswordSetTextBox.Attributes.Add("value", _dataSet.Tables(0).Rows(0).Item("Password"))
' PasswordSetTextBox.Text = _dataSet.Tables(0).Rows(0).Item("Password")
PathTextBox.Text = _dataSet.Tables(0).Rows(0).Item("Path")
IsPASVCheckBox.Checked = _dataSet.Tables(0).Rows(0).Item("IsPASV")
Else
End If
End Sub
'Protected Sub TestEmailButton_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles TestEmailButton.Click
' If Page.IsValid = True Then
' Try
' _commonFunctions.SendEmail("noreply@printitat.net", EmailTextBox.Text, "test", "test")
' RadAjaxManager1.ResponseScripts.Add(String.Format("alert('Testing of Email Settings has been successfully done!');"))
' Catch ex As Exception
' RadAjaxManager1.ResponseScripts.Add(String.Format("alert('" & ex.Message & "');"))
' End Try
' Else
' End If
'End Sub
Protected Sub TestFTPButton_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles TestFTPButton.Click
If Page.IsValid = True Then
Try
TestFTP()
RadAjaxManager1.ResponseScripts.Add(String.Format("alert('Testing of FTP Settings has been successfully done!');"))
Catch ex As Exception
RadAjaxManager1.ResponseScripts.Add(String.Format("alert('" & ex.Message & "');"))
End Try
End If
End Sub
Public Function TestFTP() As Boolean
Try
' Declare all properties.
Dim host As String = HostNameTextBox.Text
Dim port As String = PortTextBox.Text
Dim path As String = PathTextBox.Text
Dim username As String = UserNameSetTextBox.Text
Dim password As String = PasswordSetTextBox.Text
Dim remoteFile As String = "sample.txt"
Dim ftp As FTPclient
Dim localFile As String = Server.MapPath("/") & "\sample.txt" ' "C:\sample.txt" 'Local Only!
If (Not System.IO.File.Exists(localFile)) Then
Try
Dim _streamWriter As System.IO.StreamWriter
_streamWriter = System.IO.File.CreateText(localFile)
_streamWriter.WriteLine("test")
_streamWriter.Close()
Catch ex As Exception
Throw New Exception("[100] " & localFile & " Local System Error, Please Contact Support!")
End Try
End If
' Create new FTPClient object. ( Connection. )
Try
ftp = New FTPclient(host & ":" & port, username, password)
Catch ex As Exception
Throw New Exception("[101] " & ex.Message)
End Try
' Attempt to upload test file.
Try
If (Not ftp.Upload(localFile, path & "/" & remoteFile)) Then
Throw New Exception("[104] Unable to connect and upload test document.")
End If
Catch ex As Exception
Throw New Exception("[102] " & ex.Message)
End Try
' Attempt to delete test file.
Try
If (Not ftp.FtpDelete(path & "/" & remoteFile)) Then
Throw New Exception("[105] Unable to connect and upload test document.")
End If
Catch ex As Exception
Throw New Exception("[103] " & ex.Message)
End Try
Catch ex As Exception
Throw New Exception("[150] " & ex.Message)
End Try
Return True
End Function
Protected Sub RadAjaxManager1_AjaxRequest(ByVal sender As Object, ByVal e As Telerik.WebControls.AjaxRequestEventArgs) Handles RadAjaxManager1.AjaxRequest
End Sub
End Class