The code works perfectly for Leach protocl. But I get the following error when i run Leach-C. Please Help me..

can't read "env(uAMPS_LIBRARY)": no such variable
while executing
"source $env(uAMPS_LIBRARY)/ns-leach.tcl"
(file "tcl/mobility/stat-clus.tcl" line 7)
invoked from within
"source.orig tcl/mobility/stat-clus.tcl"
("uplevel" body line 1)
invoked from within
"uplevel source.orig[list $fileName]"
invoked from within
"if [$instance_ is_http_url $fileName] {
set buffer [$instance_ read_url $fileName]
uplevel eval $buffer
} else {
uplevel source.orig[list $fileName]
..."
(procedure "source" line 8)
invoked from within
"source tcl/mobility/$opt(rp).tcl"
(file "tcl/ex/wireless.tcl" line 187)

This is a voluntary community. We do this for FREE. It is NOT acceptable to demand URGENT ATTENTION IN CAPITAL LETTERS from anyone dong something for free, especially

This also has nothing at all to do with wifi. It's a software issue of some form. Moved to Linux - software with a less insulting title.