[REBOL] interacting with forms
Is there a way for Rebol scripts to interact with remote web forms? I would like to automate sending messages to GSM phones via the gateway at www.mtnsms.com ... ( I want Rebol to monitor my web server, and then email me on my cell phone if it falls over ). --- Regards,Graham Chiu gchiuatcompkarori.co.nz http://www.compkarori.com/dynamo - The Homebuilt Dynamo http://www.compkarori.com/dbase - The dBase bulletin
[REBOL] Round function Re:(2)
Russell wrote: If you like one-liners, how about: round: func [n][print to-integer n + either n 0 [-.5][.5]] This prints integer closest to n. I am sorry, but this is wrong, too: round -0.5 should be 0 and not -1. Try to compare with these: floor: func [x [number!] /local y] [(y: to-integer x) - to-integer x y] round: func [x [number!]] [floor x + 0.5] or, as a one-liner: round: func [x [number!] /local y z] [(y: to-integer z: (x + 0.5)) - to-integer z y] Ladislav
[REBOL] Round function Re:(2)
On 22-Nov-99, [EMAIL PROTECTED] wrote: If you like one-liners, how about: round: func [n][print to-integer n + either n 0 [-.5][.5]] This prints integer closest to n. Russell: These rounding solutions are all too rigid. How would REBOL round off the last digit of an unknown decimal length? In other words, if the decimal is x digits long, how would the xth digit get rounded? -- ---===///||| Donald Dalley |||\\\===--- The World of AmiBroker Support http://webhome.idirect.com/~ddalley Member: ICOA and Team AMIGA
[REBOL] time function
Hello everyoneforgive a newbie questionPerl has a time function which returns a number of seconds since a certain date. With Rebol I can get now/time, now/date, etc. Is there an easy way to get the same type of value that the Perl time() function returns? I seem to have problems multiplying what returns from now with integer or decimal data types, like in a payroll calculation where hours_worked * pay_rate = paycheck. Thanks in advance for your help. Rebol rules! __ Get Your Private, Free Email at http://www.hotmail.com
[REBOL] time function Re:
Hi... There was quite a discussion of this question back at the end of October... which then became a discussion of Julian dates. I think this was the most elegant/simplest answer to your question though.. thanks to msg#43926 from Thomas Jensen: epoch: func [] [ x: (* now - 1-1-1970 86400) + now/time ; returns a time! value x/3 + ((x/1 * 60) + x/2 * 60) ; converts to seconds, would be nice ; if (to integer! x) worked... ] Russ - At 09:30 AM 11/22/99 +, you wrote: Hello everyoneforgive a newbie questionPerl has a time function which returns a number of seconds since a certain date. With Rebol I can get now/time, now/date, etc. Is there an easy way to get the same type of value that the Perl time() function returns? I seem to have problems multiplying what returns from now with integer or decimal data types, like in a payroll calculation where hours_worked * pay_rate = paycheck. Thanks in advance for your help. Rebol rules! __ Get Your Private, Free Email at http://www.hotmail.com
[REBOL] time function Re:(2)
I believe the below code is slightly off because it does not take into account your time zone. I wound up doing it like this: date: now seconds: ((date - 1-1-1970) * 86400) + (date/time/hour * 3600) + (date/time/minute * 60) + date/time/second zone: now/zone zone: zone/hour zone: zone * 3600 seconds: seconds - zone ; minus a minus gives plus print seconds --Ralph -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Sent: Monday, November 22, 1999 11:03 AM To: [EMAIL PROTECTED] Subject: [REBOL] time function Re: Hi... There was quite a discussion of this question back at the end of October... which then became a discussion of Julian dates. I think this was the most elegant/simplest answer to your question though.. thanks to msg#43926 from Thomas Jensen: epoch: func [] [ x: (* now - 1-1-1970 86400) + now/time ; returns a time! value x/3 + ((x/1 * 60) + x/2 * 60) ; converts to seconds, would be nice ; if (to integer! x) worked... ] Russ - At 09:30 AM 11/22/99 +, you wrote: Hello everyoneforgive a newbie questionPerl has a time function which returns a number of seconds since a certain date. With Rebol I can get now/time, now/date, etc. Is there an easy way to get the same type of value that the Perl time() function returns? I seem to have problems multiplying what returns from now with integer or decimal data types, like in a payroll calculation where hours_worked * pay_rate = paycheck. Thanks in advance for your help. Rebol rules! __ Get Your Private, Free Email at http://www.hotmail.com
[REBOL] FTP problem Re:
We don't yet support using FTP proxies. The problem is that many (if not all, I don't know) FTP proxies return HTML rather than normal FTP responses. This causes us a problem for parsing that HTML since it can be totally different for each proxy. Sterling Hi, I once more tried to use the ftp stuff from Rebol. I'm using a dialup connection. For this I connected to the internet and tried to read the root directory of my ftp server, which gave the following error: read ftp://openip.org connecting to: openip.org ** User Error: Server error: tcp 500 Bad username format - format is user@host:port. ** Where: read ftp://openip.org I tried all kind of combinations of user:psw@host etc. with and without the port no success. I'm using an FTP proxy and have configured in the following way: system/schemes/ftp/proxy/host:"localhost" system/schemes/ftp/proxy/port-id: 21 system/schemes/ftp/proxy/type:'generic I can see that a ftp session is established but nothing happens. Any idea where the problem is? Robert M. Muench, Karlsruhe, Germany == ask for PGP public-key == When do you want to reboot today? Use the free portable GUI Library OpenAmulet from http://www.openip.org
[REBOL] dumb problem!! Re:
On Sun, 21 Nov 1999 [EMAIL PROTECTED] wrote: if [ a = 0 ] [ print [ "this is true "] return true ]; end if My bad I had my head in C for the moment. remove the braces around if [ a = 0] so it looks like if a = 0 [ print "this is true" ] If you need to make it clearer for yourself then group items like this if (a = 0) [ that will work properly because otherwise if [ a = 0] just creates a block a = 0 And since it is successful at creating a block it will automaticly return true. or you could also technicly do if do [a = 0] [ print "this is true"] but thats a bit excessive. and a cleaner way of writing your function would be. arbit: func [] [ print :a either :a = 0 [ print ["This is true"] return true ; Although not needed because either will return true ][ print ["False"] return false ] ]
[REBOL] [REBOL] I'm really new linux user.
Hi I would like to use rebol like i use php, mean I'd like to write script language=rebol myscript ... /script I use apache, what should i do ??? I do not want to use Rebol as CGI. Thanks --- | Maciej Lopacinski - hamster [EMAIL PROTECTED] | | elbalg.top.pl WeBmasTer - proud SkyNet Squad member | |waiting for the sun... j.d.morrison | ---
[REBOL] Web Hosting Sites that support Rebol? Re:(6)
I am still confused ... when you say "I had to upgrade my server in order to run Rebol" what does this mean? Do you have a separate physical machine located at their physical site which they maintain and do the admin work for - in this case, I understand, although I suspect that's a bit expensive. Or does it mean you get a separate copy of the server software on a shared machine and this gives you more extensive control of the server configuration than is available with most web hosters? I am not as familiar with this type of hosting arrangement, and would like to hear more of the details. Thanks. On Sun, 21 Nov 1999, you wrote: Does Vservers.com *know* you are doing this, and *approve* of it. It may work, but if you have not cleared this with them, they may be just a mite bit unhappy if they find out. I'm not an expert, but the web hosts I've looked at are very particular about what types of programs and scripts they allow their hosted web sites to use. Yes they know and are quite happy about it because I had to upgrade my server in order to run Rebol. More income for them. Again, you are making all this too complicated. There are lots of us out here running Rebol on our servers. Kindly quite telling us we can't do it. We can. You can. Rebol lives. --Ralph
[REBOL] time function Re:(2)
Russ, to-integer epoch works on my machine viz: x: epoch == 943272946 to-integer x == 943272946 type? to-integer x == integer! Jerry
[REBOL] Round function Re:(3)
Donald, Try the script below. It rounds to n digits after the decimal point. n may even be negative. Use do read %filename to load the script. Jerry round: func [x[integer! decimal!] n[integer!]] [ either x = 0 [ x: (x * (10 ** n)) + 0.5 x: x - (x // 1) x: x * (10 ** - n) ] [x: - round - x n] ]
[REBOL] [REBOL] I'm really new linux user. Re:
I don't know about the subject; but I came upon this page and have been playing with it some: http://www.philb.demon.co.uk/rebol/rebol1.html It uses REBOL thusly: SCRIPT language="REBOL" [ REBOL [ Title: "Example of a REBOL Script in HTML File" Date: 26-Dec-1997 File: %message.r Purpose: { Shows how to embed a REBOL subscript within an HTML document. } ] print "" print "its a mad mad mad mad mad world :-)" print "" prin "The date/time are " now ] /SCRIPT Hope this is of some help, one newbie to another. Paul From: [EMAIL PROTECTED] Reply-To: [EMAIL PROTECTED] To: [EMAIL PROTECTED] Subject: [REBOL] [REBOL] I'm really new linux user. Date: Mon, 22 Nov 1999 19:30:02 +0100 Hi I would like to use rebol like i use php, mean I'd like to write script language=rebol myscript ... /script I use apache, what should i do ??? I do not want to use Rebol as CGI. Thanks --- | Maciej Lopacinski - hamster [EMAIL PROTECTED] | | elbalg.top.pl WeBmasTer - proud SkyNet Squad member | |waiting for the sun... j.d.morrison | --- __ Get Your Private, Free Email at http://www.hotmail.com
[REBOL] time function Re:
Hello everyoneforgive a newbie questionPerl has a time function which returns a number of seconds since a certain date. With Rebol I can get now/time, now/date, etc. Is there an easy way to get the same type of value that the Perl time() function returns? I seem to have problems multiplying what returns from now with integer or decimal data types, like in a payroll calculation where hours_worked * pay_rate = paycheck. Thanks in advance for your help. Rebol rules! There was a lengthy discussion on this epoch date recently (which I instigated because I needed this very function in a program I was then writing and am now successfully using). A number of people contributed excellent ideas. Here is the resulting code that gives an accurate answer. Enjoy! --Ralph --- date: now seconds: ((date - 1-1-1970) * 86400) + (date/time/hour * 3600) + (date/time/minute * 60) + date/time/second zone: now/zone; compensate for your time zone, Rebol knows it for you zone: zone/hour zone: zone * 3600 seconds: seconds - zone ; minus a minus gives plus print seconds ; seconds since the Epoch (1-1-1970)
[REBOL] DONT MAKE IT COMMERCIAL!!!! Re:(8)
Quoting [EMAIL PROTECTED] ([EMAIL PROTECTED]): Hi Paul, you wrote: At the sametime I'm thinking of BEOS. They have a beautiful product but their pricing is keeping the OS out of the hands of the people that could make it a player. I may be wrong but I don't think BEOS will ever be a contender simply because the owner is so intent in making money from day one. Actually, if I recall correctly, their pricing is relatively low. Correct me if I'm wrong, but I recall having received an email from them, when their Intel version began shipping. The price I believe I saw then was about $40 - $60. Have they raised their prices since? I find BeOS pricing quite accepatble, they are selling a bundle of the operating system and a book called BeBible for $80. OS without the book is $70. I checked pricing in Finland and noticed that BeOs is priced a little below Windows 9x and considerably below Windows NT/2000. So I'd say that Be is probably not making so much money out of their OS, just trying to get their expences covered. Yours, Jussi -- Jussi Hagman CS in Åbo Akademi University Studentbyn 4 D 33[EMAIL PROTECTED] 20540 Åbo[EMAIL PROTECTED] Finland
[REBOL] clean-path when arg is url?
Hmmm. When the argument to clean-path is a url, the result seems to be untouched. This is born out by source clean-path clean-path: func [ {Cleans-up '.' and '..' in path; returns the cleaned path.} target [file! url!] /local item file path mark mark2 marks dots dot dotdot target-copy][ if url? target [return target] ; and so on ... (snipped for space) Why can't clean-path handle .. and . in url data? -jn-
[REBOL] Announcement - Web Dialect Re:(2)
Hi, Ingo, you wrote: why not discussing it [dialects] on the regular mailing list? Your %HTML.r is not what I need at the time, but I am sure interested in dialecting. I felt at the time it was inappropriate, because most of the talk is about HTML, XML and so on, not just REBOL and scripts, and because the REBOL mailing list is all ready has high traffic. A separate list would enable those not interested in dialects for REBOL to "safely" ignore it. Andrew Martin Who's got a HTML and a generic dialect just about ready... [EMAIL PROTECTED] http://members.xoom.com/AndrewMartin/ Online @ 33,600 Baud! --
[REBOL] clean-path when arg is url? Re:(2)
Well, the reason that clean-path does not clean up URLs is that you may want that information. Take, as an example, FTP. For a file on your hard drive, the path: %/../../foo/bar/baz is the same as: %/foo/bar/baz zso clean-path can clean that up without loss of information. However, the URL: ftp://my.domain.com/../../foo/bar/baz may not be the same file as: ftp://my.domain.com/foo/bar/baz because my home directory may be in /home/me so I am really accessing a totally different file in the two cases. It is dangerous to play around with paths when you could be sitting in a virtual root directory but still with the ability to go back to the real root. Sterling Hi Joel, Not sure why clean path is limited to non urls. Why not put in a request for it to be modified, to [EMAIL PROTECTED] ? In the mean time there is function to clean http paths on the Rebol Examples page http://www.rebol.com/examples.html Clean HTTP-Path "To remove /../ from within HTTP URLs. Will remove parent directories for each /../ encountered, but will not remove site information." http://www.rebol.com/examples/cleanhttp.r Cheers, Allen K
[REBOL] dumb problem!! Re:
On Sun, 21 Nov 1999 [EMAIL PROTECTED] wrote: i know i am shit in programming !!! and this is a very dumb problem.. but i cant see the mistake sorry!!! whats wrong??? if [ a = 0 ] [ print [ "this is true "] This is common with people that arent familiar with programming languages. In the beiginning you assign the value of a to be 100 But at the if statement you are reassigning the value of a to be 0 so it evaluates true automaticly. replace if[a = 0] with if[a== 0] FLA
[REBOL] SELMA Anomaly?
Apparently Assembly sent off to emails today: one was sent off at 22 Nov 1999 14:34:07 -0500 the other was sent off at 02:41 PM 11/22/99 -0500 I received the second one earlier today, the first one which was apparently sent off seven minutes earlier just arrived now. Has anyone else noticed the same thing, is it SELMA or is it my ISP? Elan
[REBOL] Round function Re:(5)
Larry wrote: Maybe one more small refinement? The way I learned to round is to round to nearest (as your function does), except where the least significant digit is 5. In that case, one should round even. For example: 1.4 rounds to 1 1.6 rounds to 2 1.5 rounds to 2 2.5 rounds to 2 3.5 rounds to 4 This extra step helps avoid bias when rounding a sequence of numbers which end in the digit 5. Otherwise the sum of the rounded sequence is not equal to the sum of the unrounded sequence. Another way of avoiding bias is to randomly round up or down when the last digit is 5. I think your system might be mistaken as it doesn't take into account the rounding of .0 1.0 1This is part of the sequence. 1.1 1 1.2 1 1.3 1 1.4 1 1.5 2 1.6 2 1.7 2 1.8 2 1.9 2 etc Of course, I could be mistaken. Andrew Martin Fractional disagreement, integral agreement... [EMAIL PROTECTED] http://members.xoom.com/AndrewMartin/ Online @ 33,600 Baud! --
[REBOL] [REBOL] I'm really new linux user. Re:(2)
[EMAIL PROTECTED] wrote: I don't know about the subject; but I came upon this page and have been playing with it some: http://www.philb.demon.co.uk/rebol/rebol1.html It uses REBOL thusly: SCRIPT language="REBOL" [ REBOL [ Title: "Example of a REBOL Script in HTML File" Date: 26-Dec-1997 File: %message.r Purpose: { Shows how to embed a REBOL subscript within an HTML document. } ] print "" print "its a mad mad mad mad mad world :-)" print "" prin "The date/time are " now ] /SCRIPT Hope this is of some help, one newbie to another. No, it doesn't, I am sorry. Above section of code gets executed, once you "do http://..." in REBOL, while Maciej is asking for REBOL sections to be executed by webserver and result of code being inserted into resulted html code, sent to client. But, I have answer for you. REBOL Apache module is supposed to be out soon after /Command version is out. Hope This Helps, -pekr- Paul From: [EMAIL PROTECTED] Reply-To: [EMAIL PROTECTED] To: [EMAIL PROTECTED] Subject: [REBOL] [REBOL] I'm really new linux user. Date: Mon, 22 Nov 1999 19:30:02 +0100 Hi I would like to use rebol like i use php, mean I'd like to write script language=rebol myscript ... /script I use apache, what should i do ??? I do not want to use Rebol as CGI. Thanks --- | Maciej Lopacinski - hamster [EMAIL PROTECTED] | | elbalg.top.pl WeBmasTer - proud SkyNet Squad member | |waiting for the sun... j.d.morrison | --- __ Get Your Private, Free Email at http://www.hotmail.com
[REBOL] Date and time in American format
To all I think some of you might be interested in the following script, which prints date and time in standard American long format. I would appreciate comments and suggestions. Jerry { date returns the current date and time in pretty American format} date: function [][t a d m] [ t: now/time a: t/1 if a 12 [t: t - 12:00:00 t: join t " PM"] if a = 12 [t: join t " PM"] if a = 0 [t: t + 12:00:00 t: join t " AM"] d: join pick ['Monday 'Tuesday 'Wednesday 'Thursday 'Friday 'Saturday 'Sunday] now/weekday "," m: pick ['January 'February 'March 'April 'May 'June 'July 'August 'September 'October 'November 'December] now/month Print [d m join now/day "," join now/year "," t] exit ]
[REBOL] Round function Re:(4)
Hello, Jerry: On 22-Nov-99, [EMAIL PROTECTED] wrote: Try the script below. It rounds to n digits after the decimal point. n may even be negative. Use do read %filename to load the script. Thanks, but it may take me a while to understand it. round: func [x[integer! decimal!] n[integer!]] [ either x = 0 [ x: (x * (10 ** n)) + 0.5 x: x - (x // 1) x: x * (10 ** - n) ] [x: - round - x n] ] -- ---===///||| Donald Dalley |||\\\===--- The World of AmiBroker Support http://webhome.idirect.com/~ddalley Member: ICOA and Team AMIGA
[REBOL] Pros and cons Re:(4)
I am also VERY interested in getting a better handle on some of the aspects of REBOL that appear to be more in the realm of folklore than documented features. ;-) FWIW, I'm trying to work through the current dictionary and compile a list of open questions or areas where I feel that some more information (in some other document, if not the dictionary) would be helpful. I'll post my "hot list" to the mailing list when/as I can. [EMAIL PROTECTED] wrote: ... You should be able to find the messages on rebol.org; the subject was "Context" or perhaps "REBOL contexts"... FYI, when I tried to do the above search, I got a result of: [EMAIL PROTECTED] --- [REBOL] Pros and cons Re: --- 21-Nov-1999 [EMAIL PROTECTED] --- [REBOL] Prose and cons --- 20-Nov-1999 [EMAIL PROTECTED] --- [REBOL] Re: Pros and cons Re:(2) --- 21-Nov-1999 [EMAIL PROTECTED] --- [REBOL] Pros and cons. Re: --- 18-Nov-1999 [EMAIL PROTECTED] --- [REBOL] Pros and cons. --- 18-Nov-1999 [EMAIL PROTECTED] --- [REBOL] Pros and cons. Heh Re: --- 18-Nov-1999 ** Syntax Error: Invalid binary -- #{. ** Where: (line 62) %48347 256 make bitset! #{ so it appears that Something Is Wrong with the search engine.
[REBOL] Web Hosting Sites that support Rebol? Re:(8)
I take it that you consider their service has been good. Their software arrangements are unusual, and new to me. I am just starting to study their offerings, and haven't seen anything like it elsewhere - it sounds like you control your own config like a webmaster would on a private machine - although the *limits* of what *other* software you can install were not totally clear. Everyone should at least check out this site to see what's there. If anyone else knows of similar web hosting sites, I would like to hear about it. Thanks for the info. On Mon, 22 Nov 1999, you wrote: I have a virtual server (see http://vservers.com for details) which was running BDSI 3.x Unix. This version of Unix is not supported by Rebol (at least not without a lot of jumping through the hoops to add ELF libraries and all kinda other stuff). However, BDSI 4.x does run Rebol very elegantly. So I had my vserver upgraded to the newer version of BDSI and not only does Rebol run nicely, I got numerous other goodies like mySQL databases, PHP, etc. Virtual serving is the only way to go if your budget is limited and your traffic reasonably low. I'm running over 25 domains off my server right now with no strain. Hope that answered your question. Best, -- Ralph Roberts, CEO Alexander Books / Creativity, Inc. 65 Macedonia Road Alexander, NC 28701 1-800-472-0438 voice fax tollfree U.S. Canada 1-828-255-8719 voice fax overseas See Ralph's latest bestsellers at: http://abooks.com/genealogy http://autograph-book.com And my company's online auctions: http://booksave.com Wholesale to the Public Book Auction http://blue-gray.com Civil War Auction http://tennesseestars.com All TENNESSEE THINGS Auction http://bookauction.net Buy Books Net Instead of Retail! http://a-aa.com/gem GEM METALWORKERS AUCTION http://a-aa.com/nc DOWN HOME IN NORTH CAROLINA AUCTION
[REBOL] Imperative vs. Functional Re:
Hi John, 1. The examples and scripts submitted to REBOL reflect the preferences that the most active REBOL programmers have acquired over years of imperative programming. Unlike other functional or hybrid programming languages, REBOL has rapidly attracted a surprisingly large following of mainstream programmers and as a result - no matter to what degree REBOL may encourage functional programming - these programmers bring their skills to REBOL, albeit imperative skills. 2. Recall that we have seen a number of users report that as they start scripting in REBOL, they automatically attempt to think of their program in terms that they have become used to based on their former programming experience. These same users also reported that after a short time they learned to see things the REBOL way, and judging from their messages, they felt it was a superior way of formulating solutions. Apparently these users where able identify their initial imperative view and recognized the merit of functional facilities provided by REBOL. Here REBOL's hybrid character proves itself useful in allowing the individual programmer to define the speed at which he is comfortable migrating from an imperative to a more functional paradigm, if he chooses to migrate at all. 3. The categorization of a programming language announces the kind of programming constructs the language supports to its potential future users and therefore should be based on the facilities it provides - as evidenced by its syntax and vocabulary. To describe a hybrid programming language - with a strong bias towards functional programming - as imperative, based on the choices its current, most active user base happens to make, is "disingenuous". Elan
[REBOL] Imperative vs. Functional Re:
My point is not that REBOL cannot be used for functional programming. Nor is it that functional programming languages cannot have imperative operations. My point is that describing REBOL as a `functional' language is disingenuous because, although it can support `functional' programming, it encourages an `imperative' style. The vast amount of `imperative' code present in the examples and the script library are evidence of this bias. It's enough I think, no? I remember similar discussion on this list some time ago, lead nowhere. It's starting to sound as opinion vs. opinion and noone seems to be willing to accept argument of opposite side. So, while the discussion can be informative for us all, maybe it's better to stop it to prevent us from flames. Maybe calling REBOL a functional language is not as uncommon, as is your hidden name, "a142808", hmm? ;-) -pekr- __ Get Your Private, Free Email at http://www.hotmail.com
[REBOL] Imperative vs. Functional Re:(2)
Hi Petr, how are things going? Maybe calling REBOL a functional language is not as uncommon, as is your hidden name, "a142808", hmm? ;-) In all fairness, John did previously sing off with his full name: John Curtis. My guess is that SELMA is stripping off his name (like it does my name. Usually my email messages identify me is "Elan" in the "from:" header). No reason to get nervous. Sit back, relax and enjoy. Take Care, Elan