Sub UpdateStatus()
Dim Username, Password as String
Dim SQLStatement As Object
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
    CurrentItemPos=DialogField.SelectedItemPos.
    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
    DateToday=Format(Year(Now), "0000") & "-" &Format(Month(Now), "00") & "-"  & Format(Day(Now),"00")
    DBContext=createUnoService("com.sun.star.sdb.DatabaseContext")
    DataSource=DBContext.getByName("MicroblogDB")
    Database=DataSource.GetConnection ("","")
    SQLQuery="INSERT INTO ""microblog"" " + "(""Status"", ""Date"") VALUES " + "('" + StatusMsg + "','" + DateToday + "')"
    SQLStatement=Database.createStatement
    Result=SQLStatement.executeQuery (SQLQuery)
    Database.close
    Database.dispose()
  Else :End
  End If
Dlg.dispose
Shell("curl",1, StatusUpdate)
End Sub