View Single Post
Old 02-09-2004, 11:38 AM  
durulink
Senior Member
 
Join Date: Mar 2003
Posts: 102
Default

AND...

'show_free'
Code:
	} elseif { $arg == "ALL" } {
		for {set i 0} {$i < $device(TOTAL)} {incr i} {
			set output $announce(DEFAULT)
			foreach line [split [exec $binary(DF)] "\n"] {
				if { [string match [lindex $line 0] [string toupper [lindex $device($i) 0]]] == 1 } {
					set devices "\[[lrange $device($i) 1 end]: %bold[format %.2f [expr [lindex $line 3].0/1024]]%bold/[format %.2f [expr [lindex $line 5].0/1024]] GB\]"
					set total_freespace [expr $total_freespace + [expr [lindex $line 3].0/1024]]
					set total_space [expr $total_space + [expr [lindex $line 5].0/1024]]
				}
			}
			set output [replacevar $output "%msg" $devices]
			set output [basicreplace $output "FREE"]
			if { $blfs(KEY) != "" } {
				set eline [encrypt $blfs(KEY) $output]
				puthelp "PRIVMSG $chan :$blfs(HEADER) $eline"
			} else {puthelp "PRIVMSG $chan :$output"}
		}
		set output $announce(DEFAULT)
		set devices "%boldTOTAL%bold: %bold[format %.2f $total_freespace]%bold/[format %.2f $total_space] GB"
		set output [replacevar $output "%msg" $devices]
		set output [basicreplace $output "FREE"]
		if { $blfs(KEY) != "" } {
			set eline [encrypt $blfs(KEY) $output]
			puthelp "PRIVMSG $chan :$blfs(HEADER) $eline"
		} else {puthelp "PRIVMSG $chan :$output"}
Bug '\n' in iodiskspace.exe
Attached Images
File Type: jpg iodiskspace.jpg (26.3 KB, 336 views)
durulink is offline   Reply With Quote