Download and save a txt File

[oO3ddYOo]

Hi @ll

I search this Request in all forums but i didnt find anything.

What i will:

I want a Tcl Script to download a txt file from a homepage and save a specified path.

Example:

!download

He download or open the txt file: http://www.mywebspace.de/maps.txt

and save this file to eggdrop/scripts

If the txt file already exists he have to overwrite/delete the old one.

I hope someone can help.

Sorry for my bad english, i come from Germany *g*

Thanks for all help

[Maiki]

Code: Select all

## Set url
set url "http://www.mywebspace.de/maps.txt"



##################### No edit ######################


if {[catch {package require http} error]} { putlog "Error=$error" }

bind pub - !download download

proc download {nick uhost hand chan arg} {
	set tok [http::geturl $::url]
	set data [http::data $tok]
	http::cleanup $tok
	set fs [open scripts/download.txt w]; puts $fs $data; close $fs
}

[oO3ddYOo]

What the [censored]

I search many hours and u make it in few minutes

BIG THANX