107 lines
2.6 KiB
Plaintext
107 lines
2.6 KiB
Plaintext
program ModemCtl;
|
|
|
|
{$MODE OBJFPC}
|
|
|
|
uses SysUtils, StrUtils, Sockets;
|
|
|
|
type
|
|
//Connection state
|
|
Connection = record
|
|
Call: boolean;
|
|
Addr: longword;
|
|
Port: word;
|
|
Answer: boolean;
|
|
Hang: boolean;
|
|
end;
|
|
|
|
var
|
|
ModemConn: Connection; //State of the modem
|
|
State: file of Connection; //File storing the state of the modem
|
|
Addr: in_addr; //Temporary variable
|
|
|
|
begin
|
|
|
|
//Check the arguments
|
|
if ParamStr (1) = '-c' then begin
|
|
if ParamCount > 2 then begin
|
|
writeln ('Usage: modemctl [-c address:port]/-a/-h');
|
|
halt (1);
|
|
end;
|
|
end
|
|
else begin
|
|
if ParamCount > 1 then begin
|
|
writeln ('Usage: modemctl [-c address:port]/-a/-h');
|
|
halt (1);
|
|
end;
|
|
end;
|
|
|
|
//Assign the state file
|
|
assign (State, ExpandFileName ('~/.thingamajig/connection'));
|
|
|
|
//Read existing state if any
|
|
if FileExists (ExpandFileName ('~/.thingamajig/connection')) then begin
|
|
try
|
|
reset (State);
|
|
read (State, ModemConn);
|
|
close (State);
|
|
except
|
|
end;
|
|
end
|
|
//Or else assign a default state
|
|
else begin
|
|
ModemConn.Call := false;
|
|
ModemConn.Addr := 0;
|
|
ModemConn.Port := 0;
|
|
ModemConn.Answer := false;
|
|
ModemConn.Hang := false;
|
|
end;
|
|
|
|
//Set the connection
|
|
if ParamStr (1) = '-c' then begin
|
|
ModemConn.Call := true;
|
|
try
|
|
Addr := StrToHostAddr (ExtractDelimited (1, ParamStr (2), [':']));
|
|
ModemConn.Addr := Addr.s_addr;
|
|
except
|
|
writeln ('Usage: modemctl [-c address:port]/-a/-h');
|
|
halt (1);
|
|
end;
|
|
try
|
|
ModemConn.Port := StrToInt (ExtractDelimited (2, ParamStr (2), [':']));
|
|
except
|
|
writeln ('Usage: modemctl [-c address:port]/-a/-h');
|
|
halt (1);
|
|
end;
|
|
ModemConn.Answer := false;
|
|
ModemConn.Hang := false;
|
|
end
|
|
else if ParamStr (1) = '-a' then begin
|
|
ModemConn.Call := false;
|
|
ModemConn.Addr := 0;
|
|
ModemConn.Port := 0;
|
|
ModemConn.Answer := true;
|
|
ModemConn.Hang := false;
|
|
end
|
|
else if ParamStr (1) = '-h' then begin
|
|
ModemConn.Call := false;
|
|
ModemConn.Addr := 0;
|
|
ModemConn.Port := 0;
|
|
ModemConn.Answer := false;
|
|
ModemConn.Hang := true;
|
|
end
|
|
else begin
|
|
writeln ('Usage: modemctl [-c address:port]/-a/-h');
|
|
halt (1);
|
|
end;
|
|
|
|
//Write the state
|
|
try
|
|
rewrite (State);
|
|
write (State, ModemConn);
|
|
close (State);
|
|
except
|
|
writeln ('Error: could not set the connection');
|
|
end;
|
|
|
|
end.
|