 |
|
|
ru.linux- RU.LINUX --------------------------------------------------------------------- From : Ilya Anfimov 2:5020/400 02 Nov 2006 03:05:23 To : Zahar Kiselev Subject : Re: аналог screen но для графического сеанса -------------------------------------------------------------------------------- 2006-11-01, Zahar Kiselev <Zahar.Kiselev@p1.f382.n5030.z2.fidonet.org> пишет: > Hello Alex! > > Nov 01 18:46 06, Alex Korchmar wrote to Zahar Kiselev: > > ZK>> За проблемы с хождением конференций в последнюю неделю - скажи > ZK>> спасибо 2:5020/715 > AK> Захар, не поверишь, но здесь эта проблема только у тебя. > AK> Всем остальным совершенно похрен, наши письма ходят. > AK> Купи уже себе нормальный интернет. > Интернет у меня и так есть. Лучше скажи где купить доступ к стабильному > ньюссерверу (nntp/nnrp)? ddt.demos.su > Hе только не чтение, но и на запись, и не за $15/мес > как у Релкома. Сделай себе постинг через e-mail. (Hижэприведённый скрипт работает как замена inews. Там вроде я не вычистил одну кривость с заголовками, но поскольку пишу статьи тожэ я -- то это так, не exploit дажэ). #!/usr/bin/tclsh set headers 1 set newsgroups {} set ingroupheader 0 set header_lines {} proc get_grouplist {groups} { return [regsub -all "," $groups " "]; }; proc get_moderator_addr {group} { regsub -all {\.} $group {-} gname return "${gname}@ddt.demos.su" }; proc spcquote_shell {addr} { return " $addr"; }; while {! [eof stdin]} { gets stdin line; if {$headers} { if {$line ne ""} { lappend header_lines $line if [string is space [string index $line 0]] { if {$ingroupheader} { lappend newsgroups [get_grouplist $line]; } else { }; # if ingroupheader } else { # string is space -- header continue set ingroupheader 0; if [string equal -nocase -length 11 $line "Newsgroups:"] { set ingroupheader 1 set newsgroups [concat $newsgroups [get_grouplist [string range $line 11 end]]] }; # string equal -nocase }; # string is space -- header continue } else { # $line ne "" set headers 0; if {$newsgroups eq ""} { puts stderr "No Newsgroups: headers found -- nowhere to post"; exit 1; } else { # llength newgroups == 0 set targets {}; foreach group $newsgroups { lappend targets [spcquote_shell [get_moderator_addr $group]]; }; # foreach $newsgroups set outpipe [open [concat "|/usr/sbin/sendmail" $targets] w] foreach headerline $header_lines { puts $outpipe $headerline; }; # foreach headerline puts $outpipe ""; }; # llength newsgroup == 0 }; # $line ne "" } else { # $headers puts $outpipe $line; }; # $headers }; # while ! eof stdin close $outpipe; > > Zahar > --- ifmail v.2.15dev5.3 * Origin: Demos online service (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.linux/191700ef81c18.html, оценка из 5, голосов 10
|
|
|