egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2009-04-18T13:55:27-04:00 https://forum.eggheads.org/app.php/feed/topic/16815 2009-04-17T12:02:34-04:00 2009-04-17T12:02:34-04:00 https://forum.eggheads.org/viewtopic.php?p=88483#p88483 <![CDATA[Thanks a lot :D]]>

The hint leads me the right way.

There was an "Sign" in that var

Code:

That "" wouldnt be stripped by "set amount [stripcodes abcgru $amount]"

Now i have to remove that crap, not sure how but perhaps ill find a way.

thx nml375

Statistics: Posted by aRTiST — Fri Apr 17, 2009 12:02 pm

]]> 2009-04-17T11:27:28-04:00 2009-04-17T11:27:28-04:00 https://forum.eggheads.org/viewtopic.php?p=88481#p88481 <![CDATA[[SOLVED] missing close parenthesis]]>

Code: 

double(3.7G)
where the G is to blame. Edit it to use proper integers, and it should work.

Edit: Think I hit submit abit early. It would seem the do:format proc fails to remove that G. It does use string map to remove GB, but that would fail to remove a simple G. Possible faulty/corrupt data in $amount ?

Statistics: Posted by nml375 — Fri Apr 17, 2009 11:27 am

]]> 2009-04-18T13:55:27-04:00 2009-04-17T11:09:11-04:00 https://forum.eggheads.org/viewtopic.php?p=88479#p88479 <![CDATA[[SOLVED] missing close parenthesis]]>

Code: 

proc do:format {amount} {set amount [stripcodes abcgru $amount]if {[string match "*KB." $amount]} {set amount [string map {"KB." ""} $amount]set amount [expr double($amount)*1024]} elseif {[string match "*MB." $amount]} {set amount [string map {"MB." ""} $amount]set amount [expr double($amount)*1024*1024]} elseif {[string match "*GB." $amount]} {set amount [string map {"GB." ""} $amount]set amount [expr double($amount)*1024*1024*1024]} elseif {[string match "*TB." $amount]} {set amount [string map {"TB." ""} $amount]set amount [expr double($amount)*1024*1024*1024*1024]} elseif {[string match "*PB." $amount]} {set amount [string map {"PB." ""} $amount]set amount [expr double($amount)*1024*1024*1024*1024*1024]} else {set amount [string map {"B." ""} $amount]set amount $amount}return $amount}proc format_1024_units {value} {set len [string length $value]if {$value < 1024} {return [format "%s B" $value]} else {set unit [expr {($len - 1) / 3}]return [format "%.1f %s" [expr {$value / pow(1024,$unit)}] [lindex [list B KB MB GB TB PB EB ZB YB] $unit]]}}
This is part of a script that im trying to use, but i allways got the following error

Code: 

Tcl error [do:addnukes]: syntax error in expression "double(235929600)+double(3.7G)": missing close parenthesis at end of function call
The error leads to that part :

Code: 

set newcredits_day [expr double([lindex $userdata_day 0])+double([do:format $amount])]set newcredits_week [expr double([lindex $userdata_week 0])+double([do:format $amount])]set newcredits_month [expr double([lindex $userdata_month 0])+double([do:format $amount])]

In my opinion parenthesis is a missing "}" , but i cant find an unclosed one.

i would be very happy for every help in that problem.

greets arti

Statistics: Posted by aRTiST — Fri Apr 17, 2009 11:09 am

]]>