Compare commits
146 Commits
v0.9.6
...
f9848ed627
| Author | SHA1 | Date | |
|---|---|---|---|
|
f9848ed627
|
|||
|
686a39df38
|
|||
|
9cea3fca91
|
|||
|
5165f76b7c
|
|||
|
92ac13f3c6
|
|||
|
df4ca74580
|
|||
|
9e297244a4
|
|||
|
d32ba133c0
|
|||
|
ce3976e1ec
|
|||
|
e5ed89646b
|
|||
|
5e728f6d31
|
|||
|
766f68e070
|
|||
|
3dc5242d43
|
|||
|
fd9d5db1d2
|
|||
|
cb480b4c71
|
|||
|
59cc423694
|
|||
|
9323089d66
|
|||
|
de7df1f60d
|
|||
|
b082e82b62
|
|||
|
b8dbc70a9c
|
|||
|
e0ad67a921
|
|||
|
565edc15b4
|
|||
|
5d285ffb96
|
|||
|
50057d5149
|
|||
|
1f64710e79
|
|||
|
027bf8666e
|
|||
|
7c7e12d8d5
|
|||
|
3cb93d24e8
|
|||
|
acddfe2cfa
|
|||
|
051c43a072
|
|||
|
0fe0b56280
|
|||
|
f0281cf028
|
|||
|
da5dd4eb91
|
|||
|
10cb6651c0
|
|||
|
7f28dcd1ef
|
|||
|
61c52d793c
|
|||
|
b4dd0052ff
|
|||
|
e3c47c33fa
|
|||
|
80c1e8f8eb
|
|||
|
c5f49ab1e6
|
|||
|
6f62b9c0c7
|
|||
|
c1d69e3630
|
|||
|
c75ef167f2
|
|||
|
ddffc71abe
|
|||
|
5a0b2d1c57
|
|||
|
bb451a5050
|
|||
|
61f15ead8a
|
|||
|
17f430043a
|
|||
|
735096d76d
|
|||
|
1ba59e6ee0
|
|||
|
f9ba682c0e
|
|||
|
8e8ffe2c73
|
|||
|
d05c85833d
|
|||
|
2336340ad8
|
|||
|
8f5dec0456
|
|||
|
3dc6ee9a5b
|
|||
|
821ce04915
|
|||
|
2fe3b95ecd
|
|||
|
32c99c9d66
|
|||
|
cd7133e173
|
|||
|
b4ed52015a
|
|||
|
271689da99
|
|||
|
38c23d0d38
|
|||
|
439af8884c
|
|||
|
8ccf38ad76
|
|||
|
47a4c8beca
|
|||
|
1de4a2ae34
|
|||
|
53cc52e320
|
|||
|
cbe4009308
|
|||
|
06d3b3bd2b
|
|||
|
132e4a38b8
|
|||
|
8429995cb6
|
|||
|
03ed097353
|
|||
|
b68e5ceedc
|
|||
|
0d0d0b6863
|
|||
|
577fd1b446
|
|||
|
500c83231f
|
|||
|
4b7649211a
|
|||
|
9afa4944b6
|
|||
|
e58ce1f02e
|
|||
|
98e95de90e
|
|||
|
383f6af344
|
|||
|
13c85aa361
|
|||
|
419b02e9f7
|
|||
|
c89032e4e0
|
|||
|
474657c7b3
|
|||
|
323a372389
|
|||
|
76f4e6faa6
|
|||
|
2c48bc9959
|
|||
|
e1a4fab40d
|
|||
|
1ff80ddd10
|
|||
|
12c8ace6a1
|
|||
|
49706efe86
|
|||
|
9d8a7a10d0
|
|||
|
73c3ca3633
|
|||
|
559232ccb5
|
|||
|
6837fdb7c4
|
|||
|
2759c311fa
|
|||
|
529a46ad41
|
|||
|
f9ef123171
|
|||
|
f51dd936f5
|
|||
|
7ce1615021
|
|||
|
270d9017e9
|
|||
|
ee5cac4f21
|
|||
|
59ac02d91f
|
|||
|
d78cf10f04
|
|||
|
572a7cb804
|
|||
|
03e8ad0a3e
|
|||
|
f665f147ff
|
|||
|
9819b75b64
|
|||
|
f716e7601f
|
|||
|
eea761d9f7
|
|||
|
dd8e543a20
|
|||
|
dc8b580574
|
|||
|
2d9856cca8
|
|||
|
289193dd1a
|
|||
|
405848deeb
|
|||
|
b9991d4766
|
|||
|
1ff82ee907
|
|||
|
57e92fbb85
|
|||
|
a04dfc59fe
|
|||
|
7f69655c54
|
|||
|
444f97b357
|
|||
|
ed7130a664
|
|||
|
ba1c2357af
|
|||
|
a48023553e
|
|||
|
d29317b29c
|
|||
|
deb096a0e9
|
|||
|
722fc48a30
|
|||
|
6287e20919
|
|||
|
07d59db5ab
|
|||
|
2909b017fb
|
|||
|
64d4009427
|
|||
|
4179a9bd49
|
|||
|
aa4e86c2a0
|
|||
|
5bbe9ceef8
|
|||
|
f80226620c
|
|||
|
2fccfb10f7
|
|||
|
b9eddabedd
|
|||
|
50ed74a740
|
|||
|
3ca08badc2
|
|||
|
b0f5b8c10d
|
|||
|
d87d533078
|
|||
|
3c47e5b354
|
|||
|
54d3406175
|
|||
|
f79dd027e9
|
32
.clang-format
Normal file
32
.clang-format
Normal file
@@ -0,0 +1,32 @@
|
|||||||
|
# clang-format is fairly limited, and these rules are approximate:
|
||||||
|
# - array initializers can get terribly mangled with clang-format 12.0,
|
||||||
|
# - sometimes it still aligns with space characters,
|
||||||
|
# - struct name NL { NL ... NL } NL name; is unachievable.
|
||||||
|
BasedOnStyle: GNU
|
||||||
|
ColumnLimit: 80
|
||||||
|
IndentWidth: 4
|
||||||
|
TabWidth: 4
|
||||||
|
UseTab: ForContinuationAndIndentation
|
||||||
|
BreakBeforeBraces: Allman
|
||||||
|
SpaceAfterCStyleCast: true
|
||||||
|
AlignAfterOpenBracket: DontAlign
|
||||||
|
AlignOperands: DontAlign
|
||||||
|
AlignConsecutiveMacros: Consecutive
|
||||||
|
AllowAllArgumentsOnNextLine: false
|
||||||
|
AllowAllParametersOfDeclarationOnNextLine: false
|
||||||
|
IndentGotoLabels: false
|
||||||
|
|
||||||
|
# IncludeCategories has some potential, but it may also break the build.
|
||||||
|
# Note that the documentation says the value should be "Never".
|
||||||
|
SortIncludes: false
|
||||||
|
|
||||||
|
# This is a compromise, it generally works out aesthetically better.
|
||||||
|
BinPackArguments: false
|
||||||
|
|
||||||
|
# Unfortunately, this can't be told to align to column 40 or so.
|
||||||
|
SpacesBeforeTrailingComments: 2
|
||||||
|
|
||||||
|
# liberty-specific macro body wrappers.
|
||||||
|
MacroBlockBegin: "BLOCK_START"
|
||||||
|
MacroBlockEnd: "BLOCK_END"
|
||||||
|
ForEachMacros: ["LIST_FOR_EACH"]
|
||||||
2
.gitignore
vendored
2
.gitignore
vendored
@@ -7,3 +7,5 @@
|
|||||||
/uirc3.files
|
/uirc3.files
|
||||||
/uirc3.creator*
|
/uirc3.creator*
|
||||||
/uirc3.includes
|
/uirc3.includes
|
||||||
|
/uirc3.cflags
|
||||||
|
/uirc3.cxxflags
|
||||||
|
|||||||
176
CMakeLists.txt
176
CMakeLists.txt
@@ -1,22 +1,28 @@
|
|||||||
project (uirc3 C)
|
# Ubuntu 18.04 LTS and OpenBSD 6.4
|
||||||
cmake_minimum_required (VERSION 2.8.11)
|
cmake_minimum_required (VERSION 3.10)
|
||||||
|
project (uirc3 VERSION 1.4.0 LANGUAGES C)
|
||||||
|
|
||||||
# Options
|
# Options
|
||||||
option (WANT_READLINE "Use GNU Readline for the UI (better)" ON)
|
option (WANT_READLINE "Use GNU Readline for the UI (better)" ON)
|
||||||
option (WANT_LIBEDIT "Use BSD libedit for the UI" OFF)
|
option (WANT_LIBEDIT "Use BSD libedit for the UI" OFF)
|
||||||
|
|
||||||
# Moar warnings
|
# Moar warnings
|
||||||
|
set (CMAKE_C_STANDARD 99)
|
||||||
|
set (CMAKE_C_STANDARD_REQUIRED ON)
|
||||||
|
set (CMAKE_C_EXTENSIONS OFF)
|
||||||
|
|
||||||
if ("${CMAKE_C_COMPILER_ID}" MATCHES "GNU" OR CMAKE_COMPILER_IS_GNUCC)
|
if ("${CMAKE_C_COMPILER_ID}" MATCHES "GNU" OR CMAKE_COMPILER_IS_GNUCC)
|
||||||
# -Wunused-function is pretty annoying here, as everything is static
|
# -Wunused-function is pretty annoying here, as everything is static
|
||||||
set (wdisabled "-Wno-unused-function")
|
set (CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -Wall -Wextra -Wno-unused-function")
|
||||||
set (CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -std=c99 -Wall -Wextra ${wdisabled}")
|
endif ()
|
||||||
endif ("${CMAKE_C_COMPILER_ID}" MATCHES "GNU" OR CMAKE_COMPILER_IS_GNUCC)
|
|
||||||
|
|
||||||
# Version
|
# Version
|
||||||
set (project_version "0.9.6")
|
set (project_version "${PROJECT_VERSION}")
|
||||||
|
|
||||||
# Try to append commit ID if it follows a version tag. It might be nicer if
|
# Try to append commit ID if it follows a version tag. It might be nicer if
|
||||||
# we could also detect dirty worktrees but that's very hard to get right.
|
# we could also detect dirty worktrees but that's very hard to get right.
|
||||||
|
# If we didn't need this for CPack, we could use add_custom_command to generate
|
||||||
|
# a version source/include file.
|
||||||
find_package (Git)
|
find_package (Git)
|
||||||
set (git_head "${PROJECT_SOURCE_DIR}/.git/HEAD")
|
set (git_head "${PROJECT_SOURCE_DIR}/.git/HEAD")
|
||||||
if (GIT_FOUND AND EXISTS "${git_head}")
|
if (GIT_FOUND AND EXISTS "${git_head}")
|
||||||
@@ -26,8 +32,8 @@ if (GIT_FOUND AND EXISTS "${git_head}")
|
|||||||
set (git_ref "${PROJECT_SOURCE_DIR}/.git/${CMAKE_MATCH_1}")
|
set (git_ref "${PROJECT_SOURCE_DIR}/.git/${CMAKE_MATCH_1}")
|
||||||
if (EXISTS "${git_ref}")
|
if (EXISTS "${git_ref}")
|
||||||
configure_file ("${git_ref}" git-ref.tag COPYONLY)
|
configure_file ("${git_ref}" git-ref.tag COPYONLY)
|
||||||
endif (EXISTS "${git_ref}")
|
endif ()
|
||||||
endif (git_head_content MATCHES "^ref: ([^\r\n]+)")
|
endif ()
|
||||||
|
|
||||||
execute_process (COMMAND ${GIT_EXECUTABLE} describe --tags --match v*
|
execute_process (COMMAND ${GIT_EXECUTABLE} describe --tags --match v*
|
||||||
WORKING_DIRECTORY ${PROJECT_SOURCE_DIR}
|
WORKING_DIRECTORY ${PROJECT_SOURCE_DIR}
|
||||||
@@ -35,8 +41,8 @@ if (GIT_FOUND AND EXISTS "${git_head}")
|
|||||||
OUTPUT_VARIABLE git_describe OUTPUT_STRIP_TRAILING_WHITESPACE)
|
OUTPUT_VARIABLE git_describe OUTPUT_STRIP_TRAILING_WHITESPACE)
|
||||||
if (NOT git_describe_result)
|
if (NOT git_describe_result)
|
||||||
string (REGEX REPLACE "^v" "" project_version "${git_describe}")
|
string (REGEX REPLACE "^v" "" project_version "${git_describe}")
|
||||||
endif (NOT git_describe_result)
|
endif ()
|
||||||
endif (GIT_FOUND AND EXISTS "${git_head}")
|
endif ()
|
||||||
|
|
||||||
# Dashes make filenames confusing and upset packaging software
|
# Dashes make filenames confusing and upset packaging software
|
||||||
string (REPLACE "-" "+" project_version_safe "${project_version}")
|
string (REPLACE "-" "+" project_version_safe "${project_version}")
|
||||||
@@ -52,21 +58,20 @@ include_directories (${libssl_INCLUDE_DIRS})
|
|||||||
link_directories (${libssl_LIBRARY_DIRS})
|
link_directories (${libssl_LIBRARY_DIRS})
|
||||||
|
|
||||||
if ("${CMAKE_SYSTEM_NAME}" MATCHES "BSD")
|
if ("${CMAKE_SYSTEM_NAME}" MATCHES "BSD")
|
||||||
include_directories (/usr/local/include)
|
|
||||||
link_directories (/usr/local/lib)
|
|
||||||
# Need this for SIGWINCH in FreeBSD and OpenBSD respectively;
|
# Need this for SIGWINCH in FreeBSD and OpenBSD respectively;
|
||||||
# our POSIX version macros make it undefined
|
# our POSIX version macros make it undefined
|
||||||
add_definitions (-D__BSD_VISIBLE=1 -D_BSD_SOURCE=1)
|
add_definitions (-D__BSD_VISIBLE=1 -D_BSD_SOURCE=1)
|
||||||
endif ("${CMAKE_SYSTEM_NAME}" MATCHES "BSD")
|
endif ()
|
||||||
|
|
||||||
# -lrt is only for glibc < 2.17
|
# -lrt is only for glibc < 2.17
|
||||||
# -liconv may or may not be a part of libc
|
# -liconv may or may not be a part of libc
|
||||||
foreach (extra iconv rt)
|
# -lm may or may not be a part of libc
|
||||||
|
foreach (extra iconv rt m)
|
||||||
find_library (extra_lib_${extra} ${extra})
|
find_library (extra_lib_${extra} ${extra})
|
||||||
if (extra_lib_${extra})
|
if (extra_lib_${extra})
|
||||||
list (APPEND project_libraries ${extra_lib_${extra}})
|
list (APPEND project_libraries ${extra_lib_${extra}})
|
||||||
endif (extra_lib_${extra})
|
endif ()
|
||||||
endforeach (extra)
|
endforeach ()
|
||||||
|
|
||||||
include (CheckCSourceRuns)
|
include (CheckCSourceRuns)
|
||||||
set (CMAKE_REQUIRED_LIBRARIES ${project_libraries})
|
set (CMAKE_REQUIRED_LIBRARIES ${project_libraries})
|
||||||
@@ -76,53 +81,53 @@ CHECK_C_SOURCE_RUNS ("#include <iconv.h>
|
|||||||
int main () { return iconv_open (\"UTF-8//TRANSLIT\", \"ISO-8859-1\")
|
int main () { return iconv_open (\"UTF-8//TRANSLIT\", \"ISO-8859-1\")
|
||||||
== (iconv_t) -1; }" ICONV_ACCEPTS_TRANSLIT)
|
== (iconv_t) -1; }" ICONV_ACCEPTS_TRANSLIT)
|
||||||
|
|
||||||
# Dependencies for degesch
|
# Dependencies for xC
|
||||||
pkg_check_modules (libffi REQUIRED libffi)
|
pkg_check_modules (libffi REQUIRED libffi)
|
||||||
list (APPEND degesch_libraries ${libffi_LIBRARIES})
|
list (APPEND xC_libraries ${libffi_LIBRARIES})
|
||||||
include_directories (${libffi_INCLUDE_DIRS})
|
include_directories (${libffi_INCLUDE_DIRS})
|
||||||
link_directories (${libffi_LIBRARY_DIRS})
|
link_directories (${libffi_LIBRARY_DIRS})
|
||||||
|
|
||||||
# FIXME: other Lua versions may be acceptable, don't know yet
|
# XXX: other Lua versions may be acceptable, don't know yet
|
||||||
pkg_search_module (lua lua53 lua5.3 lua-5.3 lua>=5.3)
|
pkg_search_module (lua lua53 lua5.3 lua-5.3 lua54 lua5.4 lua-5.4 lua>=5.3)
|
||||||
option (WITH_LUA "Enable support for Lua plugins" ${lua_FOUND})
|
option (WITH_LUA "Enable support for Lua plugins" ${lua_FOUND})
|
||||||
|
|
||||||
if (WITH_LUA)
|
if (WITH_LUA)
|
||||||
if (NOT lua_FOUND)
|
if (NOT lua_FOUND)
|
||||||
message (FATAL_ERROR "Lua library not found")
|
message (FATAL_ERROR "Lua library not found")
|
||||||
endif (NOT lua_FOUND)
|
endif ()
|
||||||
|
|
||||||
list (APPEND degesch_libraries ${lua_LIBRARIES})
|
list (APPEND xC_libraries ${lua_LIBRARIES})
|
||||||
include_directories (${lua_INCLUDE_DIRS})
|
include_directories (${lua_INCLUDE_DIRS})
|
||||||
link_directories (${lua_LIBRARY_DIRS})
|
link_directories (${lua_LIBRARY_DIRS})
|
||||||
endif (WITH_LUA)
|
endif ()
|
||||||
|
|
||||||
find_package (Curses)
|
find_package (Curses)
|
||||||
pkg_check_modules (ncursesw ncursesw)
|
pkg_check_modules (ncursesw ncursesw)
|
||||||
if (ncursesw_FOUND)
|
if (ncursesw_FOUND)
|
||||||
list (APPEND degesch_libraries ${ncursesw_LIBRARIES})
|
list (APPEND xC_libraries ${ncursesw_LIBRARIES})
|
||||||
include_directories (${ncursesw_INCLUDE_DIRS})
|
include_directories (${ncursesw_INCLUDE_DIRS})
|
||||||
elseif (CURSES_FOUND)
|
elseif (CURSES_FOUND)
|
||||||
list (APPEND degesch_libraries ${CURSES_LIBRARY})
|
list (APPEND xC_libraries ${CURSES_LIBRARY})
|
||||||
include_directories (${CURSES_INCLUDE_DIR})
|
include_directories (${CURSES_INCLUDE_DIR})
|
||||||
else (CURSES_FOUND)
|
else ()
|
||||||
message (SEND_ERROR "Curses not found")
|
message (SEND_ERROR "Curses not found")
|
||||||
endif (ncursesw_FOUND)
|
endif ()
|
||||||
|
|
||||||
if ((WANT_READLINE AND WANT_LIBEDIT) OR (NOT WANT_READLINE AND NOT WANT_LIBEDIT))
|
if ((WANT_READLINE AND WANT_LIBEDIT) OR (NOT WANT_READLINE AND NOT WANT_LIBEDIT))
|
||||||
message (SEND_ERROR "You have to choose either GNU Readline or libedit")
|
message (SEND_ERROR "You have to choose either GNU Readline or libedit")
|
||||||
elseif (WANT_READLINE)
|
elseif (WANT_READLINE)
|
||||||
# OpenBSD's default readline is too old
|
# OpenBSD's default readline is too old
|
||||||
if ("${CMAKE_SYSTEM_NAME}" MATCHES "OpenBSD")
|
if ("${CMAKE_SYSTEM_NAME}" MATCHES "OpenBSD")
|
||||||
include_directories (/usr/local/include/ereadline)
|
include_directories (${OPENBSD_LOCALBASE}/include/ereadline)
|
||||||
list (APPEND degesch_libraries ereadline)
|
list (APPEND xC_libraries ereadline)
|
||||||
else ("${CMAKE_SYSTEM_NAME}" MATCHES "OpenBSD")
|
else ()
|
||||||
list (APPEND degesch_libraries readline)
|
list (APPEND xC_libraries readline)
|
||||||
endif ("${CMAKE_SYSTEM_NAME}" MATCHES "OpenBSD")
|
endif ()
|
||||||
elseif (WANT_LIBEDIT)
|
elseif (WANT_LIBEDIT)
|
||||||
pkg_check_modules (libedit REQUIRED libedit)
|
pkg_check_modules (libedit REQUIRED libedit)
|
||||||
list (APPEND degesch_libraries ${libedit_LIBRARIES})
|
list (APPEND xC_libraries ${libedit_LIBRARIES})
|
||||||
include_directories (${libedit_INCLUDE_DIRS})
|
include_directories (${libedit_INCLUDE_DIRS})
|
||||||
endif ((WANT_READLINE AND WANT_LIBEDIT) OR (NOT WANT_READLINE AND NOT WANT_LIBEDIT))
|
endif ()
|
||||||
|
|
||||||
# Generate a configuration file
|
# Generate a configuration file
|
||||||
set (HAVE_READLINE "${WANT_READLINE}")
|
set (HAVE_READLINE "${WANT_READLINE}")
|
||||||
@@ -130,59 +135,41 @@ set (HAVE_EDITLINE "${WANT_LIBEDIT}")
|
|||||||
set (HAVE_LUA "${WITH_LUA}")
|
set (HAVE_LUA "${WITH_LUA}")
|
||||||
|
|
||||||
include (GNUInstallDirs)
|
include (GNUInstallDirs)
|
||||||
# ZyklonB is currently an odd duck but degesch follows normal XDG rules
|
|
||||||
set (zyklonb_plugin_dir ${CMAKE_INSTALL_LIBDIR}/zyklonb/plugins)
|
|
||||||
configure_file (${PROJECT_SOURCE_DIR}/config.h.in ${PROJECT_BINARY_DIR}/config.h)
|
configure_file (${PROJECT_SOURCE_DIR}/config.h.in ${PROJECT_BINARY_DIR}/config.h)
|
||||||
include_directories (${PROJECT_SOURCE_DIR} ${PROJECT_BINARY_DIR})
|
include_directories (${PROJECT_SOURCE_DIR} ${PROJECT_BINARY_DIR})
|
||||||
|
|
||||||
# Project source files
|
# Generate IRC replies--we need a custom target because of the multiple outputs
|
||||||
set (common_sources)
|
add_custom_command (OUTPUT xD-replies.c xD.msg
|
||||||
set (common_headers ${PROJECT_BINARY_DIR}/config.h)
|
COMMAND ${PROJECT_SOURCE_DIR}/xD-gen-replies.sh
|
||||||
|
> xD-replies.c < ${PROJECT_SOURCE_DIR}/xD-replies
|
||||||
add_custom_command (OUTPUT kike-replies.c kike.msg
|
DEPENDS ${PROJECT_SOURCE_DIR}/xD-replies
|
||||||
COMMAND ${PROJECT_SOURCE_DIR}/kike-gen-replies.sh
|
|
||||||
> kike-replies.c < ${PROJECT_SOURCE_DIR}/kike-replies
|
|
||||||
DEPENDS ${PROJECT_SOURCE_DIR}/kike-replies
|
|
||||||
COMMENT "Generating files from the list of server numerics")
|
COMMENT "Generating files from the list of server numerics")
|
||||||
set_source_files_properties (${PROJECT_BINARY_DIR}/kike-replies.c
|
add_custom_target (replies DEPENDS ${PROJECT_BINARY_DIR}/xD-replies.c)
|
||||||
PROPERTIES HEADER_FILE_ONLY TRUE)
|
|
||||||
|
|
||||||
# Build
|
# Build
|
||||||
add_executable (zyklonb zyklonb.c ${common_sources} ${common_headers})
|
foreach (name xB xC xD)
|
||||||
target_link_libraries (zyklonb ${project_libraries})
|
add_executable (${name} ${name}.c ${PROJECT_BINARY_DIR}/config.h)
|
||||||
add_threads (zyklonb)
|
target_link_libraries (${name} ${project_libraries})
|
||||||
|
add_threads (${name})
|
||||||
|
endforeach ()
|
||||||
|
|
||||||
add_executable (degesch degesch.c kike-replies.c
|
add_dependencies (xD replies)
|
||||||
${common_sources} ${common_headers})
|
add_dependencies (xC replies)
|
||||||
target_link_libraries (degesch ${project_libraries} ${degesch_libraries})
|
target_link_libraries (xC ${xC_libraries})
|
||||||
add_threads (degesch)
|
|
||||||
|
|
||||||
add_executable (kike kike.c kike-replies.c ${common_sources} ${common_headers})
|
|
||||||
target_link_libraries (kike ${project_libraries})
|
|
||||||
add_threads (kike)
|
|
||||||
|
|
||||||
# Tests
|
# Tests
|
||||||
function (make_tests_for target_name)
|
|
||||||
get_target_property (sources ${target_name} SOURCES)
|
|
||||||
get_target_property (libraries ${target_name} LINK_LIBRARIES)
|
|
||||||
get_target_property (options ${target_name} COMPILE_OPTIONS)
|
|
||||||
|
|
||||||
set (test test-${target_name})
|
|
||||||
add_executable (${test} ${sources})
|
|
||||||
target_link_libraries (${test} ${libraries})
|
|
||||||
set_target_properties (${test} PROPERTIES
|
|
||||||
COMPILE_DEFINITIONS TESTING
|
|
||||||
COMPILE_OPTIONS "${options}")
|
|
||||||
|
|
||||||
add_test (NAME ${test} COMMAND ${test})
|
|
||||||
endfunction (make_tests_for)
|
|
||||||
|
|
||||||
include (CTest)
|
include (CTest)
|
||||||
if (BUILD_TESTING)
|
if (BUILD_TESTING)
|
||||||
make_tests_for (degesch)
|
add_executable (test-xC $<TARGET_PROPERTY:xC,SOURCES>)
|
||||||
|
set_target_properties (test-xC PROPERTIES COMPILE_DEFINITIONS TESTING)
|
||||||
|
target_link_libraries (test-xC $<TARGET_PROPERTY:xC,LINK_LIBRARIES>)
|
||||||
|
add_threads (test-xC)
|
||||||
|
add_dependencies (test-xC replies)
|
||||||
|
|
||||||
|
add_test (NAME test-xC COMMAND test-xC)
|
||||||
add_test (NAME custom-static-analysis
|
add_test (NAME custom-static-analysis
|
||||||
COMMAND ${PROJECT_SOURCE_DIR}/test-static)
|
COMMAND ${PROJECT_SOURCE_DIR}/test-static)
|
||||||
endif (BUILD_TESTING)
|
endif ()
|
||||||
|
|
||||||
# Various clang-based diagnostics, loads of fake positives and spam
|
# Various clang-based diagnostics, loads of fake positives and spam
|
||||||
file (GLOB clang_tidy_sources *.c)
|
file (GLOB clang_tidy_sources *.c)
|
||||||
@@ -199,28 +186,31 @@ add_custom_target (clang-tidy
|
|||||||
WORKING_DIRECTORY ${PROJECT_SOURCE_DIR})
|
WORKING_DIRECTORY ${PROJECT_SOURCE_DIR})
|
||||||
|
|
||||||
# Installation
|
# Installation
|
||||||
install (TARGETS zyklonb degesch kike DESTINATION ${CMAKE_INSTALL_BINDIR})
|
install (TARGETS xB xC xD DESTINATION ${CMAKE_INSTALL_BINDIR})
|
||||||
install (FILES LICENSE DESTINATION ${CMAKE_INSTALL_DOCDIR})
|
install (FILES LICENSE DESTINATION ${CMAKE_INSTALL_DOCDIR})
|
||||||
install (DIRECTORY plugins/zyklonb/
|
# XXX: our defaults for XDG_DATA_DIRS expect /usr/local/shore or /usr/share
|
||||||
DESTINATION ${zyklonb_plugin_dir} USE_SOURCE_PERMISSIONS)
|
install (DIRECTORY plugins/xB/
|
||||||
install (DIRECTORY plugins/degesch/
|
DESTINATION ${CMAKE_INSTALL_DATADIR}/xB/plugins USE_SOURCE_PERMISSIONS)
|
||||||
DESTINATION ${CMAKE_INSTALL_DATADIR}/degesch/plugins)
|
install (DIRECTORY plugins/xC/
|
||||||
|
DESTINATION ${CMAKE_INSTALL_DATADIR}/xC/plugins)
|
||||||
|
|
||||||
# Generate documentation from program help
|
# Generate documentation from text markup
|
||||||
find_program (HELP2MAN_EXECUTABLE help2man)
|
find_program (ASCIIDOCTOR_EXECUTABLE asciidoctor)
|
||||||
if (NOT HELP2MAN_EXECUTABLE)
|
if (NOT ASCIIDOCTOR_EXECUTABLE)
|
||||||
message (FATAL_ERROR "help2man not found")
|
message (FATAL_ERROR "asciidoctor not found")
|
||||||
endif (NOT HELP2MAN_EXECUTABLE)
|
endif ()
|
||||||
|
|
||||||
foreach (page zyklonb degesch kike)
|
foreach (page xB xC xD)
|
||||||
set (page_output "${PROJECT_BINARY_DIR}/${page}.1")
|
set (page_output "${PROJECT_BINARY_DIR}/${page}.1")
|
||||||
list (APPEND project_MAN_PAGES "${page_output}")
|
list (APPEND project_MAN_PAGES "${page_output}")
|
||||||
add_custom_command (OUTPUT ${page_output}
|
add_custom_command (OUTPUT ${page_output}
|
||||||
COMMAND ${HELP2MAN_EXECUTABLE} -N
|
COMMAND ${ASCIIDOCTOR_EXECUTABLE} -b manpage
|
||||||
"${PROJECT_BINARY_DIR}/${page}" -o ${page_output}
|
-a release-version=${project_version}
|
||||||
DEPENDS ${page}
|
"${PROJECT_SOURCE_DIR}/${page}.adoc"
|
||||||
|
-o "${page_output}"
|
||||||
|
DEPENDS ${page}.adoc
|
||||||
COMMENT "Generating man page for ${page}" VERBATIM)
|
COMMENT "Generating man page for ${page}" VERBATIM)
|
||||||
endforeach (page)
|
endforeach ()
|
||||||
|
|
||||||
add_custom_target (docs ALL DEPENDS ${project_MAN_PAGES})
|
add_custom_target (docs ALL DEPENDS ${project_MAN_PAGES})
|
||||||
|
|
||||||
@@ -228,13 +218,13 @@ foreach (page ${project_MAN_PAGES})
|
|||||||
string (REGEX MATCH "\\.([0-9])$" manpage_suffix "${page}")
|
string (REGEX MATCH "\\.([0-9])$" manpage_suffix "${page}")
|
||||||
install (FILES "${page}"
|
install (FILES "${page}"
|
||||||
DESTINATION "${CMAKE_INSTALL_MANDIR}/man${CMAKE_MATCH_1}")
|
DESTINATION "${CMAKE_INSTALL_MANDIR}/man${CMAKE_MATCH_1}")
|
||||||
endforeach (page)
|
endforeach ()
|
||||||
|
|
||||||
# CPack
|
# CPack
|
||||||
set (CPACK_PACKAGE_DESCRIPTION_SUMMARY "Experimental IRC client, daemon and bot")
|
set (CPACK_PACKAGE_DESCRIPTION_SUMMARY "Unreasonable IRC client, daemon and bot")
|
||||||
set (CPACK_PACKAGE_VERSION "${project_version_safe}")
|
set (CPACK_PACKAGE_VERSION "${project_version_safe}")
|
||||||
set (CPACK_PACKAGE_VENDOR "Premysl Janouch")
|
set (CPACK_PACKAGE_VENDOR "Premysl Eric Janouch")
|
||||||
set (CPACK_PACKAGE_CONTACT "Přemysl Janouch <p@janouch.name>")
|
set (CPACK_PACKAGE_CONTACT "Přemysl Eric Janouch <p@janouch.name>")
|
||||||
set (CPACK_RESOURCE_FILE_LICENSE "${PROJECT_SOURCE_DIR}/LICENSE")
|
set (CPACK_RESOURCE_FILE_LICENSE "${PROJECT_SOURCE_DIR}/LICENSE")
|
||||||
|
|
||||||
set (CPACK_GENERATOR "TGZ;ZIP")
|
set (CPACK_GENERATOR "TGZ;ZIP")
|
||||||
|
|||||||
2
LICENSE
2
LICENSE
@@ -1,4 +1,4 @@
|
|||||||
Copyright (c) 2014 - 2018, Přemysl Janouch <p@janouch.name>
|
Copyright (c) 2014 - 2021, Přemysl Eric Janouch <p@janouch.name>
|
||||||
|
|
||||||
Permission to use, copy, modify, and/or distribute this software for any
|
Permission to use, copy, modify, and/or distribute this software for any
|
||||||
purpose with or without fee is hereby granted.
|
purpose with or without fee is hereby granted.
|
||||||
|
|||||||
253
NEWS
253
NEWS
@@ -1,111 +1,236 @@
|
|||||||
|
1.5.0 (20xx-xx-xx) "The Show Must Go On"
|
||||||
|
|
||||||
|
* xC: made it possible to pass the cursor position to external editors,
|
||||||
|
in particular VIM and Emacs
|
||||||
|
|
||||||
|
* xC: started quoting text coming from bracketed pastes,
|
||||||
|
to minimize the risk of trying to execute filesystem paths as commands
|
||||||
|
|
||||||
|
* xC: fixed to work with post-2021-08-29 editline
|
||||||
|
|
||||||
|
* xC: extended editline's autocomplete to show all the options
|
||||||
|
|
||||||
|
|
||||||
|
1.4.0 (2021-10-06) "Call Me Scruffy Scruffington"
|
||||||
|
|
||||||
|
* xC: made message autosplitting respect text formatting
|
||||||
|
|
||||||
|
* xC: fixed displaying IRC colours above 16
|
||||||
|
|
||||||
|
* xC: offer IRCnet as an IRC network to connect to,
|
||||||
|
rather than the lunatic new Freenode
|
||||||
|
|
||||||
|
* xD: started bumping the soft limit on file descriptors to the hard one
|
||||||
|
|
||||||
|
|
||||||
|
1.3.0 (2021-08-07) "New World Order"
|
||||||
|
|
||||||
|
* xC: made nick autocompletion offer recent speakers first
|
||||||
|
|
||||||
|
* All binaries have been renamed to something even sillier,
|
||||||
|
and all references in the source tree have been redacted;
|
||||||
|
this represents a major incompatible change for all plugins;
|
||||||
|
configuration and program data have to be adjusted manually
|
||||||
|
|
||||||
|
|
||||||
|
1.2.0 (2021-07-08) "There Are Other Countries As Well"
|
||||||
|
|
||||||
|
* xC: added a /squery command for IRCnet
|
||||||
|
|
||||||
|
* xC: added trivial support for SASL EXTERNAL, enabled by adding "sasl"
|
||||||
|
to the respective server's "capabilities" list
|
||||||
|
|
||||||
|
* xC: now supporting IRCv3.2 capability negotiation, including CAP DEL
|
||||||
|
|
||||||
|
* xC: added support for IRCv3 chghost
|
||||||
|
|
||||||
|
* xC: /deop and /devoice without arguments will use the client's user
|
||||||
|
|
||||||
|
* xC: /set +=/-= now treats its argument as a string array
|
||||||
|
|
||||||
|
* xC: made "/help /command" work the same way as "/help command" does
|
||||||
|
|
||||||
|
* xC: /ban and /unban don't mangle extended bans anymore
|
||||||
|
|
||||||
|
* xC: joining new channels no longer switches to their buffer automatically
|
||||||
|
if the current input line isn't empty
|
||||||
|
|
||||||
|
* censor.lua: now stripping colours from censored messages;
|
||||||
|
their attributes are also configurable rather than always black on black
|
||||||
|
|
||||||
|
|
||||||
|
1.1.0 (2020-10-31) "What Do You Mean By 'This Isn't Germany'?"
|
||||||
|
|
||||||
|
* xC: made fancy-prompt.lua work with libedit
|
||||||
|
|
||||||
|
* xD: fixed a regression with an unspecified "bind_host"
|
||||||
|
|
||||||
|
* Miscellaneous minor improvements
|
||||||
|
|
||||||
|
|
||||||
|
1.0.0 (2020-10-29) "We're Finally There!"
|
||||||
|
|
||||||
|
* Coming with real manual pages instead of help2man-generated stubs
|
||||||
|
|
||||||
|
* xC: added support for more IRC colours and strike-through text (M-m x)
|
||||||
|
|
||||||
|
* xC: now tolerating all UTF-8 messages cut off by the server
|
||||||
|
|
||||||
|
* xC: disabled "behaviour.backlog_helper_strip_formatting" by default
|
||||||
|
since the relevant issue with ACS terminfo entries has been resolved
|
||||||
|
|
||||||
|
* xC: enabled word wrapping in the backlog by default
|
||||||
|
|
||||||
|
* xC: made the unread marker span the whole line, with a configurable
|
||||||
|
character; the previous behaviour can be obtained by setting it empty
|
||||||
|
|
||||||
|
* xC: fixed the prompt not showing back up after exiting a backlog helper
|
||||||
|
when an external event has provoked an attempt to change it
|
||||||
|
|
||||||
|
* xC: now watching fellow channel users' away status when the server
|
||||||
|
supports the away-notify capability; indicated by italicised nicknames
|
||||||
|
|
||||||
|
* xC: added a plugin to highlight prime numbers in incoming messages
|
||||||
|
|
||||||
|
* xD: make sure an unspecified "bind_host" binds to both IPv4 and IPv6
|
||||||
|
|
||||||
|
* xB: install plugins to /usr/share and look for them in XDG data dirs
|
||||||
|
|
||||||
|
* Miscellaneous little fixes
|
||||||
|
|
||||||
|
|
||||||
|
0.9.8 (2020-09-02) "Yep, Still Using It"
|
||||||
|
|
||||||
|
* xC: fixed a crash and prompt attribute output in libedit 20191231-3.1,
|
||||||
|
though users are officially discouraged from using this library
|
||||||
|
|
||||||
|
* xC: fixed Lua 5.4 build, so far the support is experimental
|
||||||
|
|
||||||
|
* Miscellaneous little fixes
|
||||||
|
|
||||||
|
|
||||||
|
0.9.7 (2018-10-21) "Business as Usual"
|
||||||
|
|
||||||
|
* xD: fix wildcard handling in WHOIS
|
||||||
|
|
||||||
|
* xD: properly handle STATS without parametetrs
|
||||||
|
|
||||||
|
* xD: abort earlier when an invalid mode character is detected while
|
||||||
|
processing channel MODE messages
|
||||||
|
|
||||||
|
* xD: do not send NICK notifications when the nickname doesn't really change
|
||||||
|
|
||||||
|
* xD: fix hostname string verification (only used for "server_name")
|
||||||
|
|
||||||
|
|
||||||
0.9.6 (2018-06-22) "I've Been Sitting Here All This Time"
|
0.9.6 (2018-06-22) "I've Been Sitting Here All This Time"
|
||||||
|
|
||||||
* Code has been relicensed to 0BSD and moved to a private git hosting
|
* Code has been relicensed to 0BSD and moved to a private git hosting
|
||||||
|
|
||||||
* Fix LibreSSL compatibility
|
* Fix LibreSSL compatibility
|
||||||
|
|
||||||
* degesch: a second /disconnect cuts the connection by force
|
* xC: a second /disconnect cuts the connection by force
|
||||||
|
|
||||||
* degesch: send a QUIT message to the IRC server on Ctrl-C
|
* xC: send a QUIT message to the IRC server on Ctrl-C
|
||||||
|
|
||||||
* degesch: add a Slack plugin (even though the gateway's now defunct)
|
* xC: add a Slack plugin (even though the gateway's now defunct)
|
||||||
|
|
||||||
* degesch: show an error message on log write failure
|
* xC: show an error message on log write failure
|
||||||
|
|
||||||
* degesch: fix parsing of literal IPv6 addresses with port numbers
|
* xC: fix parsing of literal IPv6 addresses with port numbers
|
||||||
|
|
||||||
* degesch: fix some error messages
|
* xC: fix some error messages
|
||||||
|
|
||||||
* degesch: workaround a Readline bug in the fancy-prompt.lua plugin
|
* xC: workaround a Readline bug in the fancy-prompt.lua plugin
|
||||||
|
|
||||||
* kike: fix two memory leaks
|
* xD: fix two memory leaks
|
||||||
|
|
||||||
* kike: improve error handling for incoming connections
|
* xD: improve error handling for incoming connections
|
||||||
|
|
||||||
* kike: disable TLS session reuse
|
* xD: disable TLS session reuse
|
||||||
|
|
||||||
|
|
||||||
0.9.5 (2016-12-30) "It's Time"
|
0.9.5 (2016-12-30) "It's Time"
|
||||||
|
|
||||||
* Better support for the KILL command
|
* Better support for the KILL command
|
||||||
|
|
||||||
* degesch: export many more fields to the Lua API, add a prompt hook
|
* xC: export many more fields to the Lua API, add a prompt hook
|
||||||
|
|
||||||
* degesch: show channel user count in the prompt
|
* xC: show channel user count in the prompt
|
||||||
|
|
||||||
* degesch: allow hiding join/part messages and other noise (Meta-Shift-H)
|
* xC: allow hiding join/part messages and other noise (Meta-Shift-H)
|
||||||
|
|
||||||
* degesch: allow autojoining channels with keys
|
* xC: allow autojoining channels with keys
|
||||||
|
|
||||||
* degesch: rejoin channels with keys on reconnect
|
* xC: rejoin channels with keys on reconnect
|
||||||
|
|
||||||
* degesch: make /query without arguments just open the buffer
|
* xC: make /query without arguments just open the buffer
|
||||||
|
|
||||||
* degesch: add a censor plugin
|
* xC: add a censor plugin
|
||||||
|
|
||||||
* degesch: die on configuration parse errors
|
* xC: die on configuration parse errors
|
||||||
|
|
||||||
* degesch: request channel modes also on rejoin
|
* xC: request channel modes also on rejoin
|
||||||
|
|
||||||
* degesch: don't show remembered channel modes on parted channels
|
* xC: don't show remembered channel modes on parted channels
|
||||||
|
|
||||||
* degesch: fix highlight detection in colored text
|
* xC: fix highlight detection in colored text
|
||||||
|
|
||||||
* degesch: fix CTCP handling for the real world and don't decode X-QUOTEs
|
* xC: fix CTCP handling for the real world and don't decode X-QUOTEs
|
||||||
|
|
||||||
* degesch: add support for OpenSSL 1.1.0
|
* xC: add support for OpenSSL 1.1.0
|
||||||
|
|
||||||
|
|
||||||
0.9.4 (2016-04-28) "Oops"
|
0.9.4 (2016-04-28) "Oops"
|
||||||
|
|
||||||
* degesch: fix crash on characters invalid in Windows-1252
|
* xC: fix crash on characters invalid in Windows-1252
|
||||||
|
|
||||||
* degesch: add an auto-rejoin plugin
|
* xC: add an auto-rejoin plugin
|
||||||
|
|
||||||
* degesch: better date change messages with customizable formatting;
|
* xC: better date change messages with customizable formatting;
|
||||||
now also used in the backlog, so it looks closer to regular output
|
now also used in the backlog, so it looks closer to regular output
|
||||||
|
|
||||||
* ZyklonB: add a calc plugin providing a basic Scheme REPL
|
* xB: add a calc plugin providing a basic Scheme REPL
|
||||||
|
|
||||||
* ZyklonB: add a seen plugin
|
* xB: add a seen plugin
|
||||||
|
|
||||||
* kike, ZyklonB: use pledge(2) on OpenBSD
|
* xD, xB: use pledge(2) on OpenBSD
|
||||||
|
|
||||||
|
|
||||||
0.9.3 (2016-03-27) "Doesn't Even Suck"
|
0.9.3 (2016-03-27) "Doesn't Even Suck"
|
||||||
|
|
||||||
* Use TLS Server Name Indication when connecting to servers
|
* Use TLS Server Name Indication when connecting to servers
|
||||||
|
|
||||||
* degesch: now we erase the screen before displaying buffers
|
* xC: now we erase the screen before displaying buffers
|
||||||
|
|
||||||
* degesch: implemented word wrapping in buffers
|
* xC: implemented word wrapping in buffers
|
||||||
|
|
||||||
* degesch: added autocomplete for /topic
|
* xC: added autocomplete for /topic
|
||||||
|
|
||||||
* degesch: Lua API was improved and extended
|
* xC: Lua API was improved and extended
|
||||||
|
|
||||||
* degesch: added a basic last.fm "now playing" plugin
|
* xC: added a basic last.fm "now playing" plugin
|
||||||
|
|
||||||
* degesch: backlog limit was made configurable
|
* xC: backlog limit was made configurable
|
||||||
|
|
||||||
* degesch: allow changing the list of IRC capabilities to use if available
|
* xC: allow changing the list of IRC capabilities to use if available
|
||||||
|
|
||||||
* degesch: optimize buffer memory usage
|
* xC: optimize buffer memory usage
|
||||||
|
|
||||||
* degesch: added logging of messages sent from /quote and plugins
|
* xC: added logging of messages sent from /quote and plugins
|
||||||
|
|
||||||
* degesch: M-! and M-a to go to the next buffer in order with
|
* xC: M-! and M-a to go to the next buffer in order with a highlight
|
||||||
a highlight or new activity respectively
|
or new activity respectively
|
||||||
|
|
||||||
* degesch: added --format for previewing things like MOTD files
|
* xC: added --format for previewing things like MOTD files
|
||||||
|
|
||||||
* degesch: added /buffer goto supporting case insensitive partial matches
|
* xC: added /buffer goto supporting case insensitive partial matches
|
||||||
|
|
||||||
* kike: add support for IRCv3.2 server-time
|
* xD: add support for IRCv3.2 server-time
|
||||||
|
|
||||||
* ZyklonB: plugins now run in a dedicated data directory
|
* xB: plugins now run in a dedicated data directory
|
||||||
|
|
||||||
* ZyklonB: added a factoids plugin
|
* xB: added a factoids plugin
|
||||||
|
|
||||||
* Remote addresses are now resolved asynchronously
|
* Remote addresses are now resolved asynchronously
|
||||||
|
|
||||||
@@ -114,28 +239,28 @@
|
|||||||
|
|
||||||
0.9.2 (2015-12-31)
|
0.9.2 (2015-12-31)
|
||||||
|
|
||||||
* degesch: added rudimentary support for Lua scripting
|
* xC: added rudimentary support for Lua scripting
|
||||||
|
|
||||||
* degesch: added detection of pasting, so that it doesn't trigger other
|
* xC: added detection of pasting, so that it doesn't trigger other
|
||||||
keyboard shortcuts, such as for autocomplete
|
keyboard shortcuts, such as for autocomplete
|
||||||
|
|
||||||
* degesch: added auto-away capability
|
* xC: added auto-away capability
|
||||||
|
|
||||||
* degesch: added an /oper command
|
* xC: added an /oper command
|
||||||
|
|
||||||
* degesch: libedit backend works again
|
* xC: libedit backend works again
|
||||||
|
|
||||||
* degesch: added capability to edit the input line using VISUAL/EDITOR
|
* xC: added capability to edit the input line using VISUAL/EDITOR
|
||||||
|
|
||||||
* degesch: added Meta-Tab to switch to the last used buffer
|
* xC: added Meta-Tab to switch to the last used buffer
|
||||||
|
|
||||||
* degesch: correctly respond to stopping and resuming (SIGTSTP)
|
* xC: correctly respond to stopping and resuming (SIGTSTP)
|
||||||
|
|
||||||
* degesch: fixed decoding of text formatting
|
* xC: fixed decoding of text formatting
|
||||||
|
|
||||||
* degesch: unseen PMs now show up as highlights
|
* xC: unseen PMs now show up as highlights
|
||||||
|
|
||||||
* degesch: various bugfixes
|
* xC: various bugfixes
|
||||||
|
|
||||||
|
|
||||||
0.9.1 (2015-09-25)
|
0.9.1 (2015-09-25)
|
||||||
@@ -146,23 +271,23 @@
|
|||||||
|
|
||||||
* Pulled in kqueue support
|
* Pulled in kqueue support
|
||||||
|
|
||||||
* degesch: added backlog/scrollback functionality using less(1)
|
* xC: added backlog/scrollback functionality using less(1)
|
||||||
|
|
||||||
* degesch: made showing the entire set of channel mode user prefixes optional
|
* xC: made showing the entire set of channel mode user prefixes optional
|
||||||
|
|
||||||
* degesch: nicknames in /names are now ordered
|
* xC: nicknames in /names are now ordered
|
||||||
|
|
||||||
* degesch: nicknames now use the 256-color terminal palette if available
|
* xC: nicknames now use the 256-color terminal palette if available
|
||||||
|
|
||||||
* degesch: now we skip entries in the "addresses" list that can't be resolved
|
* xC: now we skip entries in the "addresses" list that can't be resolved
|
||||||
to an address, along with displaying a more helpful message
|
to an address, along with displaying a more helpful message
|
||||||
|
|
||||||
* degesch: joins, parts, nick changes and quits don't count as new buffer
|
* xC: joins, parts, nick changes and quits don't count as new buffer
|
||||||
activity anymore
|
activity anymore
|
||||||
|
|
||||||
* degesch: added Meta-H to open the full log file
|
* xC: added Meta-H to open the full log file
|
||||||
|
|
||||||
* degesch: various bugfixes and little improvements
|
* xC: various bugfixes and little improvements
|
||||||
|
|
||||||
|
|
||||||
0.9.0 (2015-07-23)
|
0.9.0 (2015-07-23)
|
||||||
|
|||||||
138
README.adoc
138
README.adoc
@@ -1,35 +1,34 @@
|
|||||||
uirc3
|
uirc3
|
||||||
=====
|
=====
|
||||||
:compact-option:
|
|
||||||
|
|
||||||
The [line-through]#unethical# edgy IRC trinity. This project consists of an
|
The unreasonable IRC trinity. This project consists of an IRC client, daemon,
|
||||||
experimental IRC client, daemon, and bot. It's all you're ever going to need
|
and bot. It's all you're ever going to need for chatting, as long as you can
|
||||||
for chatting, as long as you can make do with minimalist software.
|
make do with minimalist software.
|
||||||
|
|
||||||
All of them have these potentially interesting properties:
|
They have these potentially interesting properties:
|
||||||
|
|
||||||
- IPv6 support
|
- supporting IRCv3, SOCKS, IPv6, TLS (including client certificates)
|
||||||
- TLS support, including client certificates
|
- lean on dependencies
|
||||||
- lean on dependencies (with the exception of 'degesch')
|
|
||||||
- compact and arguably easy to hack on
|
- compact and arguably easy to hack on
|
||||||
- permissive license
|
- maximally permissive license
|
||||||
|
|
||||||
degesch
|
xC
|
||||||
-------
|
--
|
||||||
The IRC client. It is largely defined by being built on top of GNU Readline
|
The IRC client. It is largely defined by being built on top of GNU Readline
|
||||||
that has been hacked to death. Its interface should feel somewhat familiar for
|
that has been hacked to death. Its interface should feel somewhat familiar for
|
||||||
weechat or irssi users.
|
weechat or irssi users.
|
||||||
|
|
||||||
image::degesch.png[align="center"]
|
image::xC.png[align="center"]
|
||||||
|
|
||||||
This is the largest application within the project. It has most of the stuff
|
This is the core of the project. It has most of the stuff you'd expect of
|
||||||
you'd expect of an IRC client, such as being able to set up multiple servers,
|
an IRC client, such as being multiserver, a powerful configuration system,
|
||||||
a powerful configuration system, integrated help, text formatting, CTCP queries,
|
integrated help, text formatting, automatic splitting of overlong messages,
|
||||||
automatic splitting of overlong messages, autocomplete, logging to file,
|
multiline editing, bracketed paste support, decent word wrapping, autocomplete,
|
||||||
auto-away, command aliases and basic support for Lua scripting.
|
logging, CTCP queries, auto-away, command aliases, and basic support for Lua
|
||||||
|
scripting. As a unique bonus, you can launch a full text editor from within.
|
||||||
|
|
||||||
kike
|
xD
|
||||||
----
|
--
|
||||||
The IRC daemon. It is designed to be used as a regular user application rather
|
The IRC daemon. It is designed to be used as a regular user application rather
|
||||||
than a system-wide daemon. If all you want is a decent, minimal IRCd for
|
than a system-wide daemon. If all you want is a decent, minimal IRCd for
|
||||||
testing purposes or a small network of respectful users (or bots), this one will
|
testing purposes or a small network of respectful users (or bots), this one will
|
||||||
@@ -37,10 +36,8 @@ do it just fine.
|
|||||||
|
|
||||||
Notable features:
|
Notable features:
|
||||||
|
|
||||||
- TLS autodetection (why doesn't everyone have this?), using secure defaults
|
- TLS autodetection (I'm still wondering why everyone doesn't have this)
|
||||||
- IRCop authentication via TLS client certificates
|
- IRCop authentication via TLS client certificates
|
||||||
- epoll/kqueue support; this means that it should be able to handle quite
|
|
||||||
a number of concurrent user connections
|
|
||||||
- partial IRCv3 support
|
- partial IRCv3 support
|
||||||
|
|
||||||
Not supported:
|
Not supported:
|
||||||
@@ -48,22 +45,24 @@ Not supported:
|
|||||||
- server linking (which also means no services); I consider existing protocols
|
- server linking (which also means no services); I consider existing protocols
|
||||||
for this purpose ugly and tricky to implement correctly; I've also found no
|
for this purpose ugly and tricky to implement correctly; I've also found no
|
||||||
use for this feature yet
|
use for this feature yet
|
||||||
- online changes to configuration; the configuration system from degesch could
|
- online changes to configuration; the configuration system from 'xC' could
|
||||||
be used to implement this feature if needed
|
be used to implement this feature if needed
|
||||||
- limits of almost any kind, just connections and mode `+l`
|
- limits of almost any kind, just connections and mode `+l`
|
||||||
|
|
||||||
ZyklonB
|
This program has been
|
||||||
-------
|
https://git.janouch.name/p/haven/src/branch/master/hid[ported to Go],
|
||||||
The IRC bot. It builds upon the concept of my other VitaminA IRC bot. The main
|
and development continues over there.
|
||||||
characteristic of these two bots is that they run plugins as coprocesses, which
|
|
||||||
allows for enhanced reliability and programming language freedom.
|
|
||||||
|
|
||||||
While originally intended to be a simple rewrite of the original AWK bot in C,
|
xB
|
||||||
it fairly quickly became a playground, and it eventually got me into writing
|
--
|
||||||
the rest of the package.
|
The IRC bot. While originally intended to be a simple rewrite of my old GNU AWK
|
||||||
|
bot in C, it fairly quickly became a playground, and it eventually got me into
|
||||||
|
writing the rest of this package.
|
||||||
|
|
||||||
It survives crashes, server disconnects and timeouts, and also has native SOCKS
|
Its main characteristic is that it runs plugins as coprocesses, allowing for
|
||||||
support (even though socksify can add that easily to any program).
|
enhanced reliability and programming language freedom. Moreover, it recovers
|
||||||
|
from any crashes, and offers native SOCKS support (even though socksify can add
|
||||||
|
that easily to any program).
|
||||||
|
|
||||||
Packages
|
Packages
|
||||||
--------
|
--------
|
||||||
@@ -72,15 +71,18 @@ a package with the latest development version from Archlinux's AUR.
|
|||||||
|
|
||||||
Building
|
Building
|
||||||
--------
|
--------
|
||||||
Build dependencies: CMake, pkg-config, help2man, awk, sh, liberty (included) +
|
Build dependencies: CMake, pkg-config, asciidoctor, awk, liberty (included) +
|
||||||
Runtime dependencies: openssl +
|
Runtime dependencies: openssl +
|
||||||
Additionally for degesch: curses, libffi, lua >= 5.3 (optional),
|
Additionally for 'xC': curses, libffi, lua >= 5.3 (optional),
|
||||||
readline >= 6.0 or libedit >= 2013-07-12
|
readline >= 6.0 or libedit >= 2013-07-12
|
||||||
|
|
||||||
|
Avoid libedit if you can, in general it works but at the moment history is
|
||||||
|
acting up and I have no clue about fixing it.
|
||||||
|
|
||||||
$ git clone --recursive https://git.janouch.name/p/uirc3.git
|
$ git clone --recursive https://git.janouch.name/p/uirc3.git
|
||||||
$ mkdir uirc3/build
|
$ mkdir uirc3/build
|
||||||
$ cd uirc3/build
|
$ cd uirc3/build
|
||||||
$ cmake .. -DCMAKE_INSTALL_PREFIX=/usr -DCMAKE_BUILD_TYPE=Debug \
|
$ cmake .. -DCMAKE_INSTALL_PREFIX=/usr -DCMAKE_BUILD_TYPE=RelWithDebInfo \
|
||||||
-DWANT_READLINE=ON -DWANT_LIBEDIT=OFF -DWANT_LUA=ON
|
-DWANT_READLINE=ON -DWANT_LIBEDIT=OFF -DWANT_LUA=ON
|
||||||
$ make
|
$ make
|
||||||
|
|
||||||
@@ -88,75 +90,81 @@ To install the application, you can do either the usual:
|
|||||||
|
|
||||||
# make install
|
# make install
|
||||||
|
|
||||||
Or you can try telling CMake to make a package for you. For Debian it is:
|
Or you can try telling CMake to make a package for you:
|
||||||
|
|
||||||
$ cpack -G DEB
|
$ cpack -G DEB # also supported: RPM, FreeBSD
|
||||||
# dpkg -i uirc3-*.deb
|
# dpkg -i uirc3-*.deb
|
||||||
|
|
||||||
Usage
|
Usage
|
||||||
-----
|
-----
|
||||||
'degesch' has in-program configuration. Just run it and read the instructions.
|
'xC' has in-program configuration. Just run it and read the instructions.
|
||||||
|
Consult its link:xC.adoc[man page] for details about the interface.
|
||||||
|
|
||||||
For the rest you might want to generate a configuration file:
|
For the rest you might want to generate a configuration file:
|
||||||
|
|
||||||
$ zyklonb --write-default-config
|
$ xB --write-default-config
|
||||||
$ kike --write-default-config
|
$ xD --write-default-config
|
||||||
|
|
||||||
After making any necessary edits to the file (there are comments to aid you in
|
After making any necessary edits to the file (there are comments to aid you in
|
||||||
doing that), simply run the appropriate program with no arguments:
|
doing that), simply run the appropriate program with no arguments:
|
||||||
|
|
||||||
$ zyklonb
|
$ xB
|
||||||
$ kike
|
$ xD
|
||||||
|
|
||||||
'ZyklonB' stays running in the foreground, therefore I recommend launching it
|
'xB' stays running in the foreground, therefore I recommend launching it inside
|
||||||
inside a Screen or tmux session.
|
a Screen or tmux session.
|
||||||
|
|
||||||
'kike', on the other hand, immediately forks into the background. Use the PID
|
'xD', on the other hand, immediately forks into the background. Use the PID
|
||||||
file or something like `killall` if you want to terminate it. You can run it
|
file or something like `killall` if you want to terminate it. You can run it
|
||||||
as a `forking` type systemd user service.
|
as a `forking` type systemd user service.
|
||||||
|
|
||||||
Client Certificates
|
Client Certificates
|
||||||
-------------------
|
-------------------
|
||||||
'kike' uses SHA1 fingerprints of TLS client certificates to authenticate users.
|
'xC' will use the SASL EXTERNAL method to authenticate using the TLS client
|
||||||
|
certificate specified by the respective server's `tls_cert` option if you add
|
||||||
|
`sasl` to the `capabilities` option and the server supports this.
|
||||||
|
|
||||||
|
'xD' uses SHA-1 fingerprints of TLS client certificates to authenticate users.
|
||||||
To get the fingerprint from a certificate file in the required form, use:
|
To get the fingerprint from a certificate file in the required form, use:
|
||||||
|
|
||||||
$ openssl x509 -in public.pem -outform DER | sha1sum
|
$ openssl x509 -in public.pem -outform DER | sha1sum
|
||||||
|
|
||||||
Custom Key Bindings in degesch
|
Custom Key Bindings in xC
|
||||||
------------------------------
|
-------------------------
|
||||||
The default and preferred frontend used in 'degesch' is GNU Readline. This
|
The default and preferred frontend used in 'xC' is GNU Readline. This means
|
||||||
means that you can change your bindings by editing '~/.inputrc'. For example:
|
that you can change your bindings by editing '~/.inputrc'. For example:
|
||||||
|
|
||||||
....
|
....
|
||||||
# Preload with system-wide settings
|
# Preload with system-wide settings
|
||||||
$include /etc/inputrc
|
$include /etc/inputrc
|
||||||
|
|
||||||
# Make M-left and M-right reorder buffers
|
# Make M-left and M-right reorder buffers
|
||||||
$if degesch
|
$if xC
|
||||||
"\e\e[C": move-buffer-right
|
"\e\e[C": move-buffer-right
|
||||||
"\e\e[D": move-buffer-left
|
"\e\e[D": move-buffer-left
|
||||||
$endif
|
$endif
|
||||||
....
|
....
|
||||||
|
|
||||||
Consult the source code and the GNU Readline manual for a list of available
|
Consult the source code and the GNU Readline manual for a list of available
|
||||||
functions. Also refer to the latter for the exact syntax of this file.
|
functions. Also refer to the latter for the exact syntax of this file.
|
||||||
Beware that you can easily break the program if you're not careful.
|
Beware that you can easily break the program if you're not careful.
|
||||||
|
|
||||||
How do I make degesch look like the screenshot?
|
How do I make xC look like the screenshot?
|
||||||
-----------------------------------------------
|
------------------------------------------
|
||||||
First of all, you must build it with Lua support. With the defaults, degesch
|
First of all, you must build it with Lua support. With the defaults, 'xC'
|
||||||
doesn't look very fancy because some things are rather hackish, and I also don't
|
doesn't look too fancy because I don't want to depend on Lua or 256-colour
|
||||||
want to depend on UTF-8 or 256color terminals in the code. In addition to that,
|
terminals. In addition to that, I appear to be one of the few people who use
|
||||||
I appear to be one of the few people who use black on white terminals.
|
black on white terminals.
|
||||||
|
|
||||||
/set behaviour.date_change_line = "%a %e %b %Y"
|
/set behaviour.date_change_line = "%a %e %b %Y"
|
||||||
/set behaviour.plugin_autoload += "fancy-prompt.lua,thin-cursor.lua"
|
/set behaviour.plugin_autoload += "fancy-prompt.lua"
|
||||||
/set behaviour.backlog_helper = "LESSSECURE=1 less -R +Gb -Ps'Backlog ?ltlines %lt-%lb?L/%L. .?e(END):?pB%pB\\%..'"
|
/set behaviour.backlog_helper = "LESSSECURE=1 less -R +Gb1d -Ps'Backlog ?ltlines %lt-%lb?L/%L. .?e(END):?pB%pB\\%..'"
|
||||||
/set behaviour.backlog_helper_strip_formatting = off
|
|
||||||
/set attributes.reset = "\x1b[0m"
|
|
||||||
/set attributes.userhost = "\x1b[38;5;109m"
|
/set attributes.userhost = "\x1b[38;5;109m"
|
||||||
/set attributes.join = "\x1b[38;5;108m"
|
/set attributes.join = "\x1b[38;5;108m"
|
||||||
/set attributes.part = "\x1b[38;5;138m"
|
/set attributes.part = "\x1b[38;5;138m"
|
||||||
/set attributes.external = "\x1b[38;5;248m"
|
/set attributes.external = "\x1b[38;5;248m"
|
||||||
/set attributes.timestamp = "\x1b[48;5;255m\x1b[38;5;250m"
|
/set attributes.timestamp = "\x1b[48;5;255m\x1b[38;5;250m"
|
||||||
|
/set attributes.read_marker = "\x1b[38;5;202m"
|
||||||
|
|
||||||
Configuration profiles
|
Configuration profiles
|
||||||
----------------------
|
----------------------
|
||||||
@@ -182,5 +190,5 @@ License
|
|||||||
This software is released under the terms of the 0BSD license, the text of which
|
This software is released under the terms of the 0BSD license, the text of which
|
||||||
is included within the package along with the list of authors.
|
is included within the package along with the list of authors.
|
||||||
|
|
||||||
Note that 'degesch' technically becomes GPL-licensed when you statically link it
|
Note that 'xC' becomes GPL-licensed when you link it against GNU Readline,
|
||||||
against GNU Readline, but that is not a concern of this source package.
|
but that is not a concern of this source package. The licenses are compatible.
|
||||||
|
|||||||
96
common.c
96
common.c
@@ -1,7 +1,7 @@
|
|||||||
/*
|
/*
|
||||||
* common.c: common functionality
|
* common.c: common functionality
|
||||||
*
|
*
|
||||||
* Copyright (c) 2014 - 2015, Přemysl Janouch <p@janouch.name>
|
* Copyright (c) 2014 - 2020, Přemysl Eric Janouch <p@janouch.name>
|
||||||
*
|
*
|
||||||
* Permission to use, copy, modify, and/or distribute this software for any
|
* Permission to use, copy, modify, and/or distribute this software for any
|
||||||
* purpose with or without fee is hereby granted.
|
* purpose with or without fee is hereby granted.
|
||||||
@@ -22,11 +22,11 @@
|
|||||||
#define LIBERTY_WANT_PROTO_IRC
|
#define LIBERTY_WANT_PROTO_IRC
|
||||||
|
|
||||||
#ifdef WANT_SYSLOG_LOGGING
|
#ifdef WANT_SYSLOG_LOGGING
|
||||||
#define print_fatal_data ((void *) LOG_ERR)
|
#define print_fatal_data ((void *) LOG_ERR)
|
||||||
#define print_error_data ((void *) LOG_ERR)
|
#define print_error_data ((void *) LOG_ERR)
|
||||||
#define print_warning_data ((void *) LOG_WARNING)
|
#define print_warning_data ((void *) LOG_WARNING)
|
||||||
#define print_status_data ((void *) LOG_INFO)
|
#define print_status_data ((void *) LOG_INFO)
|
||||||
#define print_debug_data ((void *) LOG_DEBUG)
|
#define print_debug_data ((void *) LOG_DEBUG)
|
||||||
#endif // WANT_SYSLOG_LOGGING
|
#endif // WANT_SYSLOG_LOGGING
|
||||||
|
|
||||||
#include "liberty/liberty.c"
|
#include "liberty/liberty.c"
|
||||||
@@ -50,11 +50,28 @@ init_openssl (void)
|
|||||||
|
|
||||||
// --- To be moved to liberty --------------------------------------------------
|
// --- To be moved to liberty --------------------------------------------------
|
||||||
|
|
||||||
static void
|
// FIXME: in xssl_get_error() we rely on error reasons never being NULL (i.e.,
|
||||||
cstr_set (char **s, char *new)
|
// all loaded), which isn't very robust.
|
||||||
|
// TODO: check all places where this is used and see if we couldn't gain better
|
||||||
|
// information by piecing together some other subset of data from the error
|
||||||
|
// stack. Most often, this is used in an error_set() context, which would
|
||||||
|
// allow us to allocate memory instead of returning static strings.
|
||||||
|
static const char *
|
||||||
|
xerr_describe_error (void)
|
||||||
{
|
{
|
||||||
free (*s);
|
unsigned long err = ERR_get_error ();
|
||||||
*s = new;
|
if (!err)
|
||||||
|
return "undefined error";
|
||||||
|
|
||||||
|
const char *reason = ERR_reason_error_string (err);
|
||||||
|
do
|
||||||
|
// Not thread-safe, not a concern right now--need a buffer
|
||||||
|
print_debug ("%s", ERR_error_string (err, NULL));
|
||||||
|
while ((err = ERR_get_error ()));
|
||||||
|
|
||||||
|
if (!reason)
|
||||||
|
return "cannot retrieve error description";
|
||||||
|
return reason;
|
||||||
}
|
}
|
||||||
|
|
||||||
static ssize_t
|
static ssize_t
|
||||||
@@ -70,60 +87,15 @@ static time_t
|
|||||||
unixtime_msec (long *msec)
|
unixtime_msec (long *msec)
|
||||||
{
|
{
|
||||||
#ifdef _POSIX_TIMERS
|
#ifdef _POSIX_TIMERS
|
||||||
struct timespec tp;
|
struct timespec tp;
|
||||||
hard_assert (clock_gettime (CLOCK_REALTIME, &tp) != -1);
|
hard_assert (clock_gettime (CLOCK_REALTIME, &tp) != -1);
|
||||||
*msec = tp.tv_nsec / 1000000;
|
*msec = tp.tv_nsec / 1000000;
|
||||||
#else // ! _POSIX_TIMERS
|
#else // ! _POSIX_TIMERS
|
||||||
struct timeval tp;
|
struct timeval tp;
|
||||||
hard_assert (gettimeofday (&tp, NULL) != -1);
|
hard_assert (gettimeofday (&tp, NULL) != -1);
|
||||||
*msec = tp.tv_usec / 1000;
|
*msec = tp.tv_usec / 1000;
|
||||||
#endif // ! _POSIX_TIMERS
|
#endif // ! _POSIX_TIMERS
|
||||||
return tp.tv_sec;
|
return tp.tv_sec;
|
||||||
}
|
|
||||||
|
|
||||||
/// This differs from the non-unique version in that we expect the filename
|
|
||||||
/// to be something like a pattern for mkstemp(), so the resulting path can
|
|
||||||
/// reside in a system-wide directory with no risk of a conflict.
|
|
||||||
static char *
|
|
||||||
resolve_relative_runtime_unique_filename (const char *filename)
|
|
||||||
{
|
|
||||||
const char *runtime_dir = getenv ("XDG_RUNTIME_DIR");
|
|
||||||
const char *tmpdir = getenv ("TMPDIR");
|
|
||||||
|
|
||||||
struct str path = str_make ();
|
|
||||||
if (runtime_dir && *runtime_dir == '/')
|
|
||||||
str_append (&path, runtime_dir);
|
|
||||||
else if (tmpdir && *tmpdir == '/')
|
|
||||||
str_append (&path, tmpdir);
|
|
||||||
else
|
|
||||||
str_append (&path, "/tmp");
|
|
||||||
str_append_printf (&path, "/%s/%s", PROGRAM_NAME, filename);
|
|
||||||
|
|
||||||
// Try to create the file's ancestors;
|
|
||||||
// typically the user will want to immediately create a file in there
|
|
||||||
const char *last_slash = strrchr (path.str, '/');
|
|
||||||
if (last_slash && last_slash != path.str)
|
|
||||||
{
|
|
||||||
char *copy = xstrndup (path.str, last_slash - path.str);
|
|
||||||
(void) mkdir_with_parents (copy, NULL);
|
|
||||||
free (copy);
|
|
||||||
}
|
|
||||||
return str_steal (&path);
|
|
||||||
}
|
|
||||||
|
|
||||||
static bool
|
|
||||||
xwrite (int fd, const char *data, size_t len, struct error **e)
|
|
||||||
{
|
|
||||||
size_t written = 0;
|
|
||||||
while (written < len)
|
|
||||||
{
|
|
||||||
ssize_t res = write (fd, data + written, len - written);
|
|
||||||
if (res >= 0)
|
|
||||||
written += res;
|
|
||||||
else if (errno != EINTR)
|
|
||||||
return error_set (e, "%s", strerror (errno));
|
|
||||||
}
|
|
||||||
return true;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
// --- Logging -----------------------------------------------------------------
|
// --- Logging -----------------------------------------------------------------
|
||||||
|
|||||||
@@ -2,7 +2,6 @@
|
|||||||
#define CONFIG_H
|
#define CONFIG_H
|
||||||
|
|
||||||
#define PROGRAM_VERSION "${project_version}"
|
#define PROGRAM_VERSION "${project_version}"
|
||||||
#define ZYKLONB_PLUGIN_DIR "${CMAKE_INSTALL_PREFIX}/${zyklonb_plugin_dir}"
|
|
||||||
|
|
||||||
#cmakedefine HAVE_READLINE
|
#cmakedefine HAVE_READLINE
|
||||||
#cmakedefine HAVE_EDITLINE
|
#cmakedefine HAVE_EDITLINE
|
||||||
|
|||||||
2
liberty
2
liberty
Submodule liberty updated: bb30c7d86e...1b9d89cab3
@@ -1,8 +1,8 @@
|
|||||||
#!/usr/bin/env guile
|
#!/usr/bin/env guile
|
||||||
|
|
||||||
ZyklonB calc plugin, basic Scheme evaluator
|
xB calc plugin, basic Scheme evaluator
|
||||||
|
|
||||||
Copyright 2016 Přemysl Janouch
|
Copyright 2016 Přemysl Eric Janouch
|
||||||
See the file LICENSE for licensing information.
|
See the file LICENSE for licensing information.
|
||||||
|
|
||||||
!#
|
!#
|
||||||
@@ -77,7 +77,7 @@
|
|||||||
(substring line 0 (- len 1)) line))))
|
(substring line 0 (- len 1)) line))))
|
||||||
|
|
||||||
(define (get-config name)
|
(define (get-config name)
|
||||||
(send "ZYKLONB get_config :" name)
|
(send "XB get_config :" name)
|
||||||
(car (message-params (parse-message (get-line-crlf irc-input-port)))))
|
(car (message-params (parse-message (get-line-crlf irc-input-port)))))
|
||||||
|
|
||||||
(define (extract-nick prefix)
|
(define (extract-nick prefix)
|
||||||
@@ -216,7 +216,7 @@
|
|||||||
; --- Main loop ----------------------------------------------------------------
|
; --- Main loop ----------------------------------------------------------------
|
||||||
|
|
||||||
(define prefix (get-config "prefix"))
|
(define prefix (get-config "prefix"))
|
||||||
(send "ZYKLONB register")
|
(send "XB register")
|
||||||
|
|
||||||
(define (process msg)
|
(define (process msg)
|
||||||
(when (string-ci=? (message-command msg) "PRIVMSG")
|
(when (string-ci=? (message-command msg) "PRIVMSG")
|
||||||
@@ -1,8 +1,8 @@
|
|||||||
#!/usr/bin/env tclsh
|
#!/usr/bin/env tclsh
|
||||||
#
|
#
|
||||||
# ZyklonB coin plugin, random number-based utilities
|
# xB coin plugin, random number-based utilities
|
||||||
#
|
#
|
||||||
# Copyright 2012, 2014 Přemysl Janouch
|
# Copyright 2012, 2014 Přemysl Eric Janouch
|
||||||
# See the file LICENSE for licensing information.
|
# See the file LICENSE for licensing information.
|
||||||
#
|
#
|
||||||
|
|
||||||
@@ -37,7 +37,7 @@ proc parse {line} {
|
|||||||
|
|
||||||
proc get_config {key} {
|
proc get_config {key} {
|
||||||
global msg
|
global msg
|
||||||
puts "ZYKLONB get_config :$key"
|
puts "XB get_config :$key"
|
||||||
gets stdin line
|
gets stdin line
|
||||||
parse $line
|
parse $line
|
||||||
return [lindex $msg(param) 0]
|
return [lindex $msg(param) 0]
|
||||||
@@ -53,7 +53,7 @@ fconfigure stdin -translation crlf -encoding iso8859-1
|
|||||||
fconfigure stdout -translation crlf -encoding iso8859-1
|
fconfigure stdout -translation crlf -encoding iso8859-1
|
||||||
|
|
||||||
set prefix [get_config prefix]
|
set prefix [get_config prefix]
|
||||||
puts "ZYKLONB register"
|
puts "XB register"
|
||||||
|
|
||||||
set eightball [list \
|
set eightball [list \
|
||||||
"It is certain" \
|
"It is certain" \
|
||||||
@@ -1,8 +1,8 @@
|
|||||||
#!/usr/bin/awk -f
|
#!/usr/bin/awk -f
|
||||||
#
|
#
|
||||||
# ZyklonB eval plugin, LISP-like expression evaluator
|
# xB eval plugin, LISP-like expression evaluator
|
||||||
#
|
#
|
||||||
# Copyright 2013, 2014 Přemysl Janouch
|
# Copyright 2013, 2014 Přemysl Eric Janouch
|
||||||
# See the file LICENSE for licensing information.
|
# See the file LICENSE for licensing information.
|
||||||
#
|
#
|
||||||
|
|
||||||
@@ -15,7 +15,7 @@ BEGIN \
|
|||||||
|
|
||||||
prefix = get_config("prefix")
|
prefix = get_config("prefix")
|
||||||
|
|
||||||
print "ZYKLONB register"
|
print "XB register"
|
||||||
fflush("")
|
fflush("")
|
||||||
|
|
||||||
# All functions have to be in this particular array
|
# All functions have to be in this particular array
|
||||||
@@ -258,7 +258,7 @@ function process_end ()
|
|||||||
|
|
||||||
function get_config (key)
|
function get_config (key)
|
||||||
{
|
{
|
||||||
print "ZYKLONB get_config :" key
|
print "XB get_config :" key
|
||||||
fflush("")
|
fflush("")
|
||||||
|
|
||||||
getline
|
getline
|
||||||
@@ -1,8 +1,8 @@
|
|||||||
#!/usr/bin/env perl
|
#!/usr/bin/env perl
|
||||||
#
|
#
|
||||||
# ZyklonB factoids plugin
|
# xB factoids plugin
|
||||||
#
|
#
|
||||||
# Copyright 2016 Přemysl Janouch <p@janouch.name>
|
# Copyright 2016 Přemysl Eric Janouch <p@janouch.name>
|
||||||
# See the file LICENSE for licensing information.
|
# See the file LICENSE for licensing information.
|
||||||
#
|
#
|
||||||
|
|
||||||
@@ -24,18 +24,18 @@ sub parse ($) {
|
|||||||
}
|
}
|
||||||
|
|
||||||
sub bot_print {
|
sub bot_print {
|
||||||
print "ZYKLONB print :${\shift}";
|
print "XB print :${\shift}";
|
||||||
}
|
}
|
||||||
|
|
||||||
# --- Initialization -----------------------------------------------------------
|
# --- Initialization -----------------------------------------------------------
|
||||||
|
|
||||||
my %config;
|
my %config;
|
||||||
for my $name (qw(prefix)) {
|
for my $name (qw(prefix)) {
|
||||||
print "ZYKLONB get_config :$name";
|
print "XB get_config :$name";
|
||||||
$config{$name} = (parse <STDIN>)->{args}->[0];
|
$config{$name} = (parse <STDIN>)->{args}->[0];
|
||||||
}
|
}
|
||||||
|
|
||||||
print "ZYKLONB register";
|
print "XB register";
|
||||||
|
|
||||||
# --- Database -----------------------------------------------------------------
|
# --- Database -----------------------------------------------------------------
|
||||||
# Simple map of (factoid_name => [definitions]); all factoids are separated
|
# Simple map of (factoid_name => [definitions]); all factoids are separated
|
||||||
@@ -1,9 +1,9 @@
|
|||||||
#!/usr/bin/env ruby
|
#!/usr/bin/env ruby
|
||||||
# coding: utf-8
|
# coding: utf-8
|
||||||
#
|
#
|
||||||
# ZyklonB pomodoro plugin
|
# xB pomodoro plugin
|
||||||
#
|
#
|
||||||
# Copyright 2015 Přemysl Janouch
|
# Copyright 2015 Přemysl Eric Janouch
|
||||||
# See the file LICENSE for licensing information.
|
# See the file LICENSE for licensing information.
|
||||||
#
|
#
|
||||||
|
|
||||||
@@ -206,7 +206,7 @@ def parse (line)
|
|||||||
end
|
end
|
||||||
|
|
||||||
def bot_print (what)
|
def bot_print (what)
|
||||||
print "ZYKLONB print :#{what}"
|
print "XB print :#{what}"
|
||||||
end
|
end
|
||||||
|
|
||||||
# --- Initialization -----------------------------------------------------------
|
# --- Initialization -----------------------------------------------------------
|
||||||
@@ -215,12 +215,12 @@ end
|
|||||||
# To read it from anywhere else, it has to be done asynchronously
|
# To read it from anywhere else, it has to be done asynchronously
|
||||||
$config = {}
|
$config = {}
|
||||||
[:prefix].each do |name|
|
[:prefix].each do |name|
|
||||||
print "ZYKLONB get_config :#{name}"
|
print "XB get_config :#{name}"
|
||||||
_, _, _, _, args = *parse($stdin.gets.chomp)
|
_, _, _, _, args = *parse($stdin.gets.chomp)
|
||||||
$config[name] = args[0]
|
$config[name] = args[0]
|
||||||
end
|
end
|
||||||
|
|
||||||
print "ZYKLONB register"
|
print "XB register"
|
||||||
|
|
||||||
# --- Plugin logic -------------------------------------------------------------
|
# --- Plugin logic -------------------------------------------------------------
|
||||||
|
|
||||||
@@ -1,8 +1,8 @@
|
|||||||
#!/usr/bin/tcc -run -lm
|
#!/usr/bin/tcc -run -lm
|
||||||
//
|
//
|
||||||
// ZyklonB scripting plugin, using a custom stack-based language
|
// xB scripting plugin, using a custom stack-based language
|
||||||
//
|
//
|
||||||
// Copyright 2014 Přemysl Janouch
|
// Copyright 2014 Přemysl Eric Janouch
|
||||||
// See the file LICENSE for licensing information.
|
// See the file LICENSE for licensing information.
|
||||||
//
|
//
|
||||||
// Just compile this file as usual (sans #!) if you don't feel like using TCC.
|
// Just compile this file as usual (sans #!) if you don't feel like using TCC.
|
||||||
@@ -1964,12 +1964,12 @@ read_message (void)
|
|||||||
|
|
||||||
// --- Interfacing with the bot ------------------------------------------------
|
// --- Interfacing with the bot ------------------------------------------------
|
||||||
|
|
||||||
#define BOT_PRINT "ZYKLONB print :script: "
|
#define BOT_PRINT "XB print :script: "
|
||||||
|
|
||||||
static const char *
|
static const char *
|
||||||
get_config (const char *key)
|
get_config (const char *key)
|
||||||
{
|
{
|
||||||
printf ("ZYKLONB get_config :%s\r\n", key);
|
printf ("XB get_config :%s\r\n", key);
|
||||||
struct message *msg = read_message ();
|
struct message *msg = read_message ();
|
||||||
if (!msg || msg->n_params <= 0)
|
if (!msg || msg->n_params <= 0)
|
||||||
exit (EXIT_FAILURE);
|
exit (EXIT_FAILURE);
|
||||||
@@ -2298,7 +2298,7 @@ main (int argc, char *argv[])
|
|||||||
printf (BOT_PRINT "%s\r\n", "runtime library initialization failed");
|
printf (BOT_PRINT "%s\r\n", "runtime library initialization failed");
|
||||||
|
|
||||||
g_prefix = strdup (get_config ("prefix"));
|
g_prefix = strdup (get_config ("prefix"));
|
||||||
printf ("ZYKLONB register\r\n");
|
printf ("XB register\r\n");
|
||||||
struct message *msg;
|
struct message *msg;
|
||||||
while ((msg = read_message ()))
|
while ((msg = read_message ()))
|
||||||
process_message (msg);
|
process_message (msg);
|
||||||
@@ -1,8 +1,8 @@
|
|||||||
#!/usr/bin/env lua
|
#!/usr/bin/env lua
|
||||||
--
|
--
|
||||||
-- ZyklonB seen plugin
|
-- xB seen plugin
|
||||||
--
|
--
|
||||||
-- Copyright 2016 Přemysl Janouch <p@janouch.name>
|
-- Copyright 2016 Přemysl Eric Janouch <p@janouch.name>
|
||||||
-- See the file LICENSE for licensing information.
|
-- See the file LICENSE for licensing information.
|
||||||
--
|
--
|
||||||
|
|
||||||
@@ -26,7 +26,7 @@ function parse (line)
|
|||||||
end
|
end
|
||||||
|
|
||||||
function get_config (name)
|
function get_config (name)
|
||||||
io.write ("ZYKLONB get_config :", name, "\r\n")
|
io.write ("XB get_config :", name, "\r\n")
|
||||||
return parse (io.read ()).params[1]
|
return parse (io.read ()).params[1]
|
||||||
end
|
end
|
||||||
|
|
||||||
@@ -34,7 +34,7 @@ end
|
|||||||
|
|
||||||
io.output ():setvbuf ('line')
|
io.output ():setvbuf ('line')
|
||||||
local prefix = get_config ('prefix')
|
local prefix = get_config ('prefix')
|
||||||
io.write ("ZYKLONB register\r\n")
|
io.write ("XB register\r\n")
|
||||||
|
|
||||||
local db = {}
|
local db = {}
|
||||||
local db_filename = "seen.db"
|
local db_filename = "seen.db"
|
||||||
@@ -1,7 +1,7 @@
|
|||||||
#!/usr/bin/env perl
|
#!/usr/bin/env perl
|
||||||
# Creates a database for the "seen" plugin from logs for degesch.
|
# Creates a database for the "seen" plugin from logs for xC.
|
||||||
# The results may not be completely accurate but are good for jumpstarting.
|
# The results may not be completely accurate but are good for jumpstarting.
|
||||||
# Usage: ./seen-import-degesch.pl LOG-FILE... > seen.db
|
# Usage: ./seen-import-xC.pl LOG-FILE... > seen.db
|
||||||
|
|
||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
@@ -1,8 +1,8 @@
|
|||||||
#!/usr/bin/env python3
|
#!/usr/bin/env python3
|
||||||
#
|
#
|
||||||
# ZyklonB YouTube plugin, displaying info about YouTube links
|
# xB YouTube plugin, displaying info about YouTube links
|
||||||
#
|
#
|
||||||
# Copyright 2014 - 2015, Přemysl Janouch <p@janouch.name>
|
# Copyright 2014 - 2015, Přemysl Eric Janouch <p@janouch.name>
|
||||||
# See the file LICENSE for licensing information.
|
# See the file LICENSE for licensing information.
|
||||||
#
|
#
|
||||||
|
|
||||||
@@ -27,12 +27,12 @@ class Plugin:
|
|||||||
return (nick, user, host, command, args)
|
return (nick, user, host, command, args)
|
||||||
|
|
||||||
def get_config (self, key):
|
def get_config (self, key):
|
||||||
print ("ZYKLONB get_config :%s" % key)
|
print ("XB get_config :%s" % key)
|
||||||
(_, _, _, _, args) = self.parse (sys.stdin.readline ())
|
(_, _, _, _, args) = self.parse (sys.stdin.readline ())
|
||||||
return args[0]
|
return args[0]
|
||||||
|
|
||||||
def bot_print (self, what):
|
def bot_print (self, what):
|
||||||
print ('ZYKLONB print :%s' % what)
|
print ('XB print :%s' % what)
|
||||||
|
|
||||||
class YouTube (Plugin):
|
class YouTube (Plugin):
|
||||||
re_videos = [re.compile (x) for x in [
|
re_videos = [re.compile (x) for x in [
|
||||||
@@ -98,7 +98,7 @@ class YouTube (Plugin):
|
|||||||
if self.youtube_api_key == "":
|
if self.youtube_api_key == "":
|
||||||
self.bot_print ("youtube: missing `youtube_api_key'")
|
self.bot_print ("youtube: missing `youtube_api_key'")
|
||||||
|
|
||||||
print ("ZYKLONB register")
|
print ("XB register")
|
||||||
|
|
||||||
for line in sys.stdin:
|
for line in sys.stdin:
|
||||||
self.process_line (line)
|
self.process_line (line)
|
||||||
@@ -1,7 +1,7 @@
|
|||||||
--
|
--
|
||||||
-- auto-rejoin.lua: join back automatically when someone kicks you
|
-- auto-rejoin.lua: join back automatically when someone kicks you
|
||||||
--
|
--
|
||||||
-- Copyright (c) 2016, Přemysl Janouch <p@janouch.name>
|
-- Copyright (c) 2016, Přemysl Eric Janouch <p@janouch.name>
|
||||||
--
|
--
|
||||||
-- Permission to use, copy, modify, and/or distribute this software for any
|
-- Permission to use, copy, modify, and/or distribute this software for any
|
||||||
-- purpose with or without fee is hereby granted.
|
-- purpose with or without fee is hereby granted.
|
||||||
@@ -16,7 +16,7 @@
|
|||||||
--
|
--
|
||||||
|
|
||||||
local timeout
|
local timeout
|
||||||
degesch.setup_config {
|
xC.setup_config {
|
||||||
timeout = {
|
timeout = {
|
||||||
type = "integer",
|
type = "integer",
|
||||||
comment = "auto rejoin timeout",
|
comment = "auto rejoin timeout",
|
||||||
@@ -31,9 +31,9 @@ degesch.setup_config {
|
|||||||
},
|
},
|
||||||
}
|
}
|
||||||
|
|
||||||
async, await = degesch.async, coroutine.yield
|
async, await = xC.async, coroutine.yield
|
||||||
degesch.hook_irc (function (hook, server, line)
|
xC.hook_irc (function (hook, server, line)
|
||||||
local msg = degesch.parse (line)
|
local msg = xC.parse (line)
|
||||||
if msg.command ~= "KICK" then return line end
|
if msg.command ~= "KICK" then return line end
|
||||||
|
|
||||||
local who = msg.prefix:match ("^[^!]*")
|
local who = msg.prefix:match ("^[^!]*")
|
||||||
@@ -1,7 +1,7 @@
|
|||||||
--
|
--
|
||||||
-- censor.lua: black out certain users' messages
|
-- censor.lua: black out certain users' messages
|
||||||
--
|
--
|
||||||
-- Copyright (c) 2016, Přemysl Janouch <p@janouch.name>
|
-- Copyright (c) 2016 - 2021, Přemysl Eric Janouch <p@janouch.name>
|
||||||
--
|
--
|
||||||
-- Permission to use, copy, modify, and/or distribute this software for any
|
-- Permission to use, copy, modify, and/or distribute this software for any
|
||||||
-- purpose with or without fee is hereby granted.
|
-- purpose with or without fee is hereby granted.
|
||||||
@@ -38,25 +38,42 @@ local read_masks = function (v)
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
degesch.setup_config {
|
local quote
|
||||||
|
xC.setup_config {
|
||||||
masks = {
|
masks = {
|
||||||
type = "string_array",
|
type = "string_array",
|
||||||
default = "\"\"",
|
default = "\"\"",
|
||||||
comment = "user masks (optionally \"/#channel\") to censor",
|
comment = "user masks (optionally \"/#channel\") to censor",
|
||||||
on_change = read_masks
|
on_change = read_masks
|
||||||
},
|
},
|
||||||
|
quote = {
|
||||||
|
type = "string",
|
||||||
|
default = "\"\\x0301,01\"",
|
||||||
|
comment = "formatting prefix for censored messages",
|
||||||
|
on_change = function (v) quote = v end
|
||||||
|
},
|
||||||
}
|
}
|
||||||
|
|
||||||
|
local decolor = function (text)
|
||||||
|
local rebuilt, last = {""}, 1
|
||||||
|
for start in text:gmatch ('()\x03') do
|
||||||
|
table.insert (rebuilt, text:sub (last, start - 1))
|
||||||
|
local sub = text:sub (start + 1)
|
||||||
|
last = start + (sub:match ('^%d%d?,%d%d?()') or sub:match ('^%d?%d?()'))
|
||||||
|
end
|
||||||
|
return table.concat (rebuilt) .. text:sub (last)
|
||||||
|
end
|
||||||
|
|
||||||
local censor = function (line)
|
local censor = function (line)
|
||||||
-- Taking a shortcut to avoid lengthy message reassembly
|
-- Taking a shortcut to avoid lengthy message reassembly
|
||||||
local start, text = line:match ("^(.- PRIVMSG .-:)(.*)$")
|
local start, text = line:match ("^(.- PRIVMSG .- :)(.*)$")
|
||||||
local ctcp, rest = text:match ("^(\x01%g+ )(.*)")
|
local ctcp, rest = text:match ("^(\x01%g+ )(.*)")
|
||||||
text = ctcp and ctcp .. "\x0301,01" .. rest or "\x0301,01" .. text
|
text = ctcp and ctcp .. quote .. decolor (rest) or quote .. decolor (text)
|
||||||
return start .. text
|
return start .. text
|
||||||
end
|
end
|
||||||
|
|
||||||
degesch.hook_irc (function (hook, server, line)
|
xC.hook_irc (function (hook, server, line)
|
||||||
local msg = degesch.parse (line)
|
local msg = xC.parse (line)
|
||||||
if msg.command ~= "PRIVMSG" then return line end
|
if msg.command ~= "PRIVMSG" then return line end
|
||||||
|
|
||||||
local channel = msg.params[1]:lower ()
|
local channel = msg.params[1]:lower ()
|
||||||
@@ -1,7 +1,7 @@
|
|||||||
--
|
--
|
||||||
-- fancy-prompt.lua: the fancy multiline prompt you probably want
|
-- fancy-prompt.lua: the fancy multiline prompt you probably want
|
||||||
--
|
--
|
||||||
-- Copyright (c) 2016, Přemysl Janouch <p@janouch.name>
|
-- Copyright (c) 2016, Přemysl Eric Janouch <p@janouch.name>
|
||||||
--
|
--
|
||||||
-- Permission to use, copy, modify, and/or distribute this software for any
|
-- Permission to use, copy, modify, and/or distribute this software for any
|
||||||
-- purpose with or without fee is hereby granted.
|
-- purpose with or without fee is hereby granted.
|
||||||
@@ -28,15 +28,15 @@
|
|||||||
-- background but to really fix that mode, we'd have to fully reimplement it
|
-- background but to really fix that mode, we'd have to fully reimplement it
|
||||||
-- since its alternative prompt very often gets overriden by accident anyway.
|
-- since its alternative prompt very often gets overriden by accident anyway.
|
||||||
|
|
||||||
degesch.hook_prompt (function (hook)
|
xC.hook_prompt (function (hook)
|
||||||
local current = degesch.current_buffer
|
local current = xC.current_buffer
|
||||||
local chan = current.channel
|
local chan = current.channel
|
||||||
local s = current.server
|
local s = current.server
|
||||||
|
|
||||||
local bg_color = "255"
|
local bg_color = "255"
|
||||||
local current_n = 0
|
local current_n = 0
|
||||||
local active = ""
|
local active = ""
|
||||||
for i, buffer in ipairs (degesch.buffers) do
|
for i, buffer in ipairs (xC.buffers) do
|
||||||
if buffer == current then
|
if buffer == current then
|
||||||
current_n = i
|
current_n = i
|
||||||
elseif buffer.new_messages_count ~= buffer.new_unimportant_count then
|
elseif buffer.new_messages_count ~= buffer.new_unimportant_count then
|
||||||
@@ -61,15 +61,16 @@ degesch.hook_prompt (function (hook)
|
|||||||
end
|
end
|
||||||
if current.hide_unimportant then x = x .. "<H>" end
|
if current.hide_unimportant then x = x .. "<H>" end
|
||||||
|
|
||||||
local lines, cols = degesch.get_screen_size ()
|
local lines, cols = xC.get_screen_size ()
|
||||||
x = x .. " " .. active .. string.rep (" ", cols)
|
x = x .. " " .. active .. string.rep (" ", cols)
|
||||||
|
|
||||||
-- Readline seems to be broken and completely corrupts the prompt
|
-- Readline 7.0.003 seems to be broken and completely corrupts the prompt.
|
||||||
-- (tested on 7.0.003 Archlinux, 7.0-5 Debian buster)
|
-- However 8.0.004 seems to be fine with these, as is libedit 20191231-3.1.
|
||||||
x = x:gsub("[\128-\255]", "?")
|
--x = x:gsub("[\128-\255]", "?")
|
||||||
|
|
||||||
-- Cut off extra characters and apply formatting, including the hack.
|
-- Cut off extra characters and apply formatting, including the hack.
|
||||||
-- Note that this doesn't count with full-width or zero-width characters.
|
-- FIXME: this doesn't count with full-width or zero-width characters.
|
||||||
|
-- We might want to export wcwidth() above term_from_utf8 somehow.
|
||||||
local overflow = utf8.offset (x, cols - 1)
|
local overflow = utf8.offset (x, cols - 1)
|
||||||
if overflow then x = x:sub (1, overflow) end
|
if overflow then x = x:sub (1, overflow) end
|
||||||
x = "\x01\x1b[0;4;1;38;5;16m\x1b[48;5;" .. bg_color .. "m\x02" ..
|
x = "\x01\x1b[0;4;1;38;5;16m\x1b[48;5;" .. bg_color .. "m\x02" ..
|
||||||
@@ -5,7 +5,7 @@
|
|||||||
--
|
--
|
||||||
-- I call this style closure-oriented programming
|
-- I call this style closure-oriented programming
|
||||||
--
|
--
|
||||||
-- Copyright (c) 2016, Přemysl Janouch <p@janouch.name>
|
-- Copyright (c) 2016, Přemysl Eric Janouch <p@janouch.name>
|
||||||
--
|
--
|
||||||
-- Permission to use, copy, modify, and/or distribute this software for any
|
-- Permission to use, copy, modify, and/or distribute this software for any
|
||||||
-- purpose with or without fee is hereby granted.
|
-- purpose with or without fee is hereby granted.
|
||||||
@@ -23,7 +23,7 @@ local cjson = require "cjson"
|
|||||||
|
|
||||||
-- Setup configuration to load last.fm API credentials from
|
-- Setup configuration to load last.fm API credentials from
|
||||||
local user, api_key
|
local user, api_key
|
||||||
degesch.setup_config {
|
xC.setup_config {
|
||||||
user = {
|
user = {
|
||||||
type = "string",
|
type = "string",
|
||||||
comment = "last.fm username",
|
comment = "last.fm username",
|
||||||
@@ -117,7 +117,7 @@ end
|
|||||||
local running
|
local running
|
||||||
|
|
||||||
-- Initiate a connection to last.fm servers
|
-- Initiate a connection to last.fm servers
|
||||||
async, await = degesch.async, coroutine.yield
|
async, await = xC.async, coroutine.yield
|
||||||
local make_request = function (buffer, action)
|
local make_request = function (buffer, action)
|
||||||
if not user or not api_key then
|
if not user or not api_key then
|
||||||
report_error (buffer, "configuration is incomplete")
|
report_error (buffer, "configuration is incomplete")
|
||||||
@@ -159,7 +159,7 @@ local send_song = function (buffer)
|
|||||||
end
|
end
|
||||||
|
|
||||||
-- Hook input to simulate new commands
|
-- Hook input to simulate new commands
|
||||||
degesch.hook_input (function (hook, buffer, input)
|
xC.hook_input (function (hook, buffer, input)
|
||||||
if input == "/np" then
|
if input == "/np" then
|
||||||
make_request (buffer, function (np)
|
make_request (buffer, function (np)
|
||||||
now_playing = np
|
now_playing = np
|
||||||
@@ -1,7 +1,7 @@
|
|||||||
--
|
--
|
||||||
-- ping-timeout.lua: ping timeout readability enhancement plugin
|
-- ping-timeout.lua: ping timeout readability enhancement plugin
|
||||||
--
|
--
|
||||||
-- Copyright (c) 2015 - 2016, Přemysl Janouch <p@janouch.name>
|
-- Copyright (c) 2015 - 2016, Přemysl Eric Janouch <p@janouch.name>
|
||||||
--
|
--
|
||||||
-- Permission to use, copy, modify, and/or distribute this software for any
|
-- Permission to use, copy, modify, and/or distribute this software for any
|
||||||
-- purpose with or without fee is hereby granted.
|
-- purpose with or without fee is hereby granted.
|
||||||
@@ -15,8 +15,8 @@
|
|||||||
-- CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
-- CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||||
--
|
--
|
||||||
|
|
||||||
degesch.hook_irc (function (hook, server, line)
|
xC.hook_irc (function (hook, server, line)
|
||||||
local msg = degesch.parse (line)
|
local msg = xC.parse (line)
|
||||||
local start, timeout = line:match ("^(.* :Ping timeout:) (%d+) seconds$")
|
local start, timeout = line:match ("^(.* :Ping timeout:) (%d+) seconds$")
|
||||||
if msg.command ~= "QUIT" or not start then
|
if msg.command ~= "QUIT" or not start then
|
||||||
return line
|
return line
|
||||||
68
plugins/xC/prime.lua
Normal file
68
plugins/xC/prime.lua
Normal file
@@ -0,0 +1,68 @@
|
|||||||
|
--
|
||||||
|
-- prime.lua: highlight prime numbers in messages
|
||||||
|
--
|
||||||
|
-- Copyright (c) 2020, Přemysl Eric Janouch <p@janouch.name>
|
||||||
|
--
|
||||||
|
-- Permission to use, copy, modify, and/or distribute this software for any
|
||||||
|
-- purpose with or without fee is hereby granted.
|
||||||
|
--
|
||||||
|
-- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
||||||
|
-- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
||||||
|
-- MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
|
||||||
|
-- SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
||||||
|
-- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION
|
||||||
|
-- OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
|
||||||
|
-- CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||||
|
--
|
||||||
|
|
||||||
|
local smallest, highlight = 0, "\x1f"
|
||||||
|
xC.setup_config {
|
||||||
|
smallest = {
|
||||||
|
type = "integer",
|
||||||
|
default = "0",
|
||||||
|
comment = "smallest number to scan for primality",
|
||||||
|
on_change = function (v) smallest = math.max (v, 2) end
|
||||||
|
},
|
||||||
|
highlight = {
|
||||||
|
type = "string",
|
||||||
|
default = "\"\\x1f\"",
|
||||||
|
comment = "the attribute to use for highlights",
|
||||||
|
on_change = function (v) highlight = v end
|
||||||
|
},
|
||||||
|
}
|
||||||
|
|
||||||
|
-- The prime test is actually very fast, so there is no DoS concern
|
||||||
|
local do_intercolour = function (text)
|
||||||
|
return tostring (text:gsub ("%f[%w_]%d+", function (n)
|
||||||
|
if tonumber (n) < smallest then return nil end
|
||||||
|
for i = 2, n ^ (1 / 2) do if (n % i) == 0 then return nil end end
|
||||||
|
return highlight .. n .. highlight
|
||||||
|
end))
|
||||||
|
end
|
||||||
|
|
||||||
|
local do_interlink = function (text)
|
||||||
|
local rebuilt, last = {""}, 1
|
||||||
|
for start in text:gmatch ('()\x03') do
|
||||||
|
table.insert (rebuilt, do_intercolour (text:sub (last, start - 1)))
|
||||||
|
local sub = text:sub (start + 1)
|
||||||
|
last = start + (sub:match ('^%d%d?,%d%d?()') or sub:match ('^%d?%d?()'))
|
||||||
|
table.insert (rebuilt, text:sub (start, last - 1))
|
||||||
|
end
|
||||||
|
return table.concat (rebuilt) .. do_intercolour (text:sub (last))
|
||||||
|
end
|
||||||
|
|
||||||
|
local do_message = function (text)
|
||||||
|
local rebuilt, last = {""}, 1
|
||||||
|
for run, link, endpos in text:gmatch ('(.-)(%f[%g]https?://%g+)()') do
|
||||||
|
last = endpos
|
||||||
|
table.insert (rebuilt, do_interlink (run) .. link)
|
||||||
|
end
|
||||||
|
return table.concat (rebuilt) .. do_interlink (text:sub (last))
|
||||||
|
end
|
||||||
|
|
||||||
|
-- XXX: sadly it won't typically highlight primes in our own messages,
|
||||||
|
-- unless IRCv3 echo-message is on
|
||||||
|
xC.hook_irc (function (hook, server, line)
|
||||||
|
local start, message = line:match ("^(.- PRIVMSG .- :)(.*)$")
|
||||||
|
return message and start .. do_message (message) or line
|
||||||
|
end)
|
||||||
@@ -1,7 +1,7 @@
|
|||||||
--
|
--
|
||||||
-- slack.lua: try to fix up UX when using the Slack IRC gateway
|
-- slack.lua: try to fix up UX when using the Slack IRC gateway
|
||||||
--
|
--
|
||||||
-- Copyright (c) 2017, Přemysl Janouch <p@janouch.name>
|
-- Copyright (c) 2017, Přemysl Eric Janouch <p@janouch.name>
|
||||||
--
|
--
|
||||||
-- Permission to use, copy, modify, and/or distribute this software for any
|
-- Permission to use, copy, modify, and/or distribute this software for any
|
||||||
-- purpose with or without fee is hereby granted.
|
-- purpose with or without fee is hereby granted.
|
||||||
@@ -51,7 +51,7 @@ local load_emoji = function (extra)
|
|||||||
for k, v in extra:gmatch "([^,]+) ([^,]+)" do emoji[k] = v end
|
for k, v in extra:gmatch "([^,]+) ([^,]+)" do emoji[k] = v end
|
||||||
end
|
end
|
||||||
|
|
||||||
degesch.setup_config {
|
xC.setup_config {
|
||||||
servers = {
|
servers = {
|
||||||
type = "string_array",
|
type = "string_array",
|
||||||
default = "\"\"",
|
default = "\"\"",
|
||||||
@@ -74,8 +74,8 @@ degesch.setup_config {
|
|||||||
|
|
||||||
-- We can handle external messages about what we've supposedly sent just fine,
|
-- We can handle external messages about what we've supposedly sent just fine,
|
||||||
-- so let's get rid of that "[username] some message sent from the web UI" crap
|
-- so let's get rid of that "[username] some message sent from the web UI" crap
|
||||||
degesch.hook_irc (function (hook, server, line)
|
xC.hook_irc (function (hook, server, line)
|
||||||
local msg, us = degesch.parse (line), server.user
|
local msg, us = xC.parse (line), server.user
|
||||||
if not servers[server.name] or msg.command ~= "PRIVMSG" or not us
|
if not servers[server.name] or msg.command ~= "PRIVMSG" or not us
|
||||||
or msg.params[1]:lower () ~= us.nickname:lower () then return line end
|
or msg.params[1]:lower () ~= us.nickname:lower () then return line end
|
||||||
|
|
||||||
@@ -88,10 +88,10 @@ degesch.hook_irc (function (hook, server, line)
|
|||||||
end)
|
end)
|
||||||
|
|
||||||
-- Unfuck emoji and :nick!nick@irc.tinyspeck.com MODE #channel +v nick : active
|
-- Unfuck emoji and :nick!nick@irc.tinyspeck.com MODE #channel +v nick : active
|
||||||
degesch.hook_irc (function (hook, server, line)
|
xC.hook_irc (function (hook, server, line)
|
||||||
if not servers[server.name] then return line end
|
if not servers[server.name] then return line end
|
||||||
if unemojify then
|
if unemojify then
|
||||||
local start, text = line:match ("^(.- PRIVMSG .-:)(.*)$")
|
local start, text = line:match ("^(.- PRIVMSG .- :)(.*)$")
|
||||||
if start then return start .. text:gsub (":([a-z_]+):", function (name)
|
if start then return start .. text:gsub (":([a-z_]+):", function (name)
|
||||||
if emoji[name] then return emoji[name] end
|
if emoji[name] then return emoji[name] end
|
||||||
return ":" .. name .. ":"
|
return ":" .. name .. ":"
|
||||||
@@ -101,7 +101,7 @@ degesch.hook_irc (function (hook, server, line)
|
|||||||
end)
|
end)
|
||||||
|
|
||||||
-- The gateway simply ignores the NAMES command altogether
|
-- The gateway simply ignores the NAMES command altogether
|
||||||
degesch.hook_input (function (hook, buffer, input)
|
xC.hook_input (function (hook, buffer, input)
|
||||||
if not buffer.channel or not servers[buffer.server.name]
|
if not buffer.channel or not servers[buffer.server.name]
|
||||||
or not input:match "^/names%s*$" then return input end
|
or not input:match "^/names%s*$" then return input end
|
||||||
|
|
||||||
@@ -119,9 +119,9 @@ degesch.hook_input (function (hook, buffer, input)
|
|||||||
buffer:log (names)
|
buffer:log (names)
|
||||||
end)
|
end)
|
||||||
|
|
||||||
degesch.hook_completion (function (hook, data, word)
|
xC.hook_completion (function (hook, data, word)
|
||||||
local chan = degesch.current_buffer.channel
|
local chan = xC.current_buffer.channel
|
||||||
local server = degesch.current_buffer.server
|
local server = xC.current_buffer.server
|
||||||
if not chan or not servers[server.name] then return end
|
if not chan or not servers[server.name] then return end
|
||||||
|
|
||||||
-- In /commands there is typically no desire at all to add the at sign
|
-- In /commands there is typically no desire at all to add the at sign
|
||||||
@@ -1,7 +1,7 @@
|
|||||||
--
|
--
|
||||||
-- thin-cursor.lua: set a thin cursor
|
-- thin-cursor.lua: set a thin cursor
|
||||||
--
|
--
|
||||||
-- Copyright (c) 2016, Přemysl Janouch <p@janouch.name>
|
-- Copyright (c) 2016, Přemysl Eric Janouch <p@janouch.name>
|
||||||
--
|
--
|
||||||
-- Permission to use, copy, modify, and/or distribute this software for any
|
-- Permission to use, copy, modify, and/or distribute this software for any
|
||||||
-- purpose with or without fee is hereby granted.
|
-- purpose with or without fee is hereby granted.
|
||||||
@@ -1,7 +1,7 @@
|
|||||||
--
|
--
|
||||||
-- utm-filter.lua: filter out Google Analytics bullshit from URLs
|
-- utm-filter.lua: filter out Google Analytics bullshit from URLs
|
||||||
--
|
--
|
||||||
-- Copyright (c) 2015, Přemysl Janouch <p@janouch.name>
|
-- Copyright (c) 2015, Přemysl Eric Janouch <p@janouch.name>
|
||||||
--
|
--
|
||||||
-- Permission to use, copy, modify, and/or distribute this software for any
|
-- Permission to use, copy, modify, and/or distribute this software for any
|
||||||
-- purpose with or without fee is hereby granted.
|
-- purpose with or without fee is hereby granted.
|
||||||
@@ -52,11 +52,11 @@ local do_text = function (text)
|
|||||||
return text:gsub ('%f[%g]https?://%g+', do_single_url)
|
return text:gsub ('%f[%g]https?://%g+', do_single_url)
|
||||||
end
|
end
|
||||||
|
|
||||||
degesch.hook_irc (function (hook, server, line)
|
xC.hook_irc (function (hook, server, line)
|
||||||
local start, message = line:match ("^(.* :)(.*)$")
|
local start, message = line:match ("^(.* :)(.*)$")
|
||||||
return message and start .. do_text (message) or line
|
return message and start .. do_text (message) or line
|
||||||
end)
|
end)
|
||||||
|
|
||||||
degesch.hook_input (function (hook, buffer, input)
|
xC.hook_input (function (hook, buffer, input)
|
||||||
return do_text (input)
|
return do_text (input)
|
||||||
end)
|
end)
|
||||||
8
test
8
test
@@ -1,14 +1,14 @@
|
|||||||
#!/usr/bin/expect -f
|
#!/usr/bin/expect -f
|
||||||
# Very basic end-to-end testing for Travis CI
|
# Very basic end-to-end testing for CI
|
||||||
|
|
||||||
# Run the daemon to test against
|
# Run the daemon to test against
|
||||||
system ./kike --write-default-cfg
|
system ./xD --write-default-cfg
|
||||||
spawn ./kike -d
|
spawn ./xD -d
|
||||||
|
|
||||||
# 10 seconds is a bit too much
|
# 10 seconds is a bit too much
|
||||||
set timeout 5
|
set timeout 5
|
||||||
|
|
||||||
spawn ./degesch
|
spawn ./xC
|
||||||
|
|
||||||
# Fuck this Tcl shit, I want the exit code
|
# Fuck this Tcl shit, I want the exit code
|
||||||
expect_after {
|
expect_after {
|
||||||
|
|||||||
26
test-nick-colors
Executable file
26
test-nick-colors
Executable file
@@ -0,0 +1,26 @@
|
|||||||
|
#!/bin/sh
|
||||||
|
# Check whether the terminal colours filtered by our algorithm are legible
|
||||||
|
export example=$(
|
||||||
|
tcc "-run -lm" - <<-END
|
||||||
|
#include <stddef.h>
|
||||||
|
#include <stdio.h>
|
||||||
|
#include <math.h>
|
||||||
|
|
||||||
|
#define N_ELEMENTS(a) (sizeof (a) / sizeof ((a)[0]))
|
||||||
|
|
||||||
|
$(perl -0777 -ne 'print $& if /^.*?\nfilter_color(?s:.*?)^}$/m' \
|
||||||
|
"$(dirname "$0")"/xC.c)
|
||||||
|
|
||||||
|
void main () {
|
||||||
|
size_t len = 0;
|
||||||
|
int *table = filter_color_cube_for_acceptable_nick_colors (&len);
|
||||||
|
for (size_t i = 0; i < len; i++)
|
||||||
|
printf ("<@\\x1b[38;5;%dmIRCuser\\x1b[m> I'm typing!\n", table[i]);
|
||||||
|
}
|
||||||
|
END
|
||||||
|
)
|
||||||
|
|
||||||
|
# Both should give acceptable results,
|
||||||
|
# which results in a bad compromise that the main author himself needs
|
||||||
|
xterm -bg black -fg white -e 'echo $example; cat' &
|
||||||
|
xterm -bg white -fg black -e 'echo $example; cat' &
|
||||||
@@ -1,7 +1,7 @@
|
|||||||
#!/bin/sh
|
#!/bin/sh
|
||||||
# We don't use printf's percent notation with our custom logging mechanism,
|
# We don't use printf's percent notation with our custom logging mechanism,
|
||||||
# so the compiler cannot check it for us like it usually does
|
# so the compiler cannot check it for us like it usually does
|
||||||
perl -n0777 - "$(dirname "$0")"/degesch.c <<-'END'
|
perl -n0777 - "$(dirname "$0")"/xC.c <<-'END'
|
||||||
while (/\blog_[^ ]+\s*\([^"()]*"[^"]*%[^%][^"]*"/gm) {
|
while (/\blog_[^ ]+\s*\([^"()]*"[^"]*%[^%][^"]*"/gm) {
|
||||||
my ($p, $m) = ($`, $&);
|
my ($p, $m) = ($`, $&);
|
||||||
printf "$ARGV:%d: suspicious log format string: %s...\n",
|
printf "$ARGV:%d: suspicious log format string: %s...\n",
|
||||||
|
|||||||
104
xB.adoc
Normal file
104
xB.adoc
Normal file
@@ -0,0 +1,104 @@
|
|||||||
|
xB(1)
|
||||||
|
=====
|
||||||
|
:doctype: manpage
|
||||||
|
:manmanual: uirc3 Manual
|
||||||
|
:mansource: uirc3 {release-version}
|
||||||
|
|
||||||
|
Name
|
||||||
|
----
|
||||||
|
xB - modular IRC bot
|
||||||
|
|
||||||
|
Synopsis
|
||||||
|
--------
|
||||||
|
*xB* [_OPTION_]...
|
||||||
|
|
||||||
|
Description
|
||||||
|
-----------
|
||||||
|
*xB* is a modular IRC bot with a programming language-agnostic plugin
|
||||||
|
architecture based on co-processes.
|
||||||
|
|
||||||
|
Options
|
||||||
|
-------
|
||||||
|
*-d*, *--debug*::
|
||||||
|
Print more information to help debug various issues.
|
||||||
|
|
||||||
|
*-h*, *--help*::
|
||||||
|
Display a help message and exit.
|
||||||
|
|
||||||
|
*-V*, *--version*::
|
||||||
|
Output version information and exit.
|
||||||
|
|
||||||
|
*--write-default-cfg*[**=**__PATH__]::
|
||||||
|
Write a configuration file with defaults, show its path and exit.
|
||||||
|
+
|
||||||
|
The file will be appropriately commented.
|
||||||
|
|
||||||
|
Commands
|
||||||
|
--------
|
||||||
|
The bot accepts the following commands when they either appear quoted by the
|
||||||
|
*prefix* string on a channel or unquoted as a private message sent directly
|
||||||
|
to the bot, on the condition that the sending user matches the *admin*
|
||||||
|
regular expression or that it is left unset:
|
||||||
|
|
||||||
|
*quote* [_message_]::
|
||||||
|
Forwards the message to the IRC server as-is.
|
||||||
|
*quit* [_reason_]::
|
||||||
|
Quits the IRC server, with an optional reason string.
|
||||||
|
*status*::
|
||||||
|
Sends back a report about its state and all loaded plugins.
|
||||||
|
*load* _plugin_[, _plugin_]...::
|
||||||
|
Tries to load the given plugins.
|
||||||
|
*unload* _plugin_[, _plugin_]...::
|
||||||
|
Tries to unload the given plugins.
|
||||||
|
*reload* _plugin_[, _plugin_]...::
|
||||||
|
The same as *unload* immediately followed by *load*.
|
||||||
|
|
||||||
|
Plugins
|
||||||
|
-------
|
||||||
|
Plugins communicate with the bot over their standard input and output streams
|
||||||
|
using the IRC protocol. (Caveat: the standard C library doesn't automatically
|
||||||
|
flush FILE streams for pipes on newlines.) A special *XB* command is introduced
|
||||||
|
for RPC, with the following subcommands:
|
||||||
|
|
||||||
|
*XB get_config* _key_::
|
||||||
|
Request the value of the given configuration option. If no such option
|
||||||
|
exists, the value will be empty. The response will be delivered in
|
||||||
|
the following format:
|
||||||
|
+
|
||||||
|
```
|
||||||
|
XB :value
|
||||||
|
```
|
||||||
|
+
|
||||||
|
This is particularly useful for retrieving the *prefix* string.
|
||||||
|
|
||||||
|
*XB print* _message_::
|
||||||
|
Make the bot print the _message_ on its standard output.
|
||||||
|
|
||||||
|
*XB register*::
|
||||||
|
Once a plugin issues this command, it will start receiving all of the bot's
|
||||||
|
incoming IRC traffic, which includes data from the initialization period.
|
||||||
|
|
||||||
|
All other commands will be forwarded directly to the IRC server.
|
||||||
|
|
||||||
|
Files
|
||||||
|
-----
|
||||||
|
*xB* follows the XDG Base Directory Specification.
|
||||||
|
|
||||||
|
_~/.config/xB/xB.conf_::
|
||||||
|
The bot's configuration file. Use the *--write-default-cfg* option
|
||||||
|
to create a new one for editing.
|
||||||
|
|
||||||
|
_~/.local/share/xB/_::
|
||||||
|
The initial working directory for plugins, in which they may create private
|
||||||
|
databases or other files as needed.
|
||||||
|
|
||||||
|
_~/.local/share/xB/plugins/_::
|
||||||
|
_/usr/local/share/xB/plugins/_::
|
||||||
|
_/usr/share/xB/plugins/_::
|
||||||
|
Plugins are searched for in these directories, in order, unless
|
||||||
|
the *plugin_dir* configuration option overrides this.
|
||||||
|
|
||||||
|
Reporting bugs
|
||||||
|
--------------
|
||||||
|
Use https://git.janouch.name/p/uirc3 to report bugs, request features,
|
||||||
|
or submit pull requests.
|
||||||
@@ -1,7 +1,7 @@
|
|||||||
/*
|
/*
|
||||||
* zyklonb.c: the experimental IRC bot
|
* xB.c: a modular IRC bot
|
||||||
*
|
*
|
||||||
* Copyright (c) 2014 - 2016, Přemysl Janouch <p@janouch.name>
|
* Copyright (c) 2014 - 2020, Přemysl Eric Janouch <p@janouch.name>
|
||||||
*
|
*
|
||||||
* Permission to use, copy, modify, and/or distribute this software for any
|
* Permission to use, copy, modify, and/or distribute this software for any
|
||||||
* purpose with or without fee is hereby granted.
|
* purpose with or without fee is hereby granted.
|
||||||
@@ -17,8 +17,7 @@
|
|||||||
*/
|
*/
|
||||||
|
|
||||||
#include "config.h"
|
#include "config.h"
|
||||||
#define PROGRAM_NAME "ZyklonB"
|
#define PROGRAM_NAME "xB"
|
||||||
#define PLUGIN_DIR ZYKLONB_PLUGIN_DIR
|
|
||||||
|
|
||||||
#include "common.c"
|
#include "common.c"
|
||||||
|
|
||||||
@@ -26,9 +25,9 @@
|
|||||||
|
|
||||||
static struct simple_config_item g_config_table[] =
|
static struct simple_config_item g_config_table[] =
|
||||||
{
|
{
|
||||||
{ "nickname", "ZyklonB", "IRC nickname" },
|
{ "nickname", "xB", "IRC nickname" },
|
||||||
{ "username", "bot", "IRC user name" },
|
{ "username", "bot", "IRC user name" },
|
||||||
{ "realname", "ZyklonB IRC bot", "IRC real name/e-mail" },
|
{ "realname", "xB IRC bot", "IRC real name/e-mail" },
|
||||||
|
|
||||||
{ "irc_host", NULL, "Address of the IRC server" },
|
{ "irc_host", NULL, "Address of the IRC server" },
|
||||||
{ "irc_port", "6667", "Port of the IRC server" },
|
{ "irc_port", "6667", "Port of the IRC server" },
|
||||||
@@ -49,7 +48,7 @@ static struct simple_config_item g_config_table[] =
|
|||||||
{ "prefix", ":", "The prefix for bot commands" },
|
{ "prefix", ":", "The prefix for bot commands" },
|
||||||
{ "admin", NULL, "Host mask for administrators" },
|
{ "admin", NULL, "Host mask for administrators" },
|
||||||
{ "plugins", NULL, "The plugins to load on startup" },
|
{ "plugins", NULL, "The plugins to load on startup" },
|
||||||
{ "plugin_dir", PLUGIN_DIR, "Where to search for plugins" },
|
{ "plugin_dir", NULL, "Plugin search path override" },
|
||||||
{ "recover", "on", "Whether to re-launch on crash" },
|
{ "recover", "on", "Whether to re-launch on crash" },
|
||||||
|
|
||||||
{ NULL, NULL, NULL }
|
{ NULL, NULL, NULL }
|
||||||
@@ -280,7 +279,7 @@ irc_send (struct bot_context *ctx, const char *format, ...)
|
|||||||
if (SSL_write (ctx->ssl, str.str, str.len) != (int) str.len)
|
if (SSL_write (ctx->ssl, str.str, str.len) != (int) str.len)
|
||||||
{
|
{
|
||||||
print_debug ("%s: %s: %s", __func__, "SSL_write",
|
print_debug ("%s: %s: %s", __func__, "SSL_write",
|
||||||
ERR_error_string (ERR_get_error (), NULL));
|
xerr_describe_error ());
|
||||||
result = false;
|
result = false;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
@@ -320,13 +319,13 @@ irc_initialize_ca_set (SSL_CTX *ssl_ctx, const char *file, const char *path,
|
|||||||
|
|
||||||
return error_set (e, "%s: %s",
|
return error_set (e, "%s: %s",
|
||||||
"failed to set locations for the CA certificate bundle",
|
"failed to set locations for the CA certificate bundle",
|
||||||
ERR_reason_error_string (ERR_get_error ()));
|
xerr_describe_error ());
|
||||||
}
|
}
|
||||||
|
|
||||||
if (!SSL_CTX_set_default_verify_paths (ssl_ctx))
|
if (!SSL_CTX_set_default_verify_paths (ssl_ctx))
|
||||||
return error_set (e, "%s: %s",
|
return error_set (e, "%s: %s",
|
||||||
"couldn't load the default CA certificate bundle",
|
"couldn't load the default CA certificate bundle",
|
||||||
ERR_reason_error_string (ERR_get_error ()));
|
xerr_describe_error ());
|
||||||
return true;
|
return true;
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -407,7 +406,7 @@ irc_initialize_tls (struct bot_context *ctx, struct error **e)
|
|||||||
else if (!SSL_use_certificate_file (ctx->ssl, path, SSL_FILETYPE_PEM)
|
else if (!SSL_use_certificate_file (ctx->ssl, path, SSL_FILETYPE_PEM)
|
||||||
|| !SSL_use_PrivateKey_file (ctx->ssl, path, SSL_FILETYPE_PEM))
|
|| !SSL_use_PrivateKey_file (ctx->ssl, path, SSL_FILETYPE_PEM))
|
||||||
print_error ("%s: %s", "setting the TLS client certificate failed",
|
print_error ("%s: %s", "setting the TLS client certificate failed",
|
||||||
ERR_error_string (ERR_get_error (), NULL));
|
xerr_describe_error ());
|
||||||
free (path);
|
free (path);
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -434,10 +433,8 @@ error_ssl_2:
|
|||||||
SSL_CTX_free (ctx->ssl_ctx);
|
SSL_CTX_free (ctx->ssl_ctx);
|
||||||
ctx->ssl_ctx = NULL;
|
ctx->ssl_ctx = NULL;
|
||||||
error_ssl_1:
|
error_ssl_1:
|
||||||
// XXX: these error strings are really nasty; also there could be
|
|
||||||
// multiple errors on the OpenSSL stack.
|
|
||||||
if (!error_info)
|
if (!error_info)
|
||||||
error_info = ERR_error_string (ERR_get_error (), NULL);
|
error_info = xerr_describe_error ();
|
||||||
return error_set (e, "%s: %s", "could not initialize TLS", error_info);
|
return error_set (e, "%s: %s", "could not initialize TLS", error_info);
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -738,7 +735,7 @@ setup_recovery_handler (struct bot_context *ctx, struct error **e)
|
|||||||
// --- Plugins -----------------------------------------------------------------
|
// --- Plugins -----------------------------------------------------------------
|
||||||
|
|
||||||
/// The name of the special IRC command for interprocess communication
|
/// The name of the special IRC command for interprocess communication
|
||||||
static const char *plugin_ipc_command = "ZYKLONB";
|
static const char *plugin_ipc_command = "XB";
|
||||||
|
|
||||||
static struct plugin *
|
static struct plugin *
|
||||||
plugin_find_by_pid (struct bot_context *ctx, pid_t pid)
|
plugin_find_by_pid (struct bot_context *ctx, pid_t pid)
|
||||||
@@ -1017,21 +1014,40 @@ is_valid_plugin_name (const char *name)
|
|||||||
return true;
|
return true;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
static char *
|
||||||
|
plugin_resolve_relative_filename (const char *filename)
|
||||||
|
{
|
||||||
|
struct strv paths = strv_make ();
|
||||||
|
get_xdg_data_dirs (&paths);
|
||||||
|
char *result = resolve_relative_filename_generic
|
||||||
|
(&paths, PROGRAM_NAME "/plugins/", filename);
|
||||||
|
strv_free (&paths);
|
||||||
|
return result;
|
||||||
|
}
|
||||||
|
|
||||||
static struct plugin *
|
static struct plugin *
|
||||||
plugin_launch (struct bot_context *ctx, const char *name, struct error **e)
|
plugin_launch (struct bot_context *ctx, const char *name, struct error **e)
|
||||||
{
|
{
|
||||||
|
char *path = NULL;
|
||||||
const char *plugin_dir = str_map_find (&ctx->config, "plugin_dir");
|
const char *plugin_dir = str_map_find (&ctx->config, "plugin_dir");
|
||||||
if (!plugin_dir)
|
if (plugin_dir)
|
||||||
{
|
{
|
||||||
error_set (e, "plugin directory not set");
|
// resolve_relative_filename_generic() won't accept relative paths,
|
||||||
return NULL;
|
// so just keep the old behaviour and expect the file to exist.
|
||||||
|
// We could use resolve_filename() on "plugin_dir" with paths=getcwd().
|
||||||
|
path = xstrdup_printf ("%s/%s", plugin_dir, name);
|
||||||
|
}
|
||||||
|
else if (!(path = plugin_resolve_relative_filename (name)))
|
||||||
|
{
|
||||||
|
error_set (e, "plugin not found");
|
||||||
|
goto fail_0;
|
||||||
}
|
}
|
||||||
|
|
||||||
int stdin_pipe[2];
|
int stdin_pipe[2];
|
||||||
if (pipe (stdin_pipe) == -1)
|
if (pipe (stdin_pipe) == -1)
|
||||||
{
|
{
|
||||||
error_set (e, "%s: %s", "pipe", strerror (errno));
|
error_set (e, "%s: %s", "pipe", strerror (errno));
|
||||||
return NULL;
|
goto fail_0;
|
||||||
}
|
}
|
||||||
|
|
||||||
int stdout_pipe[2];
|
int stdout_pipe[2];
|
||||||
@@ -1081,7 +1097,7 @@ plugin_launch (struct bot_context *ctx, const char *name, struct error **e)
|
|||||||
// Restore some of the signal handling
|
// Restore some of the signal handling
|
||||||
signal (SIGPIPE, SIG_DFL);
|
signal (SIGPIPE, SIG_DFL);
|
||||||
|
|
||||||
char *argv[] = { xstrdup_printf ("%s/%s", plugin_dir, name), NULL };
|
char *argv[] = { path, NULL };
|
||||||
execve (argv[0], argv, environ);
|
execve (argv[0], argv, environ);
|
||||||
|
|
||||||
// We will collect the failure later via SIGCHLD
|
// We will collect the failure later via SIGCHLD
|
||||||
@@ -1091,6 +1107,7 @@ plugin_launch (struct bot_context *ctx, const char *name, struct error **e)
|
|||||||
}
|
}
|
||||||
|
|
||||||
str_free (&work_dir);
|
str_free (&work_dir);
|
||||||
|
free (path);
|
||||||
|
|
||||||
xclose (stdin_pipe[0]);
|
xclose (stdin_pipe[0]);
|
||||||
xclose (stdout_pipe[1]);
|
xclose (stdout_pipe[1]);
|
||||||
@@ -1110,6 +1127,8 @@ fail_2:
|
|||||||
fail_1:
|
fail_1:
|
||||||
xclose (stdin_pipe[0]);
|
xclose (stdin_pipe[0]);
|
||||||
xclose (stdin_pipe[1]);
|
xclose (stdin_pipe[1]);
|
||||||
|
fail_0:
|
||||||
|
free (path);
|
||||||
return NULL;
|
return NULL;
|
||||||
}
|
}
|
||||||
|
|
||||||
@@ -1841,7 +1860,7 @@ on_plugin_death (struct plugin *plugin, int status)
|
|||||||
struct bot_context *ctx = plugin->ctx;
|
struct bot_context *ctx = plugin->ctx;
|
||||||
|
|
||||||
// TODO: callbacks on children death, so that we may tell the user
|
// TODO: callbacks on children death, so that we may tell the user
|
||||||
// "plugin `name' died like a dirty jewish pig"; use `status'
|
// "plugin `name' died"; use `status'
|
||||||
if (!plugin->is_zombie && WIFSIGNALED (status))
|
if (!plugin->is_zombie && WIFSIGNALED (status))
|
||||||
{
|
{
|
||||||
const char *notes = "";
|
const char *notes = "";
|
||||||
@@ -1964,7 +1983,7 @@ main (int argc, char *argv[])
|
|||||||
};
|
};
|
||||||
|
|
||||||
struct opt_handler oh =
|
struct opt_handler oh =
|
||||||
opt_handler_make (argc, argv, opts, NULL, "Experimental IRC bot.");
|
opt_handler_make (argc, argv, opts, NULL, "Modular IRC bot.");
|
||||||
|
|
||||||
int c;
|
int c;
|
||||||
while ((c = opt_handler_get (&oh)) != -1)
|
while ((c = opt_handler_get (&oh)) != -1)
|
||||||
127
xC.adoc
Normal file
127
xC.adoc
Normal file
@@ -0,0 +1,127 @@
|
|||||||
|
xC(1)
|
||||||
|
=====
|
||||||
|
:doctype: manpage
|
||||||
|
:manmanual: uirc3 Manual
|
||||||
|
:mansource: uirc3 {release-version}
|
||||||
|
|
||||||
|
Name
|
||||||
|
----
|
||||||
|
xC - terminal-based IRC client
|
||||||
|
|
||||||
|
Synopsis
|
||||||
|
--------
|
||||||
|
*xC* [_OPTION_]...
|
||||||
|
|
||||||
|
Description
|
||||||
|
-----------
|
||||||
|
*xC* is a scriptable IRC client for the command line. On the first run it will
|
||||||
|
welcome you with an introductory message. Should you ever get lost, use the
|
||||||
|
*/help* command to obtain more information on commands or options.
|
||||||
|
|
||||||
|
Options
|
||||||
|
-------
|
||||||
|
*-f*, *--format*::
|
||||||
|
Format IRC text from the standard input, converting colour sequences and
|
||||||
|
other formatting marks to ANSI codes retrieved from the *terminfo*(5)
|
||||||
|
database:
|
||||||
|
+
|
||||||
|
```
|
||||||
|
printf '\x02bold\x02\n' | xC -f
|
||||||
|
```
|
||||||
|
+
|
||||||
|
This feature may be used to preview server MOTD files.
|
||||||
|
|
||||||
|
*-h*, *--help*::
|
||||||
|
Display a help message and exit.
|
||||||
|
|
||||||
|
*-V*, *--version*::
|
||||||
|
Output version information and exit.
|
||||||
|
|
||||||
|
Key bindings
|
||||||
|
------------
|
||||||
|
Most key bindings are inherited from the frontend in use, which is either GNU
|
||||||
|
Readline or BSD editline. A few of them, however, are special to the IRC client
|
||||||
|
or assume a different function. This is a list of all local overrides and
|
||||||
|
their respective function names:
|
||||||
|
|
||||||
|
*M-p*::
|
||||||
|
Go up in history for this buffer (normally mapped to *C-p*).
|
||||||
|
*M-n*::
|
||||||
|
Go down in history for this buffer (normally mapped to *C-n*).
|
||||||
|
*C-p*, *F5*: *previous-buffer*::
|
||||||
|
Switch to the previous buffer in order.
|
||||||
|
*C-n*, *F6*: *next-buffer*::
|
||||||
|
Switch to the next buffer in order.
|
||||||
|
*M-TAB*: *switch-buffer*::
|
||||||
|
Switch to the last buffer, i.e., the one you were in before.
|
||||||
|
*M-0*, *M-1*, ..., *M-9*: *goto-buffer*::
|
||||||
|
Go to the N-th buffer (normally sets a repeat counter).
|
||||||
|
Since there is no buffer number zero, *M-0* goes to the tenth one.
|
||||||
|
*M-!*: *goto-highlight*::
|
||||||
|
Go to the first following buffer with an unseen highlight.
|
||||||
|
*M-a*: *goto-activity*::
|
||||||
|
Go to the first following buffer with unseen activity.
|
||||||
|
*PageUp*: *display-backlog*::
|
||||||
|
Show the in-memory backlog for this buffer in the backlog helper,
|
||||||
|
which is almost certainly the *less*(1) program.
|
||||||
|
*M-h*: *display-full-log*::
|
||||||
|
Show the log file for this buffer in the backlog helper.
|
||||||
|
*M-H*: *toggle-unimportant*::
|
||||||
|
Hide all join, part and quit messages, as well as all channel mode changes
|
||||||
|
that only relate to user channel modes. Intended to reduce noise in
|
||||||
|
channels with lots of people.
|
||||||
|
*M-e*: *edit-input*::
|
||||||
|
Run an editor on the command line, making it easy to edit multiline
|
||||||
|
messages. Remember to save the file before exit.
|
||||||
|
*M-m*: *insert-attribute*::
|
||||||
|
The next key will be interpreted as a formatting mark to insert:
|
||||||
|
*c* for colours (optionally followed by numbers for the foreground
|
||||||
|
and background), *i* for italics, *b* for bold text, *u* for underlined,
|
||||||
|
*x* for struck-through, *v* for inverse text and *o* resets all formatting.
|
||||||
|
*C-l*: *redraw-screen*::
|
||||||
|
Should there be any issues with the display, this will clear the terminal
|
||||||
|
screen and redraw all information.
|
||||||
|
|
||||||
|
Additionally, *C-w* and *C-u* in editline behave the same as they would in
|
||||||
|
Readline or the "vi" command mode, even though the "emacs" mode is enabled
|
||||||
|
by default.
|
||||||
|
|
||||||
|
Bindings can be customized in your _.inputrc_ or _.editrc_ file. Both libraries
|
||||||
|
support conditional execution based on the program name. Beware that it is easy
|
||||||
|
to make breaking changes.
|
||||||
|
|
||||||
|
Environment
|
||||||
|
-----------
|
||||||
|
*VISUAL*, *EDITOR*::
|
||||||
|
The editor program to be launched by the *edit-input* function.
|
||||||
|
If neither variable is set, it defaults to *vi*(1).
|
||||||
|
|
||||||
|
Files
|
||||||
|
-----
|
||||||
|
*xC* follows the XDG Base Directory Specification.
|
||||||
|
|
||||||
|
_~/.config/xC/xC.conf_::
|
||||||
|
The program's configuration file. Preferrably use internal facilities, such
|
||||||
|
as the */set* command, to make changes in it.
|
||||||
|
|
||||||
|
_~/.local/share/xC/logs/_::
|
||||||
|
When enabled by *behaviour.logging*, log files are stored here.
|
||||||
|
|
||||||
|
_~/.local/share/xC/plugins/_::
|
||||||
|
_/usr/local/share/xC/plugins/_::
|
||||||
|
_/usr/share/xC/plugins/_::
|
||||||
|
Plugins are searched for in these directories, in order.
|
||||||
|
|
||||||
|
Bugs
|
||||||
|
----
|
||||||
|
The editline (libedit) frontend is more of a proof of concept that mostly seems
|
||||||
|
to work but exhibits bugs that are not our fault.
|
||||||
|
|
||||||
|
Reporting bugs
|
||||||
|
--------------
|
||||||
|
Use https://git.janouch.name/p/uirc3 to report bugs, request features,
|
||||||
|
or submit pull requests.
|
||||||
|
|
||||||
|
See also
|
||||||
|
--------
|
||||||
|
*less*(1), *readline*(3) or *editline*(7)
|
||||||
1849
degesch.c → xC.c
1849
degesch.c → xC.c
File diff suppressed because it is too large
Load Diff
|
Before Width: | Height: | Size: 8.9 KiB After Width: | Height: | Size: 8.9 KiB |
@@ -2,7 +2,7 @@
|
|||||||
LC_ALL=C exec awk '
|
LC_ALL=C exec awk '
|
||||||
BEGIN {
|
BEGIN {
|
||||||
# The message catalog is a by-product
|
# The message catalog is a by-product
|
||||||
msg = "kike.msg"
|
msg = "xD.msg"
|
||||||
print "$quote \"" > msg;
|
print "$quote \"" > msg;
|
||||||
print "$set 1" > msg;
|
print "$set 1" > msg;
|
||||||
}
|
}
|
||||||
@@ -85,3 +85,9 @@
|
|||||||
482 IRC_ERR_CHANOPRIVSNEEDED "%s :You're not channel operator"
|
482 IRC_ERR_CHANOPRIVSNEEDED "%s :You're not channel operator"
|
||||||
501 IRC_ERR_UMODEUNKNOWNFLAG ":Unknown MODE flag"
|
501 IRC_ERR_UMODEUNKNOWNFLAG ":Unknown MODE flag"
|
||||||
502 IRC_ERR_USERSDONTMATCH ":Cannot change mode for other users"
|
502 IRC_ERR_USERSDONTMATCH ":Cannot change mode for other users"
|
||||||
|
902 IRC_ERR_NICKLOCKED ":You must use a nick assigned to you"
|
||||||
|
903 IRC_RPL_SASLSUCCESS ":SASL authentication successful"
|
||||||
|
904 IRC_ERR_SASLFAIL ":SASL authentication failed"
|
||||||
|
905 IRC_ERR_SASLTOOLONG ":SASL message too long"
|
||||||
|
906 IRC_ERR_SASLABORTED ":SASL authentication aborted"
|
||||||
|
907 IRC_ERR_SASLALREADY ":You have already authenticated using SASL"
|
||||||
53
xD.adoc
Normal file
53
xD.adoc
Normal file
@@ -0,0 +1,53 @@
|
|||||||
|
xD(1)
|
||||||
|
=====
|
||||||
|
:doctype: manpage
|
||||||
|
:manmanual: uirc3 Manual
|
||||||
|
:mansource: uirc3 {release-version}
|
||||||
|
|
||||||
|
Name
|
||||||
|
----
|
||||||
|
xD - IRC daemon
|
||||||
|
|
||||||
|
Synopsis
|
||||||
|
--------
|
||||||
|
*xD* [_OPTION_]...
|
||||||
|
|
||||||
|
Description
|
||||||
|
-----------
|
||||||
|
*xD* is a basic IRC daemon for single-server networks, suitable for testing
|
||||||
|
and private use. When run without a configuration file, it will start listening
|
||||||
|
on the standard port 6667 and the "any" address.
|
||||||
|
|
||||||
|
Options
|
||||||
|
-------
|
||||||
|
*-d*, *--debug*::
|
||||||
|
Do not daemonize, print more information on the standard error stream
|
||||||
|
to help debug various issues.
|
||||||
|
|
||||||
|
*-h*, *--help*::
|
||||||
|
Display a help message and exit.
|
||||||
|
|
||||||
|
*-V*, *--version*::
|
||||||
|
Output version information and exit.
|
||||||
|
|
||||||
|
*--write-default-cfg*[**=**__PATH__]::
|
||||||
|
Write a configuration file with defaults, show its path and exit.
|
||||||
|
+
|
||||||
|
The file will be appropriately commented.
|
||||||
|
+
|
||||||
|
When no _PATH_ is specified, it will be created in the user's home directory,
|
||||||
|
contrary to what you might expect from a server.
|
||||||
|
|
||||||
|
Files
|
||||||
|
-----
|
||||||
|
*xD* follows the XDG Base Directory Specification.
|
||||||
|
|
||||||
|
_~/.config/xD/xD.conf_::
|
||||||
|
_/etc/xdg/xD/xD.conf_::
|
||||||
|
The daemon's configuration file. Use the *--write-default-cfg* option
|
||||||
|
to create a new one for editing.
|
||||||
|
|
||||||
|
Reporting bugs
|
||||||
|
--------------
|
||||||
|
Use https://git.janouch.name/p/uirc3 to report bugs, request features,
|
||||||
|
or submit pull requests.
|
||||||
166
kike.c → xD.c
166
kike.c → xD.c
@@ -1,7 +1,7 @@
|
|||||||
/*
|
/*
|
||||||
* kike.c: the experimental IRC daemon
|
* xD.c: an IRC daemon
|
||||||
*
|
*
|
||||||
* Copyright (c) 2014 - 2016, Přemysl Janouch <p@janouch.name>
|
* Copyright (c) 2014 - 2021, Přemysl Eric Janouch <p@janouch.name>
|
||||||
*
|
*
|
||||||
* Permission to use, copy, modify, and/or distribute this software for any
|
* Permission to use, copy, modify, and/or distribute this software for any
|
||||||
* purpose with or without fee is hereby granted.
|
* purpose with or without fee is hereby granted.
|
||||||
@@ -17,12 +17,14 @@
|
|||||||
*/
|
*/
|
||||||
|
|
||||||
#include "config.h"
|
#include "config.h"
|
||||||
#define PROGRAM_NAME "kike"
|
#define PROGRAM_NAME "xD"
|
||||||
|
|
||||||
#define WANT_SYSLOG_LOGGING
|
#define WANT_SYSLOG_LOGGING
|
||||||
#include "common.c"
|
#include "common.c"
|
||||||
#include "kike-replies.c"
|
#include "xD-replies.c"
|
||||||
|
|
||||||
#include <nl_types.h>
|
#include <nl_types.h>
|
||||||
|
#include <sys/resource.h>
|
||||||
|
|
||||||
enum { PIPE_READ, PIPE_WRITE };
|
enum { PIPE_READ, PIPE_WRITE };
|
||||||
|
|
||||||
@@ -47,10 +49,10 @@ static struct simple_config_item g_config_table[] =
|
|||||||
{ "tls_key", NULL, "Server TLS private key (PEM)" },
|
{ "tls_key", NULL, "Server TLS private key (PEM)" },
|
||||||
{ "tls_ciphers", DEFAULT_CIPHERS, "OpenSSL cipher list" },
|
{ "tls_ciphers", DEFAULT_CIPHERS, "OpenSSL cipher list" },
|
||||||
|
|
||||||
{ "operators", NULL, "IRCop TLS cert. fingerprints" },
|
{ "operators", NULL, "IRCop TLS client cert. SHA-1 fingerprints" },
|
||||||
|
|
||||||
{ "max_connections", "0", "Global connection limit" },
|
{ "max_connections", "0", "Global connection limit" },
|
||||||
{ "ping_interval", "180", "Interval between PING's (sec)" },
|
{ "ping_interval", "180", "Interval between PINGs (sec)" },
|
||||||
{ NULL, NULL, NULL }
|
{ NULL, NULL, NULL }
|
||||||
};
|
};
|
||||||
|
|
||||||
@@ -194,7 +196,8 @@ irc_validate_to_str (enum validation_result result)
|
|||||||
}
|
}
|
||||||
|
|
||||||
// Anything to keep it as short as possible
|
// Anything to keep it as short as possible
|
||||||
#define SN "[0-9A-Za-z][-0-9A-Za-z]*[0-9A-Za-z]*"
|
// "shortname" from RFC 2812 doesn't work how its author thought it would.
|
||||||
|
#define SN "[0-9A-Za-z](-*[0-9A-Za-z])*"
|
||||||
#define N4 "[0-9]{1,3}"
|
#define N4 "[0-9]{1,3}"
|
||||||
#define N6 "[0-9ABCDEFabcdef]{1,}"
|
#define N6 "[0-9ABCDEFabcdef]{1,}"
|
||||||
|
|
||||||
@@ -233,6 +236,13 @@ irc_is_valid_host (const char *host)
|
|||||||
|| irc_is_valid_hostaddr (host);
|
|| irc_is_valid_hostaddr (host);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
// TODO: currently, we are almost encoding-agnostic (strings just need to be
|
||||||
|
// ASCII-compatible). We should at least have an option to enforce a specific
|
||||||
|
// encoding, such as UTF-8. Note that with Unicode we should not allow all
|
||||||
|
// character clasess and exclude the likes of \pM with the goal of enforcing
|
||||||
|
// NFC-normalized identifiers--utf8proc is a good candidate library to handle
|
||||||
|
// the categorization and validation.
|
||||||
|
|
||||||
static bool
|
static bool
|
||||||
irc_is_valid_user (const char *user)
|
irc_is_valid_user (const char *user)
|
||||||
{
|
{
|
||||||
@@ -606,7 +616,8 @@ struct server_context
|
|||||||
{
|
{
|
||||||
int *listen_fds; ///< Listening socket FD's
|
int *listen_fds; ///< Listening socket FD's
|
||||||
struct poller_fd *listen_events; ///< New connections available
|
struct poller_fd *listen_events; ///< New connections available
|
||||||
size_t n_listen_fds; ///< Number of listening sockets
|
size_t listen_len; ///< Number of listening sockets
|
||||||
|
size_t listen_alloc; ///< How many we've allocated
|
||||||
|
|
||||||
time_t started; ///< When has the server been started
|
time_t started; ///< When has the server been started
|
||||||
|
|
||||||
@@ -687,7 +698,7 @@ server_context_free (struct server_context *self)
|
|||||||
{
|
{
|
||||||
str_map_free (&self->config);
|
str_map_free (&self->config);
|
||||||
|
|
||||||
for (size_t i = 0; i < self->n_listen_fds; i++)
|
for (size_t i = 0; i < self->listen_len; i++)
|
||||||
{
|
{
|
||||||
poller_fd_reset (&self->listen_events[i]);
|
poller_fd_reset (&self->listen_events[i]);
|
||||||
xclose (self->listen_fds[i]);
|
xclose (self->listen_fds[i]);
|
||||||
@@ -738,12 +749,12 @@ irc_initiate_quit (struct server_context *ctx)
|
|||||||
{
|
{
|
||||||
print_status ("shutting down");
|
print_status ("shutting down");
|
||||||
|
|
||||||
for (size_t i = 0; i < ctx->n_listen_fds; i++)
|
for (size_t i = 0; i < ctx->listen_len; i++)
|
||||||
{
|
{
|
||||||
poller_fd_reset (&ctx->listen_events[i]);
|
poller_fd_reset (&ctx->listen_events[i]);
|
||||||
xclose (ctx->listen_fds[i]);
|
xclose (ctx->listen_fds[i]);
|
||||||
}
|
}
|
||||||
ctx->n_listen_fds = 0;
|
ctx->listen_len = 0;
|
||||||
|
|
||||||
for (struct client *iter = ctx->clients; iter; iter = iter->next)
|
for (struct client *iter = ctx->clients; iter; iter = iter->next)
|
||||||
if (!iter->closing_link)
|
if (!iter->closing_link)
|
||||||
@@ -1428,6 +1439,10 @@ irc_handle_nick (const struct irc_message *msg, struct client *c)
|
|||||||
if (client && client != c)
|
if (client && client != c)
|
||||||
RETURN_WITH_REPLY (c, IRC_ERR_NICKNAMEINUSE, nickname);
|
RETURN_WITH_REPLY (c, IRC_ERR_NICKNAMEINUSE, nickname);
|
||||||
|
|
||||||
|
// Nothing to do here, let's not annoy roommates
|
||||||
|
if (c->nickname && !strcmp (c->nickname, nickname))
|
||||||
|
return;
|
||||||
|
|
||||||
if (c->registered)
|
if (c->registered)
|
||||||
{
|
{
|
||||||
client_add_to_whowas (c);
|
client_add_to_whowas (c);
|
||||||
@@ -1446,8 +1461,7 @@ irc_handle_nick (const struct irc_message *msg, struct client *c)
|
|||||||
cstr_set (&c->nickname, xstrdup (nickname));
|
cstr_set (&c->nickname, xstrdup (nickname));
|
||||||
str_map_set (&ctx->users, nickname, c);
|
str_map_set (&ctx->users, nickname, c);
|
||||||
|
|
||||||
if (!c->registered)
|
irc_try_finish_registration (c);
|
||||||
irc_try_finish_registration (c);
|
|
||||||
}
|
}
|
||||||
|
|
||||||
static void
|
static void
|
||||||
@@ -1468,6 +1482,7 @@ irc_handle_user (const struct irc_message *msg, struct client *c)
|
|||||||
|
|
||||||
cstr_set (&c->username, xstrdup (username));
|
cstr_set (&c->username, xstrdup (username));
|
||||||
cstr_set (&c->realname, xstrdup (realname));
|
cstr_set (&c->realname, xstrdup (realname));
|
||||||
|
c->mode = 0;
|
||||||
|
|
||||||
unsigned long m;
|
unsigned long m;
|
||||||
if (xstrtoul (&m, mode, 10))
|
if (xstrtoul (&m, mode, 10))
|
||||||
@@ -1994,10 +2009,11 @@ irc_handle_chan_mode_change
|
|||||||
mode_processor_step (&p, '+');
|
mode_processor_step (&p, '+');
|
||||||
while (*mode_string)
|
while (*mode_string)
|
||||||
if (!mode_processor_step (&p, *mode_string++))
|
if (!mode_processor_step (&p, *mode_string++))
|
||||||
break;
|
goto done_processing;
|
||||||
}
|
}
|
||||||
|
|
||||||
// TODO: limit to three changes with parameter per command
|
// TODO: limit to three changes with parameter per command
|
||||||
|
done_processing:
|
||||||
if (p.added.len || p.removed.len)
|
if (p.added.len || p.removed.len)
|
||||||
{
|
{
|
||||||
struct str message = str_make ();
|
struct str message = str_make ();
|
||||||
@@ -2446,12 +2462,12 @@ irc_handle_whois (const struct irc_message *msg, struct client *c)
|
|||||||
{
|
{
|
||||||
struct str_map_iter iter = str_map_iter_make (&c->ctx->users);
|
struct str_map_iter iter = str_map_iter_make (&c->ctx->users);
|
||||||
bool found = false;
|
bool found = false;
|
||||||
while ((target = str_map_iter_next (&iter))
|
while ((target = str_map_iter_next (&iter)))
|
||||||
&& !irc_fnmatch (mask, target->nickname))
|
if (!irc_fnmatch (mask, target->nickname))
|
||||||
{
|
{
|
||||||
irc_send_whois_reply (c, target);
|
irc_send_whois_reply (c, target);
|
||||||
found = true;
|
found = true;
|
||||||
}
|
}
|
||||||
if (!found)
|
if (!found)
|
||||||
irc_send_reply (c, IRC_ERR_NOSUCHNICK, mask);
|
irc_send_reply (c, IRC_ERR_NOSUCHNICK, mask);
|
||||||
}
|
}
|
||||||
@@ -2715,7 +2731,7 @@ irc_try_join (struct client *c, const char *channel_name, const char *key)
|
|||||||
else if (channel_get_user (chan, c))
|
else if (channel_get_user (chan, c))
|
||||||
return;
|
return;
|
||||||
|
|
||||||
bool invited_by_chanop = str_map_find (&c->invites, channel_name);
|
bool invited_by_chanop = !!str_map_find (&c->invites, channel_name);
|
||||||
if ((chan->modes & IRC_CHAN_MODE_INVITE_ONLY)
|
if ((chan->modes & IRC_CHAN_MODE_INVITE_ONLY)
|
||||||
&& !client_in_mask_list (c, &chan->invite_list)
|
&& !client_in_mask_list (c, &chan->invite_list)
|
||||||
&& !invited_by_chanop)
|
&& !invited_by_chanop)
|
||||||
@@ -2881,9 +2897,9 @@ irc_handle_stats_uptime (struct client *c)
|
|||||||
static void
|
static void
|
||||||
irc_handle_stats (const struct irc_message *msg, struct client *c)
|
irc_handle_stats (const struct irc_message *msg, struct client *c)
|
||||||
{
|
{
|
||||||
char query;
|
char query = 0;
|
||||||
if (msg->params.len < 1 || !(query = *msg->params.vector[0]))
|
if (msg->params.len > 0)
|
||||||
RETURN_WITH_REPLY (c, IRC_ERR_NEEDMOREPARAMS, msg->command);
|
query = *msg->params.vector[0];
|
||||||
if (msg->params.len > 1 && !irc_is_this_me (c->ctx, msg->params.vector[1]))
|
if (msg->params.len > 1 && !irc_is_this_me (c->ctx, msg->params.vector[1]))
|
||||||
RETURN_WITH_REPLY (c, IRC_ERR_NOSUCHSERVER, msg->params.vector[1]);
|
RETURN_WITH_REPLY (c, IRC_ERR_NOSUCHSERVER, msg->params.vector[1]);
|
||||||
if (!(c->mode & IRC_USER_MODE_OPERATOR))
|
if (!(c->mode & IRC_USER_MODE_OPERATOR))
|
||||||
@@ -2896,7 +2912,7 @@ irc_handle_stats (const struct irc_message *msg, struct client *c)
|
|||||||
case 'u': irc_handle_stats_uptime (c); break;
|
case 'u': irc_handle_stats_uptime (c); break;
|
||||||
}
|
}
|
||||||
|
|
||||||
irc_send_reply (c, IRC_RPL_ENDOFSTATS, query);
|
irc_send_reply (c, IRC_RPL_ENDOFSTATS, query ? query : '*');
|
||||||
}
|
}
|
||||||
|
|
||||||
static void
|
static void
|
||||||
@@ -3009,8 +3025,6 @@ static void
|
|||||||
irc_process_message (const struct irc_message *msg,
|
irc_process_message (const struct irc_message *msg,
|
||||||
const char *raw, void *user_data)
|
const char *raw, void *user_data)
|
||||||
{
|
{
|
||||||
(void) raw;
|
|
||||||
|
|
||||||
struct client *c = user_data;
|
struct client *c = user_data;
|
||||||
if (c->closing_link)
|
if (c->closing_link)
|
||||||
return;
|
return;
|
||||||
@@ -3050,8 +3064,8 @@ irc_try_read (struct client *c)
|
|||||||
while (true)
|
while (true)
|
||||||
{
|
{
|
||||||
str_reserve (buf, 512);
|
str_reserve (buf, 512);
|
||||||
n_read = recv (c->socket_fd, buf->str + buf->len,
|
n_read = read (c->socket_fd, buf->str + buf->len,
|
||||||
buf->alloc - buf->len - 1 /* null byte */, 0);
|
buf->alloc - buf->len - 1 /* null byte */);
|
||||||
|
|
||||||
if (n_read > 0)
|
if (n_read > 0)
|
||||||
{
|
{
|
||||||
@@ -3071,7 +3085,7 @@ irc_try_read (struct client *c)
|
|||||||
if (errno == EINTR)
|
if (errno == EINTR)
|
||||||
continue;
|
continue;
|
||||||
|
|
||||||
print_debug ("%s: %s: %s", __func__, "recv", strerror (errno));
|
print_debug ("%s: %s: %s", __func__, "read", strerror (errno));
|
||||||
client_kill (c, strerror (errno));
|
client_kill (c, strerror (errno));
|
||||||
return false;
|
return false;
|
||||||
}
|
}
|
||||||
@@ -3126,7 +3140,7 @@ irc_try_write (struct client *c)
|
|||||||
|
|
||||||
while (buf->len)
|
while (buf->len)
|
||||||
{
|
{
|
||||||
n_written = send (c->socket_fd, buf->str, buf->len, 0);
|
n_written = write (c->socket_fd, buf->str, buf->len);
|
||||||
if (n_written >= 0)
|
if (n_written >= 0)
|
||||||
{
|
{
|
||||||
str_remove_slice (buf, 0, n_written);
|
str_remove_slice (buf, 0, n_written);
|
||||||
@@ -3138,7 +3152,7 @@ irc_try_write (struct client *c)
|
|||||||
if (errno == EINTR)
|
if (errno == EINTR)
|
||||||
continue;
|
continue;
|
||||||
|
|
||||||
print_debug ("%s: %s: %s", __func__, "send", strerror (errno));
|
print_debug ("%s: %s: %s", __func__, "write", strerror (errno));
|
||||||
client_kill (c, strerror (errno));
|
client_kill (c, strerror (errno));
|
||||||
return false;
|
return false;
|
||||||
}
|
}
|
||||||
@@ -3250,7 +3264,7 @@ error_ssl_3:
|
|||||||
SSL_free (c->ssl);
|
SSL_free (c->ssl);
|
||||||
c->ssl = NULL;
|
c->ssl = NULL;
|
||||||
error_ssl_2:
|
error_ssl_2:
|
||||||
error_info = ERR_reason_error_string (ERR_get_error ());
|
error_info = xerr_describe_error ();
|
||||||
error_ssl_1:
|
error_ssl_1:
|
||||||
print_debug ("could not initialize TLS for %s: %s", c->address, error_info);
|
print_debug ("could not initialize TLS for %s: %s", c->address, error_info);
|
||||||
return false;
|
return false;
|
||||||
@@ -3529,7 +3543,7 @@ irc_initialize_ssl_ctx (struct server_context *ctx,
|
|||||||
if (!ctx->ssl_ctx)
|
if (!ctx->ssl_ctx)
|
||||||
{
|
{
|
||||||
error_set (e, "%s: %s", "could not initialize TLS",
|
error_set (e, "%s: %s", "could not initialize TLS",
|
||||||
ERR_reason_error_string (ERR_get_error ()));
|
xerr_describe_error ());
|
||||||
return false;
|
return false;
|
||||||
}
|
}
|
||||||
SSL_CTX_set_verify (ctx->ssl_ctx,
|
SSL_CTX_set_verify (ctx->ssl_ctx,
|
||||||
@@ -3559,11 +3573,11 @@ irc_initialize_ssl_ctx (struct server_context *ctx,
|
|||||||
error_set (e, "failed to select any cipher from the cipher list");
|
error_set (e, "failed to select any cipher from the cipher list");
|
||||||
else if (!SSL_CTX_use_certificate_chain_file (ctx->ssl_ctx, cert_path))
|
else if (!SSL_CTX_use_certificate_chain_file (ctx->ssl_ctx, cert_path))
|
||||||
error_set (e, "%s: %s", "setting the TLS certificate failed",
|
error_set (e, "%s: %s", "setting the TLS certificate failed",
|
||||||
ERR_reason_error_string (ERR_get_error ()));
|
xerr_describe_error ());
|
||||||
else if (!SSL_CTX_use_PrivateKey_file
|
else if (!SSL_CTX_use_PrivateKey_file
|
||||||
(ctx->ssl_ctx, key_path, SSL_FILETYPE_PEM))
|
(ctx->ssl_ctx, key_path, SSL_FILETYPE_PEM))
|
||||||
error_set (e, "%s: %s", "setting the TLS private key failed",
|
error_set (e, "%s: %s", "setting the TLS private key failed",
|
||||||
ERR_reason_error_string (ERR_get_error ()));
|
xerr_describe_error ());
|
||||||
else
|
else
|
||||||
// TODO: SSL_CTX_check_private_key()? It has probably already been
|
// TODO: SSL_CTX_check_private_key()? It has probably already been
|
||||||
// checked by SSL_CTX_use_PrivateKey_file() above.
|
// checked by SSL_CTX_use_PrivateKey_file() above.
|
||||||
@@ -3669,26 +3683,35 @@ irc_initialize_motd (struct server_context *ctx, struct error **e)
|
|||||||
return true;
|
return true;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
static bool
|
||||||
|
irc_parse_config_unsigned (const char *name, const char *value, unsigned *out,
|
||||||
|
unsigned long min, unsigned long max, struct error **e)
|
||||||
|
{
|
||||||
|
unsigned long ul;
|
||||||
|
hard_assert (value != NULL);
|
||||||
|
if (!xstrtoul (&ul, value, 10) || ul > max || ul < min)
|
||||||
|
{
|
||||||
|
error_set (e, "invalid configuration value for `%s': %s",
|
||||||
|
name, "the number is invalid or out of range");
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
*out = ul;
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
/// This function handles values that require validation before their first use,
|
/// This function handles values that require validation before their first use,
|
||||||
/// or some kind of a transformation (such as conversion to an integer) needs
|
/// or some kind of a transformation (such as conversion to an integer) needs
|
||||||
/// to be done before they can be used directly.
|
/// to be done before they can be used directly.
|
||||||
static bool
|
static bool
|
||||||
irc_parse_config (struct server_context *ctx, struct error **e)
|
irc_parse_config (struct server_context *ctx, struct error **e)
|
||||||
{
|
{
|
||||||
unsigned long ul;
|
|
||||||
#define PARSE_UNSIGNED(name, min, max) \
|
#define PARSE_UNSIGNED(name, min, max) \
|
||||||
const char *name = str_map_find (&ctx->config, #name); \
|
irc_parse_config_unsigned (#name, str_map_find (&ctx->config, #name), \
|
||||||
hard_assert (name != NULL); \
|
&ctx->name, min, max, e)
|
||||||
if (!xstrtoul (&ul, name, 10) || ul > max || ul < min) \
|
|
||||||
{ \
|
|
||||||
error_set (e, "invalid configuration value for `%s': %s", \
|
|
||||||
#name, "the number is invalid or out of range"); \
|
|
||||||
return false; \
|
|
||||||
} \
|
|
||||||
ctx->name = ul
|
|
||||||
|
|
||||||
PARSE_UNSIGNED (ping_interval, 1, UINT_MAX);
|
if (!PARSE_UNSIGNED (ping_interval, 1, UINT_MAX)
|
||||||
PARSE_UNSIGNED (max_connections, 0, UINT_MAX);
|
|| !PARSE_UNSIGNED (max_connections, 0, UINT_MAX))
|
||||||
|
return false;
|
||||||
|
|
||||||
bool result = true;
|
bool result = true;
|
||||||
struct strv fingerprints = strv_make ();
|
struct strv fingerprints = strv_make ();
|
||||||
@@ -3781,6 +3804,14 @@ irc_listen (struct addrinfo *gai_iter)
|
|||||||
soft_assert (setsockopt (fd, SOL_SOCKET, SO_REUSEADDR,
|
soft_assert (setsockopt (fd, SOL_SOCKET, SO_REUSEADDR,
|
||||||
&yes, sizeof yes) != -1);
|
&yes, sizeof yes) != -1);
|
||||||
|
|
||||||
|
#if defined SOL_IPV6 && defined IPV6_V6ONLY
|
||||||
|
// Make NULL always bind to both IPv4 and IPv6, irrespectively of the order
|
||||||
|
// of results; only INADDR6_ANY seems to be affected by this
|
||||||
|
if (gai_iter->ai_family == AF_INET6)
|
||||||
|
soft_assert (setsockopt (fd, SOL_IPV6, IPV6_V6ONLY,
|
||||||
|
&yes, sizeof yes) != -1);
|
||||||
|
#endif
|
||||||
|
|
||||||
char host[NI_MAXHOST], port[NI_MAXSERV];
|
char host[NI_MAXHOST], port[NI_MAXSERV];
|
||||||
host[0] = port[0] = '\0';
|
host[0] = port[0] = '\0';
|
||||||
int err = getnameinfo (gai_iter->ai_addr, gai_iter->ai_addrlen,
|
int err = getnameinfo (gai_iter->ai_addr, gai_iter->ai_addrlen,
|
||||||
@@ -3824,18 +3855,20 @@ irc_listen_resolve (struct server_context *ctx,
|
|||||||
int fd;
|
int fd;
|
||||||
for (gai_iter = gai_result; gai_iter; gai_iter = gai_iter->ai_next)
|
for (gai_iter = gai_result; gai_iter; gai_iter = gai_iter->ai_next)
|
||||||
{
|
{
|
||||||
|
if (ctx->listen_len == ctx->listen_alloc)
|
||||||
|
break;
|
||||||
|
|
||||||
if ((fd = irc_listen (gai_iter)) == -1)
|
if ((fd = irc_listen (gai_iter)) == -1)
|
||||||
continue;
|
continue;
|
||||||
set_blocking (fd, false);
|
set_blocking (fd, false);
|
||||||
|
|
||||||
struct poller_fd *event = &ctx->listen_events[ctx->n_listen_fds];
|
struct poller_fd *event = &ctx->listen_events[ctx->listen_len];
|
||||||
*event = poller_fd_make (&ctx->poller, fd);
|
*event = poller_fd_make (&ctx->poller, fd);
|
||||||
event->dispatcher = (poller_fd_fn) on_irc_client_available;
|
event->dispatcher = (poller_fd_fn) on_irc_client_available;
|
||||||
event->user_data = ctx;
|
event->user_data = ctx;
|
||||||
|
|
||||||
ctx->listen_fds[ctx->n_listen_fds++] = fd;
|
ctx->listen_fds[ctx->listen_len++] = fd;
|
||||||
poller_fd_set (event, POLLIN);
|
poller_fd_set (event, POLLIN);
|
||||||
break;
|
|
||||||
}
|
}
|
||||||
freeaddrinfo (gai_result);
|
freeaddrinfo (gai_result);
|
||||||
}
|
}
|
||||||
@@ -3855,13 +3888,20 @@ irc_setup_listen_fds (struct server_context *ctx, struct error **e)
|
|||||||
|
|
||||||
struct strv ports = strv_make ();
|
struct strv ports = strv_make ();
|
||||||
cstr_split (bind_port, ",", true, &ports);
|
cstr_split (bind_port, ",", true, &ports);
|
||||||
ctx->listen_fds = xcalloc (ports.len, sizeof *ctx->listen_fds);
|
|
||||||
ctx->listen_events = xcalloc (ports.len, sizeof *ctx->listen_events);
|
// For C and simplicity's sake let's assume that the host will resolve
|
||||||
|
// to at most two different addresses: IPv4 and IPv6 in case it is NULL
|
||||||
|
ctx->listen_alloc = ports.len * 2;
|
||||||
|
|
||||||
|
ctx->listen_fds =
|
||||||
|
xcalloc (ctx->listen_alloc, sizeof *ctx->listen_fds);
|
||||||
|
ctx->listen_events =
|
||||||
|
xcalloc (ctx->listen_alloc, sizeof *ctx->listen_events);
|
||||||
for (size_t i = 0; i < ports.len; i++)
|
for (size_t i = 0; i < ports.len; i++)
|
||||||
irc_listen_resolve (ctx, bind_host, ports.vector[i], &gai_hints);
|
irc_listen_resolve (ctx, bind_host, ports.vector[i], &gai_hints);
|
||||||
strv_free (&ports);
|
strv_free (&ports);
|
||||||
|
|
||||||
if (!ctx->n_listen_fds)
|
if (!ctx->listen_len)
|
||||||
{
|
{
|
||||||
error_set (e, "%s: %s",
|
error_set (e, "%s: %s",
|
||||||
"network setup failed", "no ports to listen on");
|
"network setup failed", "no ports to listen on");
|
||||||
@@ -3946,6 +3986,21 @@ daemonize (struct server_context *ctx)
|
|||||||
poller_post_fork (&ctx->poller);
|
poller_post_fork (&ctx->poller);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
static void
|
||||||
|
setup_limits (void)
|
||||||
|
{
|
||||||
|
struct rlimit limit;
|
||||||
|
if (getrlimit (RLIMIT_NOFILE, &limit))
|
||||||
|
{
|
||||||
|
print_warning ("%s: %s", "getrlimit", strerror (errno));
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
limit.rlim_cur = limit.rlim_max;
|
||||||
|
if (setrlimit (RLIMIT_NOFILE, &limit))
|
||||||
|
print_warning ("%s: %s", "setrlimit", strerror (errno));
|
||||||
|
}
|
||||||
|
|
||||||
int
|
int
|
||||||
main (int argc, char *argv[])
|
main (int argc, char *argv[])
|
||||||
{
|
{
|
||||||
@@ -3964,7 +4019,7 @@ main (int argc, char *argv[])
|
|||||||
};
|
};
|
||||||
|
|
||||||
struct opt_handler oh =
|
struct opt_handler oh =
|
||||||
opt_handler_make (argc, argv, opts, NULL, "Experimental IRC daemon.");
|
opt_handler_make (argc, argv, opts, NULL, "IRC daemon.");
|
||||||
|
|
||||||
int c;
|
int c;
|
||||||
while ((c = opt_handler_get (&oh)) != -1)
|
while ((c = opt_handler_get (&oh)) != -1)
|
||||||
@@ -3992,6 +4047,7 @@ main (int argc, char *argv[])
|
|||||||
|
|
||||||
print_status (PROGRAM_NAME " " PROGRAM_VERSION " starting");
|
print_status (PROGRAM_NAME " " PROGRAM_VERSION " starting");
|
||||||
setup_signal_handlers ();
|
setup_signal_handlers ();
|
||||||
|
setup_limits ();
|
||||||
init_openssl ();
|
init_openssl ();
|
||||||
|
|
||||||
struct server_context ctx;
|
struct server_context ctx;
|
||||||
Reference in New Issue
Block a user