ProjectX client-side code

jrobertson (James Robertson) — Mon, 18 Feb 2008 18:49:42 GMT

This Ruby code uses a unified XML format to create a password record on a web server. It's intended to be run as a batch file which gets called from another Ruby application called maintain_projectx which gets called from a cronjob.

In this example the password is stored on the server not for authentication but simply to provide a reminder service in the event the user forgets it.



require 'net/http'

require 'rexml/document'

include REXML



class ProjectXClient

  attr :doc

  def initialize(raw_url)

    url = URI.escape(raw_url)

    xml_data = Net::HTTP.get_response(URI.parse(url)).body

    @doc = Document.new(xml_data)

  end

  

end



if __FILE__ == $0



  xml_project = <  

    

      

        

        

      

    

  

PROJECT

  

  pxc = ProjectXClient.new("http://yourdomain.com/p/projectx.cgi?xml_project=" + xml_project)

  doc = pxc.doc

  puts doc

    

end

output -what's returned from the server is an XML response containing a result. The result echos the method executed and the output from that method, which in this instance is the xml record node 'entry'.





  

    

      p6789c

      hotmail

add-escapes - escape chars in a string

gregg.irwin (Gregg Irwin) — Tue, 19 Sep 2006 02:24:38 GMT



    add-escapes: func [

        "Insert the esc-with value before each instance of val, unless it's part of a list of things to ignore."

        series   [string!]

        val      [char!] "the char to escape"

        esc-with [char!] "the char to escape it with"

        /ignore special [block!] "block of strings to ignore"

        /local rule=

    ][

        rule=: copy/deep [

            any [

                ; ignore rule will be added here if needed

                mark: val (insert mark esc-with) skip

                | skip

            ]

        ]

        ; If they have things they want us to ignore, add a rule at the

        ; beginning of the ANY rule, and a pipe symbol after it.

        if special [

            ; rule=/2 is the ANY block

            ; pipe 1 is DELIMIT param

            ; pipe 2 is new rule 'OR separator

            insert rule=/2 reduce [delimit copy special '| '|]

        ]

        parse/all series rule=

        series

    ]

DZone Snippets: escape code

ProjectX client-side code

add-escapes - escape chars in a string