;; ========================================== ;; Script: blogger.r ;; downloaded from: www.REBOL.org ;; on: 29-Mar-2024 ;; at: 10:56:37.369548 UTC ;; owner: notchent [script library member who ;; can update this script] ;; ========================================== ;; =================================================== ;; email address(es) have been munged to protect ;; them from spam harvesters. ;; If you were logged on the email addresses would not ;; be munged ;; =================================================== REBOL [ title: "Blogger" date: 22-Apr-2010 file: %blogger.r author: Nick Antonaccio purpose: { This program allows users to create and add entries to an online blog page. The GUI has text fields which allow the user to enter a title, link, and blog text, as well as a button to select an image file which will be uploaded and included in the blog entry. When the "Upload" button is clicked, an HTML file is created and uploaded to the user's web server, along with the image. Be sure to edit the ftp-url and html-url variables to represent actual user account information. A line by line explanation of this code is available at http://re-bol.com } ] page: "blog.html" ftp-url: ftp://user:%pass--site--com/public_html/folder/ html-url: join http://site.com/folder/ page save/png %dot.png to-image layout/tight [box white 1x1] ; blank image view center-face gui: layout [ h2 (form html-url) text "Title:" t: field 400 text "Link:" l: field 400 text "Image:" i: btn 400 [i/text: request-file show i] text "Text:" x: area 400x100 across btn "Upload" [ if error? try [existing-text: read html-url] [ make-dir ftp-url write (join ftp-url page) "" existing-text: copy "" ] picture: last split-path to-file i/text write/binary (join ftp-url picture) (read/binary to-file i/text) write (join ftp-url page) rejoin [ {

} t/text {

} {

} now/date { } now/time {     } {} l/text {

} {
}
                x/text 
            {


} existing-text ] browse html-url ] btn "View" [browse html-url] btn "Edit" [editor (join ftp-url page)] ]