#3911From:Eugene Grosbein
To:Michael Dukelsky
Date:21-06-2020 14:23:01
Subj:Re: unlink
20 июня 2020, суббота, в 19:11 NOVT, Michael Dukelsky написал(а):

MD> Почему-то у меня unlink удаляет всё, даже файл, принадлежащий руту.
MD> Что я делаю не так?

Право на удаление файла по умолчанию это право записи в каталог.
Если ты имеешь право на запись в каталог - ты имеешь право
удалять в нём любые файлы независимо от их прав доступа и от
их владельцев.

Если ты хочешь, чтобы из каталога пользователь мог удалять
только собственные файлы, поставь на каталог sticky bit:
chmod +t dirname

И это не имеет отношения к Perl, это основы юникса.

Eugene
--- slrn/1.0.3 (FreeBSD)
* Origin: RDTC JSC (2:5006/1@fidonet)
SEEN-BY: 5006/1 5020/1042 5080/102 6090/1
PATH: 5006/1 5080/102 5020/1042 6090/1
#3912From:Michael Dukelsky
To:Eugene Grosbein
Date:27-06-2020 21:37:15
Subj:unlink
Привет, Eugene!

21 June 2020 14:23, Eugene Grosbein послал(а) письмо к Michael Dukelsky:

MD>> Почему-то у меня unlink удаляет всё, даже файл, принадлежащий
MD>> руту. Что я делаю не так?

EG> Право на удаление файла по умолчанию это право записи в каталог.
EG> Если ты имеешь право на запись в каталог - ты имеешь право
EG> удалять в нём любые файлы независимо от их прав доступа и от
EG> их владельцев.

EG> Если ты хочешь, чтобы из каталога пользователь мог удалять
EG> только собственные файлы, поставь на каталог sticky bit:
EG> chmod +t dirname

EG> И это не имеет отношения к Perl, это основы юникса.

Спасибо за ответ, но почему-то он приехал только сейчас, через 6 дней.

@PATH: 5006/1 5080/102 5020/1042

Судя по всему, 5080/102 проснулся.

Желаю успехов, Eugene!
За сим откланиваюсь, Michael.

... node (at) f1042 (dot) ru
--- GoldED+/LNX 1.1.5-b20170303
* Origin: ==<<.f1042.ru.>>== (2:5020/1042)
SEEN-BY: 5020/1042 6090/1
PATH: 5020/1042 6090/1
#3913From:Eugene Grosbein
To:Michael Dukelsky
Date:28-06-2020 03:46:05
Subj:Re: unlink
27 июня 2020, суббота, в 21:37 NOVT, Michael Dukelsky написал(а):

MD>>> Почему-то у меня unlink удаляет всё, даже файл, принадлежащий
MD>>> руту. Что я делаю не так?
EG>> Право на удаление файла по умолчанию это право записи в каталог.
EG>> Если ты имеешь право на запись в каталог - ты имеешь право
EG>> удалять в нём любые файлы независимо от их прав доступа и от
EG>> их владельцев.
EG>> Если ты хочешь, чтобы из каталога пользователь мог удалять
EG>> только собственные файлы, поставь на каталог sticky bit:
EG>> chmod +t dirname
EG>> И это не имеет отношения к Perl, это основы юникса.
MD> Спасибо за ответ, но почему-то он приехал только сейчас, через 6 дней.
MD> @PATH: 5006/1 5080/102 5020/1042
MD> Судя по всему, 5080/102 проснулся.

У меня тоже считай неделю не было эхомейла никакого,
а сегодня вдруг навалило недельной давности.

Eugene
--- slrn/1.0.3 (FreeBSD)
* Origin: RDTC JSC (2:5006/1@fidonet)
SEEN-BY: 5006/1 5020/1042 5080/102 6090/1
PATH: 5006/1 5080/102 5020/1042 6090/1
#3914From:Ruslan Suleimanov
To:All
Date:26-08-2020 23:36:00
Subj:парсер эхотага

Привет, All!



Интересует есть ли какие-либо готовые решения на Perl, для открытия squid, jam файла и чтения ?







WBR, Ruslan Suleimanov.
Telegram: @rsuleimanov
ARCHIVE: *****://******.*****.odessa.ua/
--- GoldED+/FreeBSD/..I LIKE UNIX EVERYDAY..
* Origin: ---/RS/FIDO Druzi 199x fido.odessa.ua/ (2:467/888)
SEEN-BY: 467/888 5020/1042 6090/1
PATH: 467/888 5020/1042 6090/1
#3915From:Eugene Grosbein
To:Ruslan Suleimanov
Date:27-08-2020 04:26:29
Subj:Re: парсер эхотага
26 авг. 2020, среда, в 23:36 NOVT, Ruslan Suleimanov написал(а):

RS> Интересует есть ли какие-либо готовые решения на Perl, для открытия squid, jam
RS> файла и чтения ?

Как обычно, ищи на CPAN. Hапример, *****://******.*****/release/FTN-JAM

Eugene
--- slrn/1.0.3 (FreeBSD)
* Origin: RDTC JSC (2:5006/1@fidonet)
SEEN-BY: 5006/1 5020/1042 5080/102 6090/1
PATH: 5006/1 5080/102 5020/1042 6090/1
#3916From:Ruslan Suleimanov
To:Eugene Grosbein
Date:31-08-2020 11:28:15
Subj:парсер эхотага


Привет, Eugene!

Ответ на сообщение Eugene Grosbein (2:5006/1) к Ruslan Suleimanov, написанное 27 авг 20 в 04:26:


EG> 26 авг. 2020, среда, в 23:36 NOVT, Ruslan Suleimanov написал(а):

RS>> Интересует есть ли какие-либо готовые решения на Perl, для
RS>> открытия squid, jam файла и чтения ?

EG> Как обычно, ищи на CPAN. Hапример,
EG> *****://******.*****/release/FTN-JAM

Спасибо, отличнейший модуль ! :)




WBR, Ruslan Suleimanov.
Telegram: @rsuleimanov
ARCHIVE: *****://******.*****.odessa.ua/
--- GoldED+/FreeBSD/..I LIKE UNIX EVERYDAY..
* Origin: ---/RS/FIDO Druzi 199x fido.odessa.ua/ (2:467/888)
SEEN-BY: 463/68 467/888 5020/1042 6090/1
PATH: 467/888 463/68 5020/1042 6090/1
#3917From:Stas Mishchenkov
To:Ruslan Suleimanov
Date:01-09-2020 23:19:09
Subj:парсер эхотага
Hi, Ruslan!

31 авг 20 11:28, Ruslan Suleimanov -> Eugene Grosbein:

RS>>> Интересует есть ли какие-либо готовые решения на Perl, для
RS>>> открытия squid, jam файла и чтения ?

EG>> Как обычно, ищи на CPAN. Hапример,
EG>> *****://******.*****/release/FTN-JAM

RS> Спасибо, отличнейший модуль ! :)

Есть свежее версия и менее глючная.

Have nice nights.
Stas Mishchenkov.

--- Людeй, пeрeживших лeто в Симферополе, будут выгoнять из ада за смeх в кoтле
* Origin: Lame Users Breeding. Simferopol, Crimea. (2:460/5858)
SEEN-BY: 460/58 5858 5020/545 1042 4441 6090/1
PATH: 460/5858 58 5020/545 4441 1042 6090/1
#3918From:Stas Mishchenkov
To:All
Date:17-10-2020 11:15:04
Subj:мозги сломал
Hi, All!

use locale;
# [...]
undef $fromchrs;
if ( $Text =~ /\001CHRS\:[ ]*([^ ]+)[ ]+\d+/ ) {
$fromchrs = lc($1);
writelog("Charset found: \'$fromchrs\'.");
} else {
$fromchrs = 'cp866';
writelog('Warning: No @CHRS kludge. Using default
}

Текст письма содержит кладж "@CHRS: UTF-8 4", но $1 и $fromchrs устанавливается CP866. Другие кладжи рспознает, правда, я не проверял, все ли. При чем, в данном конкретном случае текст вообще не содержит строки CP866.
В чем прикол, откуда оно может браться?

Have nice nights.
Stas Mishchenkov.

--- Всё, что ты хочешь, находится на обратной стороне страха.
* Origin: Lame Users Breeding. Simferopol, Crimea. (2:460/5858)
SEEN-BY: 460/58 5858 5020/545 1042 4441 6090/1
PATH: 460/5858 58 5020/545 4441 1042 6090/1
#3919From:Gennadij Pastuhov
To:Stas Mishchenkov
Date:17-10-2020 16:50:04
Subj:мозги сломал
Рад всех приветствовать! А особенно - Stas!

Суббота октября 17 20 11:15 Stas Mishchenkov писал к All:

SM> use locale;
SM> # [...]
SM> undef $fromchrs;
SM> if ( $Text =~ /\001CHRS\:[ ]*([^ ]+)[ ]+\d+/ ) {
Может, тут лучше так: \s* \s+
SM> $fromchrs = lc($1);
SM> writelog("Charset found: \'$fromchrs\'.");
SM> } else {
SM> $fromchrs = 'cp866';
SM> writelog('Warning: No @CHRS kludge. Using default
SM> }

SM> Текст письма содержит кладж "@CHRS: UTF-8 4", но $1 и $fromchrs
SM> устанавливается CP866. Другие кладжи рспознает, правда, я не проверял,
SM> все ли. При чем, в данном конкретном случае текст вообще не содержит
SM> строки CP866. В чем прикол, откуда оно может браться?

Что говорит regex101 ? ИМХО, дело в символе \001

... Jonny wanna live
--- GoldED+/W32 1.1.5-041013 xenofont.chat.ru skype pastuhovgena
* Origin: Чёрнaя дырa - труднодоступнaя aфрикaнскaя провинция (2:5036/26)
SEEN-BY: 5020/1042 5036/26 6090/1
PATH: 5036/26 5020/1042 6090/1
#3920From:Alexey Korotkov
To:Stas Mishchenkov
Date:17-10-2020 22:50:28
Subj:Re: мозги сломал
Здpавствуй, Stas!

Суббота 17 Октября 2020 11:15, ты писал(а) All, в сообщении по ссылке area://ru.perl?msgid=2:460/5858+5f8aab78:


SM> Текст письма содержит кладж "@CHRS: UTF-8 4", но $1 и $fromchrs
SM> устанавливается CP866. Другие кладжи рспознает, правда, я не проверял,
SM> все ли. При чем, в данном конкретном случае текст вообще не содержит
SM> строки CP866. В чем прикол, откуда оно может браться?
А ты уверен что у тебя в строке фактические разделители - проблелы? (см. в hex-виде)


С уважением - Alexey
--- И дым копченостей нам сладок и приятен ...
* Origin: Пиво с утра не только вредно, но и полезно (2:455/19.4)
SEEN-BY: 450/102 1024 455/19 5020/1042 6090/1
PATH: 455/19 450/102 1024 5020/1042 6090/1
Выделенный сервер за 149 руб!