egghelp/eggheads community

thanks

2011-05-04T19:59:28-04:00

I have been looking for something like this. Thanks. I notice though when you !delnews 6 out of 10 for example it counts backward so it in fact deletes the 4th one.
Is it just me?

Statistics: Posted by outthere — Wed May 04, 2011 7:59 pm

News.tcl Adding/Deleting/Reading news items from/into a file

2010-05-12T01:41:17-04:00

Script is doing its work!

I was almost submitting something totally different here, though

Cause I had some error while chansetting my chan for +snews, although I killed the eggdrop and reloaded it afterwards and it is now working like a charm!

Many thanks! Really much appreciated!

Statistics: Posted by DiEPLZ — Wed May 12, 2010 1:41 am

News.tcl Adding/Deleting/Reading news items from/into a file

2010-05-11T15:44:42-04:00

Code:

# Author: tomekk                                                                          # e-mail:  tomekk/@/oswiecim/./eu/./org                                                                      # home page: http://tomekk.oswiecim.eu.org/#                                                                                                    # Version 0.1 #                                                         # This file is Copyrighted under the GNU Public License.# http://www.gnu.org/copyleft/gpl.html # if you want to use commands from this script on your chan, type in eggdrop console (via telnet or DCC chat)    # .chanset #channel_name +snews       # and later .save # how many last news to showset newsnr 3# file with newsset newsdb "news.db"#########################################################bind pub -|- !news show_newsbind pub -|- !addnews add_newsbind pub -|- !delnews del_newssetudef flag snewsif {[file exists $newsdb] == 0} {                                                                               set new_db [open $newsdb w]puts $new_db "news 1\nnews 2\nnews 3"close $new_db}                                         proc get_news { } {global newsdbset get_data [open $newsdb r]set all_news [split [read $get_data] "\n"]close $get_datareturn $all_news}proc show_news { nick uhost hand chan arg } {global newsnrif {![channel get $chan snews]} {return}set cmd [lindex [split $arg] 0]set news_list [get_news]set news_len [expr [llength $news_list] - 1]if {$cmd == ""} {if {$news_len > 0} {set news_counter 1for {set i $news_len} {$i > [expr $news_len - $newsnr]} {set i [expr $i - 1]}  {if {$i > 0} {putquick "PRIVMSG $chan :$news_counter: [lindex $news_list [expr $i - 1]]"incr news_counter 1}}} {putquick "PRIVMSG $chan :News file is empty."}} elseif {$cmd == "count"} {putquick "PRIVMSG $chan :Total news in file: $news_len"}}proc add_news { nick uhost hand chan arg } {global newsdbif {![channel get $chan snews]} {return}if {[string trim $arg] != ""} {set write_to_file [open $newsdb a]puts $write_to_file $argclose $write_to_fileputquick "PRIVMSG $chan :The news item has been added."}}proc del_news { nick uhost hand chan arg } {global newsdbif {![channel get $chan snews]} {return}set arg [string trim $arg]if {$arg == "all"} {set clean_db [open $newsdb w]close $clean_dbputquick "PRIVMSG $chan :All news items have been deleted."} {set in_args [split $arg]set numbers [list]foreach in_arg $in_args {if {[regexp {^([0-9]+)$} $in_arg]} {if {$in_arg > 0} {set del_nr [expr $in_arg - 1]lappend numbers $del_nr}}}if {[llength $numbers] > 0} {set the_news [get_news]set the_number [llength $the_news]if {$the_number > 0 } {set rewrite_db [open $newsdb w]for {set i 0} {$i < $the_number} {incr i 1} {if {[lsearch $numbers $i] == -1} {set the_line [lindex $the_news $i]if {$the_line != ""} {puts $rewrite_db $the_line}} {putquick "PRIVMSG $chan :Item [expr $i + 1] has been deleted"}}close $rewrite_db}}}}putlog "simple-news.tcl ver 0.1 by tomekk loaded"

i've made tiny fix to my other script

!news - shows news
!news count - counts the news

!addnews - adds the news

!delnews X X X X - removes the news (easier without , ;p)
!delnews all - removes all news

try it

Statistics: Posted by tomekk — Tue May 11, 2010 3:44 pm

News.tcl Adding/Deleting/Reading news items from/into a file

2010-05-11T07:15:12-04:00

The thing is i'm not root on the shell and root dont wanna install any sql stuff

Statistics: Posted by DiEPLZ — Tue May 11, 2010 7:15 am

News.tcl Adding/Deleting/Reading news items from/into a file

2010-05-11T06:54:10-04:00

I would rather use sqlite3 to store stuff in than reinvent the wheel and store them in a text file.

Statistics: Posted by caesar — Tue May 11, 2010 6:54 am

News.tcl Adding/Deleting/Reading news items from/into a file

2010-05-11T06:09:37-04:00

Hi all,

last time I requested a script here, arfer made me a fine script wich look up stuff on pricewatch (http://www.tweakers.net/pricewatch) see the script @ http://forum.egghelp.org/viewtopic.php? ... pricewatch

Arfer still many thanks for this! i'm using it allot.

Anyway i'm looking for a pretty simple news script, wich I couldnt find in the archive or on google

This is what the script must be able todo:

!addnews - wich result in adding the in a simple .txt file in /scripts/news.txt (every news item on a new line)
!delnews <1,2,3 - all> - wich result in deleting line 1,2,3 or all (would be neat if you could delete line 1, 4 and 13, without deleting the rest)
!news - wich result the eggdrop to announce last 3 or 5 (perhaps editable) news lines

a nice feature would be if the eggdrop announce something like:
!news
<@bot> 1: this script is awesome
<@bot> 2: Another fine script is made

!delnews 2
<@bot> Item 2 has been deleted

!delnews all
<@bot> All news items has been deleted

!addnews this site is the best
<@bot> The news item has been

I've tried user_news, wich is asking for nickserv identification, wich isnt an option
I've tried news_1.01, wich didnt created news ;(
I've tried holm_news wich couldnt get others, except for shell user, to add hosts thru irc

So if someone has a script like this allready; pls gimme a link
otherwise I would be very honoured if someone is able to make such a script for me

Many thanks in advance

Statistics: Posted by DiEPLZ — Tue May 11, 2010 6:09 am