egghelp.org community

[zerodtk]

hello there eggdrop users
i need a little help with this file handling stuff
i'm working on a url catcher script, which catches every said urls on the channel, and makes them shown on a webpage
there's one script like this out there which uses mysqltcl and stores the data into a mysql database
what i am doing is really simple
catches all said urls with *http* and puts them in index.html
my problem that the bot puts every url after the latest one
so if there is a link on the page, the second one goes after

what i actually want is to put a pre defined line into the html
for example <---post here--->
and to make the bot put every post after this line and before the old posts
so every new post will be on the first place

[nml375]

Actually, this will take a little more than a simple if-conditional.
The problem at hand, is that when you write to a file, by default the file pointer will be at the end. If you move it to an earlier point within the file (using seek), you'll instead overwrite whatever was there before.

To make this work, you'll need to read the whole file into memory, split the file in two (at the point you wish to insert the text), and combine your new url and the two halves into a new string. This you then write to your file.

Below you'll see an example on how to do this. Implementing/adapting this to suite your code shouldn't be too hard. Feel free to ask if anything is unclear or confusing.

[zerodtk]

whenever i want to put in a set
f.e.
set string [read $af]

it says
Tcl error [catch_url_pubm]: wrong # args: should be "set varName ?newValue?"

any advice?

[nml375]

That looks very odd. The syntax is correct.
You could try and enable the .set command (see your configfile on how to do this), and type ".set errorInfo" on the dcc partyline right after the error occurs.
_________________
NML_375, idling at #eggdrop@IrcNET

[zerodtk]

well,

[01:28:41] [(Angela]: [01:26] #z3r0# set errorinfo
[01:28:41] [(Angela]: Error: can't read "errorinfo": no such variable

hm?

[zerodtk]

it was my mistake...
.set errorInfo worked

[nml375]

Ahh...
Guess I edited my code once too many, I'll update my previous post in a sec
_________________
NML_375, idling at #eggdrop@IrcNET

[zerodtk]

the error is now gone
this what happens

the file looks like

[nml375]

That's odd..
I missed including the file pointer in the puts-line, but that shouldn't wipe your file.. (updated post to fix that though)

Do you think you could post your implementation of my code?
_________________
NML_375, idling at #eggdrop@IrcNET

[zerodtk]

it was set to w+ not a+
actually its not deleting the header now
but deletes the <!-- post here ---> and the first few characters of the footer..

[nml375]

Actually, I do spot a flaw in my code. But it should produce an entirely different behaviour to what you are describing.

'k.. after a few minutes of thinking.. the problem at hand, is that you're opening the file in append-mode. That basically means that the file pointer is set to the end of the file... reading the file thus returns nothing. Opening the file in normal read/write mode solves that issue. I also removed some double-work I did in my first post.

The code below should behave properly.

[zerodtk]

i think we are in the finish..
but there's one more thing

[nml375]

'k.. ohh, forgot, seek uses bytes, not characters.
Guess we'll have to do it the other way *sigh*

[zerodtk]

it works!!! thank you very much!!!
i can't believe it all works now

i will put it in the full script tomorrow morning and will let you know

thanks again!!

[zerodtk]

hey! all working! everything's just fine

thanks again