Script Library: 1240 scripts

Discussion posts for script ngbg.r

1
johnatemps
17-Jan-2004 10:04

Hi! 


I want to update this code, but the header library words 'type and 
'platform are not valid for the submission script...
So, I post here.


REBOL [
    Title: "National Geographic Image of the Day Downloader"
    Date: 17-Jan-2004
    Version: 1.1.0
    File: %ngbg.r
    Library: [
       level: 'intermediate 
       platform: 'all
       type: [demo tool]
       tested-under: win
        ]
    History: [
	21-Sep-2001 "1.0.0 - First script - Ian Monroe"
	17-Jan-2004 "1.1.0 - Url updated - Charles Mougel"
    ]
    Author: "Ian Monroe"

    Purpose: {Downloads the current picture of the day from nationalgeographic.com 
    and
saves it to a location of your choice. Directions: Change the 'filename'
in the source to the location of your choice. 


The agrument -s causes it to be silent and so not print what step 
it is
at. These directions can be seen by adding a -h agrument.  
}
    Email: ul303seyj001@sneakemail.com
    Web: http://mlug.missouri.edu/~eean/projects.php
    library: [
        level: 'intermediate 
        platform: none 
        type: none 
        domain: [markup text-processing web] 
        tested-under: none 
        support: none 
        license: none 
        see-also: none
    ]
]

filename: %ngbg.jpg ; change to wanted location

PrintStuff: true

if system/script/args == "-s"
[ PrintStuff: false ]

if system/script/args == "-h"
[

print "Downloads the current picture of the day from nationalgeographic.com 
and saves it to a location of your choice."

print "Change the 'filename' variable in the source to the location 
of your choice."

print "The agrument -s causes it to be silent and not print what 
step it is at."
quit
]

if PrintStuff

[ prin "Downloading National Geographic wallpaper.cgi web page..." 
]

ngwebsite: http://magma.nationalgeographic.com/cgi-bin/pod/wallpaper.cgi
 page: read ngwebsite 
if PrintStuff
[ print " Done." ]


parse page [thru "/pod/pictures/lg_wallpaper/" copy NameOfJpg to 
"^"&gt;"]

	;old code

 ; imageloc: join http://magma.nationalgeographic.com/pod/pictures/lg_wallpaper/ 
 NameOfJpg

	;updated code 17/01/2004

imageloc: join http://lava.nationalgeographic.com/pod/pictures/lg_wallpaper/ 
NameOfJpg
	;end updated code 17/01/2004

if PrintStuff
[ 
prin "Downloading "
prin imageloc
print " ..."
]
image: read/binary imageloc
write/binary filename image
if PrintStuff
[ prin filename 
  print  " saved" ]

2
sunanda
17-Jan-2004 11:11

Hi johnatemps

Looks to me like there are two problems here:

There are two library headers -- delete the one you don't want
You weren't the owner of this script. So you couldn't update it (but see below).

I'm not entitrely sure what we should do with unowned scripts, so I am about to make up an instant policy:

If a script has an owner, I'd prefer you to talk to them about changes to it -- they may accept your suggestions, or make you a joint owner so you can both change the script.
But that doesn't apply in this case, as the orginal owner has not come forward to claim the script.
Given that it has been orphaned for over six months, it seems reasoanble to me to give ownership to someone who wants to improve or correct it -- like creating a foster parent.

If the original owner does drop by later, we can:

give them ownership too -- a sort of shared parenting
Revert the script back to them (we archive all contributions so we can roll changes back if they want that.)

I've given you ownership. You should now be able to update this script.

Sorry for the earlier problems,

Sunanda.

3
johnatemps
29-Jan-2004 22:21

Thanks !
And rebol.org is a really good work !

4
ronaldoff
2-Feb-2004 20:49

Hi,


Using this url makes it possible to select the Picture of one specific 
date :


ngwebsite: to-url rejoin ["http://lava.nationalgeographic.com/cgi-bin/pod/wallpaper.cgi?day=" now/day "&amp;month=" now/month "&amp;year=" now/year - 2000]


Bye

5
leke
14-Apr-2004 7:03

HI ALL,
Does Rebol have an equivalent to HTML &lt;hr&gt; ?
Thanks.

6
stefanlober
15-May-2007 23:46

The old url does not work for me. I changed two addresses:

ngwebsite: http://lava.nationalgeographic.com/cgi-bin/pod/PhotoOfTheDay.cgi


imageloc: join http://lava.nationalgeographic.com/pod/pictures/lg_wallpaper/ 
NameOfJpg

and it works again

Stefan

7
miyaka22
23-May-2021 8:29

Hi, Thank you for updating us.

I finally found an interesting topics about this "script ngbg.r" command. I am having a hard time using this command on the software because it always ended up as an error which I cannot fix and that is annoying. I hope to see more interesting topic from you in the future. click here to read more...about the latest version of june journey game for pc downloadand see why this game is so popular to streamers right now.

Untitled

I'm still a novice when it comes to ngbg.r. I just hope I could learn something more about it here. Thank you for sharing and please check out the link below and reach out to the best Auckland commercial cleaners if you have commercial cleaning needs.

I've seen a tutorial on youtube explaining how this code works but up to now I still get the hang of it. Anyway, thank you for posting this, and if ever you need an electrician in Greenwith or Golden Grove, please opt for Get Fused or see this link https://getfusedelectrical.com.au/greenwith-golden-grove/for more info.

13
aricjoshua
11-Nov-2021 1:29

Edited:
aricjoshua
11-Nov-2021 1:30

Hi! you can refer to cookie clicker this is an outstanding online game with simple game texture but still gives users great entertainment moments. Join and experience on available web browsers.

https://www.commonlounge.com/discussion/8783b3aae9054b299c963bf7870844e4/main

http://www.stemarts.com/lanl/los-alamos-stem-challenge-faq/smart-loyal-dog-breed-becige-german#id0FJAwKwcKl_o5-SMbhR5yw

https://fireland.aliv.us/read-blog/2467

14
mark214
20-Nov-2021 19:18

Great Content. Link

You’ll also have peace of mind knowing that your vehicle is safe for operation. The key to keeping your commercial truck suspension in top condition is regular mobile vehicle repairs.

If a script has an owner, I'd prefer you to talk to them about changes to it -- they may accept your suggestions, or make you a joint owner so you can both change the script.

I really liked your article , your article is very petrified me in the learning process and provide additional knowledge to me , maybe I can learn more from you, I will wait for your next article, thanks. appliance repair mt vernon

if you find yourself stuck on the side of the road someday soon (or even far into the future), don’t panic–just give us a call and we’ll be there to help you out fast.

We are delighted to be a trusted business serving the Sacramento County community.

After all, they’re the only thing between you and the road.

Discussion posts for script ngbg.r

Hi johnatemps

Hi, Thank you for updating us.

Contents:

Contents:

Untitled

Contents:

I'm still a novice when it comes to ngbg.r. I just hope I could learn something more about it here. Thank you for sharing and please check out the link below and reach out to the best Auckland commercial cleaners if you have commercial cleaning needs.

Contents:

Great Content. Link

Contents:

You’ll also have peace of mind knowing that your vehicle is safe for operation. The key to keeping your commercial truck suspension in top condition is regular mobile vehicle repairs.

Contents:

If a script has an owner, I'd prefer you to talk to them about changes to it -- they may accept your suggestions, or make you a joint owner so you can both change the script.

Contents:

I really liked your article , your article is very petrified me in the learning process and provide additional knowledge to me , maybe I can learn more from you, I will wait for your next article, thanks. appliance repair mt vernon

Contents:

if you find yourself stuck on the side of the road someday soon (or even far into the future), don’t panic–just give us a call and we’ll be there to help you out fast.

Contents:

We are delighted to be a trusted business serving the Sacramento County community.

Contents:

After all, they’re the only thing between you and the road.

Contents: