Sub UpdateStatus()
Dim Username, Password as String
ServiceURL="http://identi.ca/api/statuses/update.xml"
exitOK=com.sun.star.ui.dialogs.ExecutableDialogResults.OK
DialogLibraries.LoadLibrary("Standard")
Library=DialogLibraries.GetByName("Standard")
TheDialog=Library.GetByName("Dialog1")
Dlg=CreateUnoDialog(TheDialog)
  If Dlg.Execute=exitOK Then
    DialogField1=Dlg.getControl("TextField1")
    MessageTxt=DialogField1.Text
    StatusMsg=Join((Split((Join((Split((Join((Split((Join((Split((Join((Split((Join(Split(MessageTxt, " "), "%20")), "'")), "%27")), "@")), "%40")), "+")), "%2B")),"""")), "%22")), "&")), "%26")
    DialogField2=Dlg.GetControl("TextField2")
    Username=DialogField2.Text
    DialogField3=Dlg.GetControl("TextField3")
    Password=DialogField3.Text
    StatusUpdate=" -u " + Username + ":" & Password + " -d status=" + "" & StatusMsg + "" + " " + ServiceURL
    Dlg.dispose
    Shell("curl",1, StatusUpdate)
  Else :End
  End If
End Sub