Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
slrn /
slang /
[ HOME SHELL ]
Name
Size
Permission
Action
color.sl
3.41
KB
-rw-r--r--
gsort.sl
532
B
-rw-r--r--
ispell.sl
477
B
-rw-r--r--
latin2.sl
3.61
KB
-rw-r--r--
mailcap.sl
8.41
KB
-rw-r--r--
mime.sl
14.1
KB
-rw-r--r--
multipart.sl
2.19
KB
-rw-r--r--
nn.sl
2.29
KB
-rw-r--r--
posthook.sl
1.73
KB
-rw-r--r--
search.sl
1021
B
-rw-r--r--
slrn.sl
2.65
KB
-rw-r--r--
tin-art.sl
6.81
KB
-rw-r--r--
tin-group.sl
2.6
KB
-rw-r--r--
ttyprint.sl
510
B
-rw-r--r--
util.sl
936
B
-rw-r--r--
varset.sl
545
B
-rw-r--r--
xcomment.sl
781
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : slrn.sl
% This is the main slrn initialization file called from interp.c. % It is not meant for end user configuration; edit slrn.rc instead. define prepend_to_slang_load_path (dir) { if (dir == NULL) return; variable path = get_slang_load_path (); variable delim = char (path_get_delimiter ()); set_slang_load_path (strcat (dir, delim, path)); } define append_to_slang_load_path (dir) { if (dir == NULL) return; variable path = get_slang_load_path (); variable delim = char (path_get_delimiter ()); set_slang_load_path (strcat (path, delim, dir)); } % This function gets called from the "set macro_directory" line in the % slrn.rc file. The paths are either relative to the home directory, or % are absolute define slrn_set_macro_dir_hook (dirs) { foreach (strchopr (dirs, ',', 0)) { variable dir = (); if (0 == path_is_absolute (dir)) dir = make_home_filename (dir); prepend_to_slang_load_path (dir); } } define slrn_get_macro_dir_hook () { variable path = get_slang_load_path (); variable delim = char (path_get_delimiter ()); return strtrans (path, delim, ","); } define search_path_for_file (path, file, delim) { if (path_is_absolute (file) and (stat_file (file) != NULL)) return file; if (path == NULL) return NULL; foreach (strtok (path, char(delim))) { variable dir = (); variable dirfile = path_concat (dir, file); if (stat_file (dirfile) != NULL) return dirfile; } return NULL; } define find_executable (exe) { return search_path_for_file (getenv ("PATH"), exe, path_get_delimiter ()); } % A conforming slang application is one that has access to slsh's files private define add_slsh_paths () { % Assume a standard install with: % /prefix/bin/slsh % /prefix/share/slsh/local-packages/ variable prefixes = {}; variable exe = find_executable ("slsh"); if (exe != NULL) list_append (prefixes, path_dirname (path_dirname (exe))); list_append (prefixes, _slang_install_prefix); foreach (prefixes) { variable prefix = (); if (prefix == NULL) continue; variable dir = path_concat (prefix, "share/slsh/local-packages"); if (stat_file (dir) == NULL) continue; append_to_slang_load_path (dir); append_to_slang_load_path (path_dirname (dir)); return; } } add_slsh_paths (); private define add_slsh_paths (); % delete it -- no longer needed autoload ("require", "require"); autoload ("provide", "require"); autoload ("reverse", "arrayfuns"); autoload ("shift", "arrayfuns"); % Prepend the $HOME directory as a path for backward-compatibility prepend_to_slang_load_path (path_dirname (make_home_filename (".")));
Close