summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
9bc8098)
2. Fixed language problem with spoof, but that simply hides a whole can of
worms that I shall have to address later.
1
+13Jan05=======================================================================
+1. Fixed prompting in languages other than English.
+2. Fixed language problem with spoof, but that simply hides a whole can of
+worms that I shall have to address later.
12Jan05=======================================================================
1. Add $main::bumpexisting variable which allows a new connection for a user
call to disconnect an existing connection with the same call. The default for
12Jan05=======================================================================
1. Add $main::bumpexisting variable which allows a new connection for a user
call to disconnect an existing connection with the same call. The default for
my $mycall = $self->call;
my $myuser = $self->user;
my $mycall = $self->call;
my $myuser = $self->user;
+my $mylang = $self->lang;
my ($call, $newline) = split /\s+/, $line, 2;
return (1, $self->msg('nodee1', $call)) if DXChannel->get($call);
my ($call, $newline) = split /\s+/, $line, 2;
return (1, $self->msg('nodee1', $call)) if DXChannel->get($call);
push @out, map {"spoof $call: $_"} @in;
$self->call($mycall);
$self->user($myuser);
push @out, map {"spoof $call: $_"} @in;
$self->call($mycall);
$self->user($myuser);
password => 'Wachtwoord gezet of gewijzigd voor $_[0]',
pingo => 'Ping gestart naar $_[0]',
pingi => 'Ping ontvangen van $_[0] $_[1] (Ave $_[2]) secs',
password => 'Wachtwoord gezet of gewijzigd voor $_[0]',
pingo => 'Ping gestart naar $_[0]',
pingi => 'Ping ontvangen van $_[0] $_[1] (Ave $_[2]) secs',
- pr => '$_[0] de $main::mycall $_[1] $_[2] >',
- pr2 => '($_[0]) de $main::mycall $_[1] $[2] >',
priv => 'Privilege level gewijzigd op $_[0]',
prx => '$main::mycall >',
qll => 'Geef uw locator met set/location of set/qra',
priv => 'Privilege level gewijzigd op $_[0]',
prx => '$main::mycall >',
qll => 'Geef uw locator met set/location of set/qra',
pinge1 => 'Vous ne pouvez pas vous pinger vous-même !',
pingint => 'Intervalle de ping vers $_[0] fixé à $_[1] secondes',
'pos' => 'Indicatif source : latitude $_[0] : longitude $_[1] : $_[2]',
pinge1 => 'Vous ne pouvez pas vous pinger vous-même !',
pingint => 'Intervalle de ping vers $_[0] fixé à $_[1] secondes',
'pos' => 'Indicatif source : latitude $_[0] : longitude $_[1] : $_[2]',
- pr => '$_[0] de $main::mycall $_[1] $_[2] >',
- pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >',
prs => 'Prompt défini comme étant \"$_[0]\"',
pru => 'Prompt remis à sa valeur par défaut',
priv => 'Niveau de privilège changé en $_[0]',
prs => 'Prompt défini comme étant \"$_[0]\"',
pru => 'Prompt remis à sa valeur par défaut',
priv => 'Niveau de privilège changé en $_[0]',
pinge1 => 'No puedes enviarte un ping a ti mismo!',
pingint => 'Intervalo de ping para $_[0] ajustado a $_[1] segundos',
'pos' => 'Desde el indicativo: $_[0] Lat: $_[1] Long: $_[2]',
pinge1 => 'No puedes enviarte un ping a ti mismo!',
pingint => 'Intervalo de ping para $_[0] ajustado a $_[1] segundos',
'pos' => 'Desde el indicativo: $_[0] Lat: $_[1] Long: $_[2]',
- pr => '$_[0] de $main::mycall $_[1] $_[2] >',
- pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >',
prs => 'El Prompt ha sido cambiado a \"$_[0]\"',
pru => 'El Prompt vuelve a ser el normal por defecto',
priv => 'Nivel de privilegios modificado para $_[0]',
prs => 'El Prompt ha sido cambiado a \"$_[0]\"',
pru => 'El Prompt vuelve a ser el normal por defecto',
priv => 'Nivel de privilegios modificado para $_[0]',
pinge1 => 'Du kannst Dich nicht selber pingen!',\r
pingint => 'Ping-Intervall zu $_[0] gesetzt auf $_[1] Sekunden',\r
'pos' => 'Von Rufzeichen: $_[0] Breite: $_[1] Laenge: $_[2]',\r
pinge1 => 'Du kannst Dich nicht selber pingen!',\r
pingint => 'Ping-Intervall zu $_[0] gesetzt auf $_[1] Sekunden',\r
'pos' => 'Von Rufzeichen: $_[0] Breite: $_[1] Laenge: $_[2]',\r
- pr => '$_[0] de $main::mycall $_[1] $_[2] >',
- pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >',
prs => 'Prompt gesetzt auf \"$_[0]\"',
pru => 'Prompt jetzt zurueckgesetzt auf Default-Einstellung',
priv => 'Priviligierten Level geaendert auf $_[0]',
prs => 'Prompt gesetzt auf \"$_[0]\"',
pru => 'Prompt jetzt zurueckgesetzt auf Default-Einstellung',
priv => 'Priviligierten Level geaendert auf $_[0]',
pinge1 => 'Non puoi far un ping su te stesso!',
pingint => 'Intervallo di ping per $_[0] impostato a $_[1] secondi',
'pos' => 'Dal nominativo: $_[0] Lat: $_[1] Long: $_[2]',
pinge1 => 'Non puoi far un ping su te stesso!',
pingint => 'Intervallo di ping per $_[0] impostato a $_[1] secondi',
'pos' => 'Dal nominativo: $_[0] Lat: $_[1] Long: $_[2]',
- pr => '$_[0] de $main::mycall $_[1] $_[2] >',
- pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >',
priv => 'Privilegi cambiati per $_[0]',
prs => 'Prompt impostato a \"$_[0]\"',
pru => 'Prompt reimpostato al predefinito',
priv => 'Privilegi cambiati per $_[0]',
prs => 'Prompt impostato a \"$_[0]\"',
pru => 'Prompt reimpostato al predefinito',
pinge1 => 'No pode fazer ping para si prprio!',
pingint => 'Intervalo de Ping em $_[0] definido para $_[1] segundos',
'pos' => 'Do indicativo: $_[0] Lat: $_[1] Long: $_[2]',
pinge1 => 'No pode fazer ping para si prprio!',
pingint => 'Intervalo de Ping em $_[0] definido para $_[1] segundos',
'pos' => 'Do indicativo: $_[0] Lat: $_[1] Long: $_[2]',
- pr => '$_[0] de $main::mycall $_[1] $_[2] >',
- pr2 => '($_[0]) de $main::mycall $_[1] $_[2] >',
prs => 'Prompt agora definida para \"$_[0]\"',
pru => 'Prompt agora regressou para a default',
priv => 'Nivel de privilgio alterado em $_[0]',
prs => 'Prompt agora definida para \"$_[0]\"',
pru => 'Prompt agora regressou para a default',
priv => 'Nivel de privilgio alterado em $_[0]',