Перейти к содержимому
Калькуляторы

forward

Пользователи
  • Публикации

    16
  • Зарегистрирован

  • Посещение

О forward

  • Звание
    Абитуриент
    Абитуриент

Контакты

  • ICQ
    Array
  1. Спасибо! На свиче получилось все работает как надо, отнес в комп воткнул - нифига :-(
  2. Братцы помогите вспомнить какие нужно перемкнуть провода в витой паре, чтобы получилась заглушка в сетевую карточку компьютера, сеть с другими не нужна нужно чтобы сетевая карта была активна, ну горела лампочка и все такое. тоесть с одной стороны коннектор как положено а на другом конце кабеля скрутить провода нужно, сам делал столет назад когда 10мБит еще были, щас хоть убей не вспомню никак... Гугль перелопатил весь не нашел, а надо срочно, ато съедят меня бабушки-бухи.
  3. спасибо большое за инфу. Что-то я даже и не подумал о x-lite :-) хотя и астерикс уже давно используем в связке с x-lite. по поводукамер будут нормальние betamax стоять, просто этонужно на один раз сделать, провести конфу. По поводу x-lite, наверно нужно в asterix какие-то под видео настройки сделать?
  4. Скайп не годится, нужна локальная сеть. LAN. Интернет исключен
  5. Как вариант спасибо NetMeeting насколько я помню старинная софтина, на сайте майкрософт последняя версия - 2001 года, да и при установке пишет что не могу на XP стать.. вроде версия не та. окошко маленькое, да и качество картинки не очень.. может что есть посвежее, неглобальное, с не шибко большим бюджетом.
  6. Ребята, подскажите софт которым можно организовать видеоконференцию на 2 абонента в локальной сети. Подойдут любые Win или Nix.
  7. Модули подключил, хм.... это не то? while (<>) { next if /Acct-Session-Id = "00000000"/; %DETAIL = (); my $startsessid = ''; my $stopsessid = ''; if (/Acct-Status-Type = (\S+)/) { $DETAIL{'Acct-Status-Type'} = $1; } if (/Acct-Session-Id = "([^"]+)"/) { $DETAIL{'Acct-Session-Id'} = $1; } if (/User-Name = "([^"]+)"/) { $DETAIL{'User-Name'} = $1; } if (/NAS-IP-Address = (\S+)/) { $DETAIL{'NAS-IP-Address'} = $1; } if (/NAS-Port-Id = (\d+)/) { $DETAIL{'NAS-Port-Id'} = $1; } # some detail files have this instead of the NAS-Port-Id if (/NAS-Port = (\d+)/) { $DETAIL{'NAS-Port-Id'} = $1; } if (/NAS-Port-Type = (\S+)/) { $DETAIL{'NAS-Port-Type'} = $1; } $DETAIL{'Time'} = timelocal ($6, $5, $4, $3, $months{$2}, $7 - 1900) if (/^(\w{3})\s(\w{3})\s{1,2}(\d{1,2})\s(\d{2}):(\d{2}):(\d{2})\s(\d{4})\n/ && (grep {$1 eq $_} @wdays) && (grep {$2 eq $_} keys %months)); if (/Acct-Session-Time = (\d+)/) { $DETAIL{'Acct-Session-Time'} = $1; } if (/Acct-Authentic = (\S+)/) { $DETAIL{'Acct-Authentic'} = $1; } if (/Acct-Input-Octets = (\d+)/ ){ $DETAIL{'Acct-Input-Octets'} = $1; } if (/Acct-Output-Octets = (\d+)/) { $DETAIL{'Acct-Output-Octets'} = $1; } if (/Called-Station-Id = "([^"]+)"/) { $DETAIL{'Called-Station-Id'} = $1; } if (/Calling-Station-Id = "([^"]+)"/) { $DETAIL{'Calling-Station-Id'} = $1; } if (/Connect-Info = "([^"]+)"/) { $DETAIL{'Connect-Info'} = $1; } if (/Acct-Terminate-Cause = (\S+)/) { $DETAIL{'Acct-Terminate-Cause'} = $1; } if (/Service-Type = (\S+)/) { $DETAIL{'Service-Type'} = $1; } if (/Framed-Protocol = (\S+)/) { $DETAIL{'Framed-Protocol'} = $1; } if (/Framed-IP-Address = (\S+)/) { $DETAIL{'Framed-IP-Address'} = $1; } if (/Acct-Delay-Time = (\d+)/) { $DETAIL{'Acct-Delay-Time'} = $1; } if ($DETAIL{'Acct-Status-Type'} eq 'Start') { $sth = $dbh->prepare("SELECT RadAcctId FROM radacct WHERE AcctSessionId = '$DETAIL{'Acct-Session-Id'}' AND UserName = '$DETAIL{'User-Name'}' AND NASIPAddress = '$DETAIL{'NAS-IP-Address'}' AND NASPortId = '$DETAIL{'NAS-Port-Id'}' AND AcctStartTime = 0"); print "SELECT RadAcctId FROM radacct WHERE AcctSessionId = '$DETAIL{'Acct-Session-Id'}' AND UserName = '$DETAIL{'User-Name'}' AND NASIPAddress = '$DETAIL{'NAS-IP-Address'}' AND NASPortId = '$DETAIL{'NAS-Port-Id'}' AND AcctStartTime = 0\n" if $DEBUG; $sth->execute || print "Error: ".$dbh->errstr(); ($startsessid) = $sth->fetchrow_array; $sth->finish; if ($startsessid) { $sth = $dbh->do("UPDATE radacct SET AcctStartTime = FROM_UNIXTIME('$DETAIL{'Time'}'), AcctStartDelay = '$DETAIL{'Acct-Delay-Time'}' WHERE RadAcctId = '$startsessid'") || print "Error: ".$dbh->errstr() if $DOUPDATE; print "UPDATE radacct SET AcctStartTime = FROM_UNIXTIME('$DETAIL{'Time'}'), AcctStartDelay = '$DETAIL{'Acct-Delay-Time'}' WHERE RadAcctId = '$startsessid'\n" if $DEBUG; } else { $sth = $dbh->do("INSERT INTO radacct VALUES ('','$DETAIL{'Acct-Session-Id'}','$DETAIL{'User-Name'}','','$DETAIL{'NAS-IP-Address'}',$DETAIL{'NAS-Port-Id'},'$DETAIL{'NAS-Port-Type'}',FROM_UNIXTIME('$DETAIL{'Time'}'), 0, 0, '$DETAIL{'Acct-Authentic'}','$DETAIL{'Connect-Info'}',0, 0, '$DETAIL{'Called-Station-Id'}','$DETAIL{'Calling-Station-Id'}','','$DETAIL{'Service-Type'}','$DETAIL{'Framed-Protocol'}','$DETAIL{'Framed-IP-Address'}','$DETAIL{'Acct-Delay-Time'}', 0)") || print "Error: ".$dbh->errstr() if $DOUPDATE; print "INSERT INTO radacct VALUES ('','$DETAIL{'Acct-Session-Id'}','$DETAIL{'User-Name'}','','$DETAIL{'NAS-IP-Address'}',$DETAIL{'NAS-Port-Id'},'$DETAIL{'NAS-Port-Type'}',FROM_UNIXTIME('$DETAIL{'Time'}'), 0, 0, '$DETAIL{'Acct-Authentic'}','$DETAIL{'Connect-Info'}',0, 0, '$DETAIL{'Called-Station-Id'}','$DETAIL{'Calling-Station-Id'}','','$DETAIL{'Service-Type'}','$DETAIL{'Framed-Protocol'}','$DETAIL{'Framed-IP-Address'}','$DETAIL{'Acct-Delay-Time'}', 0)\n" if $DEBUG; } } elsif ($DETAIL{'Acct-Status-Type'} eq 'Stop') { $sth = $dbh->prepare("SELECT RadAcctId FROM radacct WHERE AcctSessionId = '$DETAIL{'Acct-Session-Id'}' AND UserName = '$DETAIL{'User-Name'}' AND NASIPAddress = '$DETAIL{'NAS-IP-Address'}' AND NASPortId = '$DETAIL{'NAS-Port-Id'}' AND AcctStopTime = 0") || print "Error: ".$dbh->errstr(); print "SELECT RadAcctId FROM radacct WHERE AcctSessionId = '$DETAIL{'Acct-Session-Id'}' AND UserName = '$DETAIL{'User-Name'}' AND NASIPAddress = '$DETAIL{'NAS-IP-Address'}' AND NASPortId = '$DETAIL{'NAS-Port-Id'}' AND AcctStopTime = 0\n" if $DEBUG; $sth->execute || print "Error: ".$dbh->errstr(); ($stopsessid) = $sth->fetchrow_array; $sth->finish; if ($stopsessid) { $sth = $dbh->do("UPDATE radacct SET AcctStopTime = FROM_UNIXTIME('$DETAIL{'Time'}'), AcctStopDelay = '$DETAIL{'Acct-Delay-Time'}', AcctSessionTime = $DETAIL{'Acct-Session-Time'}, AcctInputOctets = $DETAIL{'Acct-Input-Octets'}, AcctOutputOctets = $DETAIL{'Acct-Output-Octets'}, AcctTerminateCause = '$DETAIL{'Acct-Terminate-Cause'}' WHERE RadAcctId = '$stopsessid'") || print "Error: ".$dbh->errstr() if $DOUPDATE; print "UPDATE radacct SET AcctStopTime = FROM_UNIXTIME('$DETAIL{'Time'}'), AcctStopDelay = '$DETAIL{'Acct-Delay-Time'}', AcctSessionTime = $DETAIL{'Acct-Session-Time'}, AcctInputOctets = $DETAIL{'Acct-Input-Octets'}, AcctOutputOctets = $DETAIL{'Acct-Output-Octets'}, AcctTerminateCause = '$DETAIL{'Acct-Terminate-Cause'}' WHERE RadAcctId = '$stopsessid'\n" if $DEBUG; } else { $sth = $dbh->do("INSERT INTO radacct VALUES ('','$DETAIL{'Acct-Session-Id'}','$DETAIL{'User-Name'}','','$DETAIL{'NAS-IP-Address'}',$DETAIL{'NAS-Port-Id'},'$DETAIL{'NAS-Port-Type'}', 0, FROM_UNIXTIME('$DETAIL{'Time'}'), $DETAIL{'Acct-Session-Time'}, '$DETAIL{'Acct-Authentic'}','$DETAIL{'Connect-Info'}',$DETAIL{'Acct-Input-Octets'}, $DETAIL{'Acct-Output-Octets'}, '$DETAIL{'Called-Station-Id'}','$DETAIL{'Calling-Station-Id'}','$DETAIL{'Acct-Terminate-Cause'}','$DETAIL{'Service-Type'}','$DETAIL{'Framed-Protocol'}','$DETAIL{'Framed-IP-Address'}', 0, '$DETAIL{'Acct-Delay-Time'}')") || print "Error: ".$dbh->errstr() if $DOUPDATE; print "INSERT INTO radacct VALUES ('','$DETAIL{'Acct-Session-Id'}','$DETAIL{'User-Name'}','','$DETAIL{'NAS-IP-Address'}',$DETAIL{'NAS-Port-Id'},'$DETAIL{'NAS-Port-Type'}', 0, FROM_UNIXTIME('$DETAIL{'Time'}'), $DETAIL{'Acct-Session-Time'}, '$DETAIL{'Acct-Authentic'}','$DETAIL{'Connect-Info'}',$DETAIL{'Acct-Input-Octets'}, $DETAIL{'Acct-Output-Octets'}, '$DETAIL{'Called-Station-Id'}','$DETAIL{'Calling-Station-Id'}','$DETAIL{'Acct-Terminate-Cause'}','$DETAIL{'Service-Type'}','$DETAIL{'Framed-Protocol'}','$DETAIL{'Framed-IP-Address'}', 0, '$DETAIL{'Acct-Delay-Time'}')\n" if $DEBUG; } } }
  8. Мне биллинг вобщето не нужен, мне разобрать логи иногда кто сколько раз подключался и скока времени провел в сети и накачал сколько. Понимаю что задачи билинговые, но нужно это не всегда, лишь иногда. Подскажите хотябы первые пару строк на перле
  9. Имеется шлюз, pppoe c авторизацией на FreeRADIUS который ведет логи по типу Sun Jun 15 00:02:38 2008 NAS-Identifier = "server.local" NAS-Port = 0 NAS-Port-Type = Virtual Service-Type = Framed-User Framed-Protocol = PPP Calling-Station-Id = "0019d1182702" User-Name = "user1" Framed-IP-Address = 10.0.0.0 Acct-Status-Type = Interim-Update Acct-Session-Id = "3168056-pppoe0" Acct-Multi-Session-Id = "3168056-pppoe0" Acct-Link-Count = 1 Acct-Authentic = RADIUS Acct-Session-Time = 305702 Acct-Input-Octets = 10666073 Acct-Input-Packets = 164211 Acct-Output-Octets = 213584626 Acct-Output-Packets = 164680 Acct-Input-Gigawords = 0 Acct-Output-Gigawords = 0 NAS-IP-Address = 192.168.0.22 Client-IP-Address = 192.168.0.22 Acct-Unique-Session-Id = "66d9644d2c801913" Timestamp = 1213473758 Sun Jun 15 00:02:42 2008 NAS-Identifier = "server.local" NAS-Port = 1 NAS-Port-Type = Virtual Service-Type = Framed-User Framed-Protocol = PPP Calling-Station-Id = "0019d18c15a8" User-Name = "user2" Framed-IP-Address = 10.0.0.1 Acct-Status-Type = Interim-Update Acct-Session-Id = "3168060-pppoe1" Acct-Multi-Session-Id = "3168060-pppoe1" Acct-Link-Count = 1 Acct-Authentic = RADIUS Acct-Session-Time = 305702 Acct-Input-Octets = 1449548717 Acct-Input-Packets = 4221659 Acct-Output-Octets = 3153908217 Acct-Output-Packets = 4854304 Acct-Input-Gigawords = 0 Acct-Output-Gigawords = 0 NAS-IP-Address = 192.168.0.22 Client-IP-Address = 192.168.0.22 Acct-Unique-Session-Id = "4d445616077e3985" Timestamp = 1213473762 Подскажите утилитку которой можно эти логи разобрать, нужно посчитать трафик и время, это нужно не постоянно а иногда, шлюз стоит на предприятии, требуется переодически сверять статистику по юзерам, по времени и т.д. если эта софтина будет под win платформу, это конечно удобнее.
  10. А на сервер какую карточку посоветуете поставить? бо потоки будут нехилые: видеофайлы без сжатия и DV формат тоже.
  11. Пришла пора перейти на гигабитный. Подскажите какой кабель лучше использовать, какие свичи и на какое максимальное расстояние можно пробрасывать? Ссылку какую-нибуть типа хауту. Не сочтите за идиота, просто не хочется наступить на грабли на которые уже ктото наступал ;).
  12. Кто-нибудь таки научил DWL2000AP+ в режиме клиента или бриджа делать авторизацию в сети с radius по EAP-MSCHAP v2 / PEAP ? Помогите плиз!
  13. Вижу что методы в основном "викинговские" отверткой да загрузкой с сидюка. Спасибо всем, расправился с сервом. Кстати на сервак ставить CD, floppy, я думаю не стоит, я и сам никогда не ставлю, а вот с отверткой - это правильно, но не всегда хочется расковыривать. Кстати брат-админ который этот серв пригнал пароль не вспомнил, вот такие админы есть :(
  14. А какой, попробовал несколько, они просят ввести диаппазон адресов, а я понятия не имею в каком диапазоне и какой адрес у сервера. Помогите ктонибуть!!!! как определить IP компьютера в сети?
  15. Ситуация неприятная, привезли сервер и не оставили никаких опозновательных знаков. Ктонибудь знает как найти IP адрес этого сервера, если неизвестно ничего и войти естественно невозможно стоят пароли. Хотябы определить в каком он адресном пространстве?