Added API::IRC::mode
This commit is contained in:
commit
26520af104
2 files changed
+2
-54
No files matched your search
@@ -153,11 +153,11 @@ foreach my $cskey (keys %cservers) {
|
|||||||
PeerAddr => $cservers{$cskey}{'host'}[0],
|
PeerAddr => $cservers{$cskey}{'host'}[0],
|
||||||
PeerPort => $cservers{$cskey}{'port'}[0]
|
PeerPort => $cservers{$cskey}{'port'}[0]
|
||||||
) or err(2, "Failed to connect to server: ".$cskey." [".$cservers{$cskey}{'host'}[0].":".$cservers{$cskey}{'port'}[0]."]", 0) and next; # Or error.
|
) or err(2, "Failed to connect to server: ".$cskey." [".$cservers{$cskey}{'host'}[0].":".$cservers{$cskey}{'port'}[0]."]", 0) and next; # Or error.
|
||||||
# Send PASS if we have one
|
# Send PASS if we have one.
|
||||||
if (defined $cservers{$cskey}{'pass'}[0]) {
|
if (defined $cservers{$cskey}{'pass'}[0]) {
|
||||||
socksnd($cskey, "PASS :".$cservers{$cskey}{'pass'}[0]) or
|
socksnd($cskey, "PASS :".$cservers{$cskey}{'pass'}[0]) or
|
||||||
err(2, "Failed to connect to server: ".$cskey." [".$cservers{$cskey}{'host'}[0].":".$cservers{$cskey}{'port'}[0]."]", 0)
|
err(2, "Failed to connect to server: ".$cskey." [".$cservers{$cskey}{'host'}[0].":".$cservers{$cskey}{'port'}[0]."]", 0)
|
||||||
and next;
|
and next;
|
||||||
}
|
}
|
||||||
# Send USER and NICK.
|
# Send USER and NICK.
|
||||||
socksnd($cskey, "USER ".$cservers{$cskey}{'ident'}[0]." * * :".$cservers{$cskey}{'realname'}[0]) or
|
socksnd($cskey, "USER ".$cservers{$cskey}{'ident'}[0]." * * :".$cservers{$cskey}{'realname'}[0]) or
|
||||||
|
|||||||
@@ -1,52 +0,0 @@
|
|||||||
Auto IRC Bot 3.0: Change Log
|
|
||||||
------------------------------------------------------------------
|
|
||||||
|
|
||||||
3.0 Indev
|
|
||||||
==================================================================
|
|
||||||
* Added mode subroutine to API::IRC.
|
|
||||||
* Added PASS support.
|
|
||||||
* Bug fix: err() fatal errors now work. They didn't work
|
|
||||||
due to bad regex.
|
|
||||||
* Added an installation script.
|
|
||||||
* Fork into the background if not in debug mode.
|
|
||||||
* Begin on API::IRC.
|
|
||||||
* Parse PING and Numeric:001.
|
|
||||||
* Begin on the IRC parser.
|
|
||||||
* Added sockets, support for multiple asynchronous sockets.
|
|
||||||
* Bug fix: conf_get() now returns correct data by checking
|
|
||||||
what type of reference the requested value is.
|
|
||||||
* Foundation completed.
|
|
||||||
* Added API function err()
|
|
||||||
* Added API function dbug()
|
|
||||||
* Added a debug mode.
|
|
||||||
* Old logs can now expire if set to do so in config.
|
|
||||||
* Added API function alog()
|
|
||||||
* Added API::Log::expire_logs()
|
|
||||||
* Added API function println()
|
|
||||||
* Use Mouse.
|
|
||||||
* Added contributor; Chazz "Alexandria" Wolcott.
|
|
||||||
* Gettext is no longer used.
|
|
||||||
* German translations. Contributed by Chazz "Alexandria" Wolcott.
|
|
||||||
* Converted English and French files to new format.
|
|
||||||
* Created a new method of translation.
|
|
||||||
* Use Exporter for the API functions.
|
|
||||||
* Added developer; Timothy Estes.
|
|
||||||
* Added developer; Russell Bradford.
|
|
||||||
* Require Perl 5.10.0 or higher.
|
|
||||||
* Removed developer; Russell Bradford.
|
|
||||||
* Renamed config value language to locale.
|
|
||||||
* Added an example config file.
|
|
||||||
* Added API function conf_get()
|
|
||||||
* Renamed API::Standard to API::Std
|
|
||||||
* Created a configuration file parser.
|
|
||||||
* New developer; Russell Bradford.
|
|
||||||
* Import the POSIX module.
|
|
||||||
* Fixed accent marks in French translation files.
|
|
||||||
* French translations.
|
|
||||||
* Added gettext compile script.
|
|
||||||
* Gettext English language files.
|
|
||||||
* New developer; Matthew Barksdale.
|
|
||||||
* Added documentation for the future Auto-Flatfile database
|
|
||||||
format.
|
|
||||||
* Added a basic launcher.
|
|
||||||
* Finished standard documentation.
|
|
||||||
Reference in new issue
Block a user