jQuery UI slider twisting for both iPad and iPhone, or any tablet.

I was working for improving our slider to be avaiable for both iPad and iPhone, however, from the reference of official jQuery UI, it addressed to target only for iPhone(http://bugs.jqueryui.com/ticket/4143). The one (http://bugs.jqueryui.com/ticket/7001) targeting to iPad is using the same of iPhone. It words well with iPhone but not iPad. By checking the code, I found it is a small trick to adjust the code to work for both of them or even more. Here follows the solution.

You want to first put code change as cscott's post first (https://github.com/cscott/jquery-ui/commit/3744712e13271fa06a502be19bb8b3854fe66c59) , then modify the code of file (jquery.ui.mouse.js or ui.mouse.js), finding the following one (around line No. 17th) and do following 2 steps:
Step 1. Modify code:
(deleted) var iPhone = (navigator.userAgent.indexOf('iPad') != -1);
(added) var iPhonePad = (navigator.userAgent.indexOf('iPad') != -1) ||(navigator.userAgent.indexOf('iPhone') != -1);

Step 2. Replace all the keyword "iPhone" to "iPhonePad".

Javascript function - Replace or remove the URL parameters

Well, I've been searching some functions for handle URL parameters to replace or remove on both of javascript or jQuery. However, I didn't find any fit one. This is what I wrote for such usage:

//Handle URL parameter, if newvalue is empty, remove the parameter or replace with new value.
replaceUrlParameter = function (url, param, newvalue) {
if (url.indexOf("#")) {
url = url.split("#")[0];
}
var headUrl = url.split("?")[0];
var arrayParam = url.split("?")[1].split("&");
var idx = null;
for (i = 0; i < arrayParam.length; i++) {
if (arrayParam[i].split("=")[0] == param) {
idx = i;
}
}
if (idx != null) {
var newUrl = null;
if (newvalue != "") {
var newParam = param + "=" + newvalue;
newUrl = arrayParam.splice(idx, 1, newParam);
}
else {
var removedArray = arrayParam.splice(idx, 1);
newUrl = headUrl + "?" + arrayParam.join("&");
}
return newUrl;
}
else
{ return url; }
return url;
}

2 Levels Common Table Expressions (CTE) Sample

ALTER procedure [dbo].[sp_EndecaFeed_GetAll_ClassesHierarchy]

as

--List all hierarchy

with Hierarchy(ClassID, ClassName, FullName, ParentClassID, ParentHierarchy, Seq) as

(

select FullName = ClassID, ClassName, convert(nvarchar(1000), ClassName), ParentClassID, convert(nvarchar(1000), ClassName) as ParentHierarchy, Seq = 1

from Classes

union all

select FullName = p.ClassID, p.ClassName, convert(nvarchar(1000),FullName + '/' + p.ClassName), p.ParentClassID, convert(nvarchar(1000), FullName) as ParentHierarchy, Seq = Seq + 1

from Classes p

inner join Hierarchy c on c.ClassID = p.ParentClassID

)

--Filter out the redundant hierarchy

,ClassHierarchy(Row, ClassID, ClassName, FullName, ParentClassID, ParentHierarchy) as

(

select ROW_NUMBER() OVER (PARTITION BY ClassID ORDER BY seq DESC), ClassID, ClassName, FullName, ParentClassID, ParentHierarchy

from Hierarchy

)

select Distinct CH.ClassID, CH.ClassName, FullName as Hierarchy, CH.ParentClassID, CH.ParentHierarchy

From Products P,

ProductClasses PC,

ClassHierarchy CH

Where P.ProductID = PC.ProductID AND

PC.ClassID = CH.ClassID AND

CH.Row = 1 AND

--Filter the hierarchy without associated with products

CH.ClassID in (select distinct ClassID from ProductClasses) AND

P.IsActive = 1 AND

P.HasContent = 'Y'

order by ClassID

iFrame automatically resize height by cross domain

After trying lots of solutions from internet. Here follows my verified solution successfully.

There are totally 3 relevant files involoved.

1. The main aspx file ( which hosting iframe of another site. (Under domain main.com) Notice: you should add src="http://sub.com/index.jsp" in the iframe.
   
2. The transmission html file (grAutoSize.htm) which link the iframe part with main site. (Under domain main.com)
   
3. The hosting site JS file (refer.js) which referred by sub domain pages (Under domain sub.com). It could be different tech platform such as JSP/PHP/ASP. Here is index.jsp.
   Notice: the variable urlC should be main.com/grAutoSize.htm.
   
4. You don't need add document.domain = xxx.com for this solution. Also it was tested to working with IE7, IE8, Mozilla Firefox 3, Google Chrome 2, Safari 4.

Steps to use VS 2008 with WSE 3.0 to create client for calling to Axis2 Web Services WSDL file

I've been working on this case a few days and finally made it work.

The case need to create .net framework 3 web site client to refer the Axis2 web services with WSS4J Security (WS-Security specification 1.0). Need to custom SOAP Header and signature.

As all knows, visual studio 2008 doesn't integrated with WSE 3.0, also since the current VS project is web site instead of web application, the proxy file of web service is dynamic with DLL file which means you are not able to change it. Here find a new way to tackle with it.

Here's the main steps and code reference.

1. Setup WSE 3.0 (Download from Microsoft web site and install)
2. Convert the JKS to PFX keystore file. ( Mentioned at last blog post)
3. Create a new Class Library project into the solution.
4. Add web reference and designate the WSDL (Provided from Axis2 web service) file. ( You will find the proxy file named reference.vb in the same folder with wsdl file at this Class Library project.
5. Click to open WSE 3.0 configuration tool and click menu open the file app.config which in Class Library project folder.
6. Click on "Enable this project for Web Services Enhancements" under General panel, and Enable Policy and Add a new Policy with a new name under Policy panel. If you want to get debugging soap packet, Enable Message Trace and designate Input and Output File under Diagnostics panel and then click menu File and Save it.
7. Update part of the app.config as follows snapshot:
   
8. Find the file named wse3policyCache.config and update it as snapshot:
   
9. Create a new class file as bottom coding:
   
10. Build the Class Library project and debugging.
11. From main web site, add reference for this new project and there should be a new dll happens in Bin folder.
12. Refer to the DLL project namespace with web service name to access.
13. Rebuild main web site and test them out.

File: CustomSecurityAssertion.vb

Imports System

Imports System.Collections.Generic

Imports System.Text

Imports System.Xml

Imports System.Security.Cryptography.X509Certificates

Imports Microsoft.Web.Services3

Imports Microsoft.Web.Services3.Design

Imports Microsoft.Web.Services3.Security

Imports Microsoft.Web.Services3.Security.Tokens

Namespace GiftRegistryProxy

Class CustomSecurityAssertion

Inherits SecurityPolicyAssertion

Dim serviceX509TokenProviderValue As TokenProvider(Of X509SecurityToken)

Dim clientX509TokenProviderValue As TokenProvider(Of X509SecurityToken)

Public Property ClientX509TokenProvider() As TokenProvider(Of X509SecurityToken)

Get

Return clientX509TokenProviderValue

End Get

Set(ByVal value As TokenProvider(Of X509SecurityToken))

clientX509TokenProviderValue = value

End Set

End Property

Public Property ServiceX509TokenProvider() As TokenProvider(Of X509SecurityToken)

Get

Return serviceX509TokenProviderValue

End Get

Set(ByVal value As TokenProvider(Of X509SecurityToken))

serviceX509TokenProviderValue = value

End Set

End Property

Public Sub New()

End Sub 'New

Public Overrides Function CreateClientOutputFilter(ByVal context As FilterCreationContext) As SoapFilter

Return New CustomSecurityClientOutputFilter(Me)

End Function 'CreateClientOutputFilter

Public Overrides Function CreateClientInputFilter(ByVal context As FilterCreationContext) As SoapFilter

Return Nothing

End Function 'CreateClientInputFilter

Public Overrides Function CreateServiceInputFilter(ByVal context As FilterCreationContext) As SoapFilter

Return New CustomSecurityServerInputFilter(Me)

End Function 'CreateServiceInputFilter

Public Overrides Function CreateServiceOutputFilter(ByVal context As FilterCreationContext) As SoapFilter

Return New CustomSecurityServerOutputFilter(Me)

End Function 'CreateServiceOutputFilter

Public Overrides Sub ReadXml(ByVal reader As XmlReader, ByVal extensions As IDictionary(Of String, Type))

If reader Is Nothing Then

Throw New ArgumentNullException("reader")

End If

If extensions Is Nothing Then

Throw New ArgumentNullException("extensions")

End If

Dim isEmpty As Boolean = reader.IsEmptyElement

MyBase.ReadAttributes(reader)

reader.ReadStartElement("CustomSecurityAssertion")

If Not isEmpty Then

' Read the contents of the element.

If reader.MoveToContent() = XmlNodeType.Element AndAlso reader.Name = "clientToken" Then

reader.ReadStartElement()

reader.MoveToContent()

' Get the registed security token provider for X.509 certificate security credentials.

Dim type As Type = extensions(reader.Name)

Dim instance As Object = Activator.CreateInstance(type)

If instance Is Nothing Then

Throw New InvalidOperationException(String.Format(System.Globalization.CultureInfo.CurrentCulture, "Unable to instantiate policy extension of type 0End.", type.AssemblyQualifiedName))

End If

Dim clientProvider As TokenProvider(Of X509SecurityToken) = CType(instance, TokenProvider(Of X509SecurityToken))

' Read the child elements that provide the details about the client's X.509 certificate.

clientProvider.ReadXml(reader, extensions)

Me.ClientX509TokenProvider = clientProvider

reader.ReadEndElement()

End If

' Read the contents of the element.

If reader.MoveToContent() = XmlNodeType.Element AndAlso reader.Name = "serviceToken" Then

reader.ReadStartElement()

reader.MoveToContent()

' Get the registed security token provider for X.509 certificate security credentials.

Dim type As Type = extensions(reader.Name)

Dim instance As Object = Activator.CreateInstance(type)

If instance Is Nothing Then

Throw New InvalidOperationException(String.Format(System.Globalization.CultureInfo.CurrentCulture, "Unable to instantiate policy extension of type 0End.", type.AssemblyQualifiedName))

End If

Dim serviceProvider As TokenProvider(Of X509SecurityToken) = CType(instance, TokenProvider(Of X509SecurityToken))

' Read the child elements that provide the details about the client's X.509 certificate.

serviceProvider.ReadXml(reader, extensions)

Me.ServiceX509TokenProvider = serviceProvider

reader.ReadEndElement()

End If

MyBase.ReadElements(reader, extensions)

reader.ReadEndElement()

End If

End Sub

Public Overrides Function GetExtensions() As IEnumerable(Of KeyValuePair(Of String, Type))

' Add the CustomSecurityAssertion custom policy assertion to the list of registered

' policy extensions.

Dim extensions As New List(Of KeyValuePair(Of String, Type))

extensions.Add(New KeyValuePair(Of String, Type)("CustomSecurityAssertion", Me.GetType()))

If (Not serviceX509TokenProviderValue Is Nothing) Then

' Add any policy extensions that read child elements of the element

' to the list of registered policy extensions.

Dim innerExtensions As IEnumerable(Of KeyValuePair(Of String, Type)) = serviceX509TokenProviderValue.GetExtensions()

If (Not innerExtensions Is Nothing) Then

Dim extension As KeyValuePair(Of String, Type)

For Each extension In innerExtensions

extensions.Add(extension)

Next

End If

End If

If (Not clientX509TokenProviderValue Is Nothing) Then

' Add any policy extensions that read child elements of the element

' to the list of registered policy extensions.

Dim innerExtensions As IEnumerable(Of KeyValuePair(Of String, Type)) = clientX509TokenProviderValue.GetExtensions()

If (Not innerExtensions Is Nothing) Then

Dim extension As KeyValuePair(Of String, Type)

For Each extension In innerExtensions

extensions.Add(extension)

Next

End If

End If

Return extensions

End Function

End Class 'CustomSecurityAssertion

Class RequestState

Private clientTokenValue As SecurityToken

Private serverTokenValue As SecurityToken

Public Sub New(ByVal cToken As SecurityToken, ByVal sToken As SecurityToken)

clientTokenValue = cToken

serverTokenValue = sToken

End Sub 'New

Public ReadOnly Property ClientToken() As SecurityToken

Get

Return clientTokenValue

End Get

End Property

Public ReadOnly Property ServerToken() As SecurityToken

Get

Return serverTokenValue

End Get

End Property

End Class 'RequestState

Class CustomSecurityServerInputFilter

Inherits ReceiveSecurityFilter

Public Sub New(ByVal parentAssertion As CustomSecurityAssertion)

MyBase.New(parentAssertion.ServiceActor, False)

End Sub 'New

Public Overrides Sub ValidateMessageSecurity(ByVal envelope As SoapEnvelope, ByVal security As Security)

Dim clientToken As SecurityToken = Nothing

Dim serverToken As SecurityToken = Nothing

' Ensure incoming SOAP messages are signed and encrypted.

Dim elem As ISecurityElement

For Each elem In security.Elements

If TypeOf elem Is MessageSignature Then

Dim sig As MessageSignature = CType(elem, MessageSignature)

clientToken = sig.SigningToken

End If

If TypeOf elem Is EncryptedData Then

Dim enc As EncryptedData = CType(elem, EncryptedData)

serverToken = enc.SecurityToken

End If

Next elem

If clientToken Is Nothing OrElse serverToken Is Nothing Then

Throw New Exception("Incoming message did not meet security requirements")

End If

Dim state As New RequestState(clientToken, serverToken)

envelope.Context.OperationState.Set(state)

End Sub 'ValidateMessageSecurity

End Class 'CustomSecurityServerInputFilter

Class CustomSecurityServerOutputFilter

Inherits SendSecurityFilter

Public Sub New(ByVal parentAssertion As CustomSecurityAssertion)

MyBase.New(parentAssertion.ServiceActor, False)

End Sub 'New

Public Overrides Sub SecureMessage(ByVal envelope As SoapEnvelope, ByVal security As Security)

Dim state As RequestState = envelope.Context.OperationState.Get(Of RequestState)()

' Sign the message with the Web service's security token.

security.Tokens.Add(state.ServerToken)

security.Elements.Add(New MessageSignature(state.ServerToken))

' Encrypt the message with the client's security token.

security.Elements.Add(New EncryptedData(state.ClientToken))

End Sub 'SecureMessage

End Class 'CustomSecurityServerOutputFilter

Class CustomSecurityClientInputFilter

Inherits ReceiveSecurityFilter

Public Sub New(ByVal parentAssertion As CustomSecurityAssertion)

MyBase.New(parentAssertion.ServiceActor, True)

End Sub 'New

Public Overrides Sub ValidateMessageSecurity(ByVal envelope As SoapEnvelope, ByVal security As Security)

Dim state As RequestState

Dim signed As Boolean = False

Dim encrypted As Boolean = False

' Get the request state out of the operation state.

state = envelope.Context.OperationState.Get(Of RequestState)()

' Make sure the message was signed with the server's security token.

Dim elem As ISecurityElement

For Each elem In security.Elements

If TypeOf elem Is MessageSignature Then

Dim sig As MessageSignature = CType(elem, MessageSignature)

If sig.SigningToken.Equals(state.ServerToken) Then

signed = True

End If

End If

If TypeOf elem Is EncryptedData Then

Dim enc As EncryptedData = CType(elem, EncryptedData)

If enc.SecurityToken.Equals(state.ClientToken) Then

encrypted = True

End If

End If

Next elem

If Not signed OrElse Not encrypted Then

Throw New Exception("Response message does not meet security requirements")

End If

End Sub 'ValidateMessageSecurity

End Class 'CustomSecurityClientInputFilter

Class CustomSecurityClientOutputFilter

Inherits SendSecurityFilter

Private clientToken As SecurityToken

Private serverToken As SecurityToken

Protected keystore As String = System.Configuration.ConfigurationManager.AppSettings("keystore")

Public Sub New(ByVal parentAssertion As CustomSecurityAssertion)

MyBase.New(parentAssertion.ServiceActor, True)

' Get the client security token.

'clientToken = X509TokenProvider.CreateToken(StoreLocation.CurrentUser, StoreName.My, "CN=Customretailergrworksservice, OU=Custom, O=MarCoole, L=Walnut Creek, S=California, C=US")

'####################### Start update for key handler

Dim cert As X509Certificate2 = New X509Certificate2(keystore, "CustomGRWorksServiceRetailer")

clientToken = New X509SecurityToken(cert)

'####################### End update for key handler

' Get the server security token.

serverToken = X509TokenProvider.CreateToken(StoreLocation.LocalMachine, StoreName.My, "CN=Customretailergrworksservice, OU=Custom, O=MarCoole, L=Walnut Creek, S=California, C=US")

End Sub 'New

Public Overrides Sub SecureMessage(ByVal envelope As SoapEnvelope, ByVal security As Security)

'Dim token As X509SecurityToken = GetSecurityToken("CN=Customretailergrworksservice, OU=Custom, O=MarCoole, L=Walnut Creek, S=California, C=US")

'####################### Start update for key handler

Dim cert As X509Certificate2 = New X509Certificate2(keystore, "CustomGRWorksServiceRetailer")

Dim token = New X509SecurityToken(cert)

'####################### End update for key handler

If token Is Nothing Then

Throw New SecurityFault("Message Requirements could not be satisfied.")

End If

' Add the security token to the WS-Security SOAP header.

security.Tokens.Add(token)

' Specify the security token to sign the message with.

Dim sig As New MessageSignature(token)

security.Elements.Add(sig)

'######################################### Start xml header definition

security.EncodedMustUnderstand = "0"

'creating the custom element in the outgoing message

Dim securityNode As XmlNode = envelope.CreateNode(XmlNodeType.Element, "wsse:Security", "http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd")

'creating the element

Dim binarySecurityTokenNode As XmlNode = envelope.CreateNode(XmlNodeType.Element, "wsse:BinarySecurityToken", "")

Dim binaryElement As XmlElement = binarySecurityTokenNode

binaryElement.SetAttribute("xmlns:wsu", "http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd")

binaryElement.SetAttribute("ValueType", "http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509v3")

binaryElement.SetAttribute("wsu:Id", "CertId-3221922")

binaryElement.SetAttribute("EncodingType", "http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-soap-message-security-1.0#Base64Binary")

binarySecurityTokenNode.InnerText = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"

securityNode.AppendChild(binarySecurityTokenNode)

envelope.ImportNode(securityNode, True)

Dim node As XmlNode = envelope.Header

node.AppendChild(securityNode)

'######################################### End xml header definition

End Sub 'SecureMessage

End Class 'CustomSecurityClientOutputFilter

End Namespace

How to convert Java JKS keystore to Microsoft PFX certificate

I have some case need to create .NET WSE 3 Client to refer Axis2 Web Services with WSS4J OASIS Security( WS-Security specification 1.0), if you have only the Java format keystore, you have to convert it to MS format for signatures upon web service call.

Steps which were testified successfully follows here:

1. Download J2SE package and setup JDK and JRE 6 on workstation. (There are many internet information about it, so omit here)
2. Download KeyTool IUI version 2.4.1 (Match with JRE 6) from (http://yellowcat1.free.fr/index_ktl.html) and unzip to some folder and double click to run file run_ktl.bat to open visiable KeyTool IUI window
3. Click menu [View] - [Select task] - [Export] - [Keystore's entry] - [Private key]
4. Click browser icon to pick up the keystore JKS file and enter the keystore password in Source.
5. Click to select PEM format on both Target Private key file and Certificates chain file:
6. Click the save icon to designate some local folder to save the 2 PEM files.
7. Manullay create a text file merged.pem and merge these 2 PEM files to one pem file. ( Use notepad to open the 2 PEM files and respectively copy to merge in, CERTIFICATE first and then RSA PRIVATE KEY.
8. Download and setup OpenSSL (http://www.slproweb.com/products/Win32OpenSSL.html)
9. Open command line and run follows: ( Assume the openssl in C root and you want the PFX file name: pfxname
   C:\OpenSSL\bin\openssl pkcs12 -export -out pfxname.pfx -in merged.pem
10. You will find the pfx file in current folder then.

Snapshots

Sharepoint for BlackBerry App (Web Part implement)

DocAve of TSM for SharePoint

SharePoint Portal