To all things comes an end.

And to all things comes a beginning. (c)

---

Powershell Pinger #2.1 - Разбор вывода итогов

В сегодняшнее дежурство заметил странное. Новая версия пингера в конце каждой итерации обхода всех хостов выводит итоговую таблицу. По идее, выводить она должна ее в следующем виде:

Name   Value
----   -----
host   time

А на практике получается следующее:

Key   : %IP-ADDRESS%
Value : 11.07.2015 16:57:03
Name  : %IP-ADDRESS%

Видим, что с какого-то перепуга поменялся формат вывода той несчастной конечной хэш-таблицы. Ночью сил разбирать все это не было, уволок весь скирпт домой. Убрал все лишние обвязки, оставил в новом файле только процедуру заполнения этой таблицы. Результат - тот же, неутешительный. Начинаю вспоминать, что ж было в скрипте изменено. Каково же было мое удивление, когда после комментирования командлета Get-Date все встало на свои законные места. Хохмы ради набросал простенькую конструкцию и посмотрел на результат:

$files=Get-childitem c:\windows\*.exe
$a=@{}
foreach ($file in $files) {
    $a.add($file.BaseName,$file.FullName)
}
$a

Name                           Value 
----                           ----- 
hh                             C:\windows\hh.exe 
HelpPane                       C:\windows\HelpPane.exe
winhlp32                       C:\windows\winhlp32.exe
splwow64                       C:\windows\splwow64.exe
explorer                       C:\windows\explorer.exe 
write                          C:\windows\write.exe 
bfsvc                          C:\windows\bfsvc.exe 
regedit                        C:\windows\regedit.exe

Все как и должно быть. А теперь добавляем в самое начало этого скриптика всего одну строку - Get-date, которая всего лишь выведет первой строкой текущую дату и время. Вот что получаем:

get-date
$files=Get-childitem c:\windows\*.exe
$a=@{}
foreach ($file in $files) {
    $a.add($file.BaseName,$file.FullName)
}
$a

11 июля 2015 г. 17:02:56

Key   : hh
Value : C:\windows\hh.exe
Name  : hh


Key   : HelpPane
Value : C:\windows\HelpPane.exe
Name  : HelpPane


Key   : winhlp32
Value : C:\windows\winhlp32.exe
Name  : winhlp32


Key   : splwow64
Value : C:\windows\splwow64.exe
Name  : splwow64


Key   : explorer
Value : C:\windows\explorer.exe
Name  : explorer


Key   : write
Value : C:\windows\write.exe
Name  : write


Key   : bfsvc
Value : C:\windows\bfsvc.exe
Name  : bfsvc


Key   : regedit
Value : C:\windows\regedit.exe
Name  : regedit


Key   : notepad
Value : C:\windows\notepad.exe
Name  : notepad

Далее на ум приходят только слова из бессмертного филатовского Федота-стрельца: "Энто ж как же, вашу мать, извиняюсь, понимать?"
Как получилось так, что безобидный вывод времени напрочь меняет форматирование во всей консоли? И самое главное - где это описано? Может быть, я, конечно, плохо искал, но вот нигде не нашел никакой документации по подобному поведению. И, самое главное, проверил это во всех доступных мне на текущий момент версиях PSH - 2, 4, 5. Везде проявляется.
Ок, а если заменить Get-Date на [System.DateTime]::Now? Результат немного предсказуем - вывод будет ошибочным

@музыка: David Arkenstone - 2003 - [Troika 5] Kingdom of the Sun

@темы: PowerShell, Scripting

---

Powershell Pinger #2

От идеи пингера, сидящего в системном трее, временно пришлось отказаться. Скрипт поглощал память как не в себя. Когда увидел число в полгигабайта, остановил его и отложил в сторону. Нет, правильно писать многозадачный скрипт я еще пока не умею. Остановимся на первоначальном варианте - однопоточный опрос. Добавим в него возможность комментариев к адресам, перечисленным в файле хостов. Попутно пусть этот пингер ведет некий лог, когда какой хост упал, и когда он вернулся в строй. Вот что вышло (комментарии даны прямо в коде).

#define variables
#настройка каталога с файлами данных
$configDir = (split-path -parent $MyInvocation.MyCommand.Definition)+"\config\"

#настройка лог-файла
$logFile = (split-path -parent $MyInvocation.MyCommand.Definition)+"\log.txt"
"Host,description,status,date" | out-file $logfile -encoding UTF8

#очистка таблицы недоступных хостов
$OutageHosts = $Null

#таймаут итераций
$SleepTimeOut = 30

#main route
do {
    #очищаем экран и показываем текущие дату и время
    cls
    get-date
    
    #список доступных хостов, нужен для подсчета числа хостов в конце
    $available = $Null
    
    #список недоступных хостов, нужен для подсчета числа хостов в конце
    $notavailable = $Null
    
    #текст, выводимый в лог-файл
    $text = $NULL
    
    #хэш-таблица со сбойными хостами
    $OutageHosts= @{}
    
    #переменная, хранящая данные о хостах из текстовых файлов
    $data = @()
    
    #получаем информацию о хостах из всех файлов данных
    get-childitem $configDir -Filter "*.txt" | where {$_.Name -notlike "_*.*"} | %{
        $data += (import-csv $_.FullName -header "Address","Description")
    }
    
    #обходим в цикле все хосты, список хостов отсортирован по адресу по возрастанию
    foreach ($line in $data | sort-object address) {
        #если адрес хоста не равен "" и не содержит "#" - обрабатываем
        if (($line.Address -ne "") -and ($line.address -notlike "#*")) {
            
            # если пинг пройден
            if (Test-Connection -ComputerName $line.address -Count 1 -ea silentlycontinue) { 
                #если хост доступен, пишем на экран и заносим в список доступных
                write-host "up`t"$line.address -ForegroundColor Green
                [Array]$available += $line.address
                
                #если хост есть в таблице сбойных
                if ($OutageHosts.ContainsKey($line.address)) { 
                    #убираем хост из таблицы сбойных и пишем в лог о восстановлении хоста
                    $OutageHosts.Remove($line.address)
                    $text = "$($line.address),$($line.description),UP,$(get-date)"
                    out-file $logfile -inputobject $text -encoding UTF8 -append
                }
            }
            # если пинг не пройден
            else { 
                
                #ГРЯЗНЫЙ ХАК: вторичный пинг недоступного хоста.
                #нужен для исключения ложных срабатываний.
                if (!(Test-Connection -ComputerName $line.address -Count 2 -ea silentlycontinue)) {
                    
                    #если хост не доступен после вторичного пинга с 2 пакетами,
                    #пишем об этом на экран и заносим хост в список недоступных
                    write-host "DOWN`t"$line.address" "$line.description -ForegroundColor Red
                    [Array]$notavailable += $line.address
                    
                    #если хоста нет в таблице сбойных
                    if (!$OutageHosts.ContainsKey($line.address)) {
                        
                        #вносим хост в таблицу сбойных, пишем в лог о сбое хоста, пищим
                        $OutageHosts.Add($line.address,(get-date))
                        $text = "$($line.address),$($line.description),DOWN,$(get-date)"
                        out-file $logfile -inputobject $text -encoding UTF8 -append
                        [console]::beep(2000,500)
                    }
                } 
            }
        }
    }
    
    #Выводим на экран результаты итерации
    Write-Host "Число доступных:"$available.count
    Write-Host "Число недоступных:"$notavailable.count
    Write-Host "Недоступны хосты:"
    $OutageHosts
    Write-Host ""
    Write-Host "Sleeping $SleepTimeOut seconds"
    sleep $SleepTimeOut
    clear
}
while ($true)

Чем больше смотрю на указанный в коде "грязный хак" - тем больше фигею и фигею. А что делать? Иначе количество ложных срабатываний выведет из себя даже самого терпеливого коллегу. Не говоря уже о том, что я и сам долготерпением не обладаю.
Формат файлов с описанием хостов не поменялся: это все те же текстовые файлы с информацией вида ipaddress,comment, лежащие в папке config рядом с самим скриптом. Там же, рядышком со скриптом будет лежать и формируемый лог взлетов и падений.

@настроение: клац-клац-клац

@темы: PowerShell, Scripting

---

РПЦ...

Представитель РПЦ считает причиной всех российских бед в XX веке легализацию абортов - Клац!

Без комментариев. Точка.

@темы: РПЦ

---

Powershell Pinger

Логи, мониторинг... Мониторинг, логи... Этих самых мониторящих и логирующих утилит на рабочем месте уже воз и маленькая тележка. А самым информативным остается самый обычный, чтоб его, ping. Отрабатывает намного быстрее, чем монструозный SCOM и к нему примазывающиеся.
На текущий момент у нас используется выдранный откуда-то из сети коллегами уже готовый PSH-скрипт, который и занимается весьма простым делом - обходом всех узлов, заданных в банальном текстовике. Пропинговался узел - вывести его имя в консоли зелененьким. Свалился - красным. После чего спим 20 секунд, очищаем окно консоли, и снова все по кругу. Добавили еще пищалку, да и все.
Проблема в том, что держать на экране это окошко - не есть хорошо, окон на рабочем столе и так полно. Пришла в голову идея сделать так, чтобы скрипт при обнаружении свалившегося хоста выдавал в системном трее уведомление, мол, такой-то хост того, сгнил. А если на это уведомление щелкнуть - выведется полный список хостов, на текущий момент лежащих в пыли. Вот что получилось на сегодняшний день.

#define variables
[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")
$NotifyIcon = New-Object System.Windows.Forms.NotifyIcon
$NotifyIcon.Icon = [System.Drawing.SystemIcons]::Information
$NotifyIcon.Visible = $true
$configDir = (split-path -parent $MyInvocation.MyCommand.Definition)+"\config"
$notAvailable = @{}
register-objectevent $NotifyIcon Click Click_event -Action {
    Out-GridView -InputObject $notAvailable 
} | out-null
$timeout = 20

#main route
#проверяем каждый хост в общем списке - пустые строки и комментарии "#" игнорируем
do {
$data = @()
get-childitem $configDir -Filter "*.txt" | where {$_.Name -notlike "_*.*"} | %{
    $data += (import-csv $_.FullName -header "Address","Description")
}
foreach ($line in $data) { if (($line.Address -ne "") -and ($line.address -notlike "#*")) {
    #если пинг не пройден
    if(!(Test-Connection -ComputerName $line.Address -Count 1 -ea silentlycontinue)) {
        #звук и алерт
        [console]::beep(2000,500)
        $NotifyIcon.BalloonTipIcon = "Error" 
        $NotifyIcon.BalloonTipText = "$($Line.address) is down" 
        $NotifyIcon.BalloonTipTitle = "Ping Failed"
        $NotifyIcon.ShowBalloonTip(10000) 
        #проверяем, есть ли этот хост в таблице сбойных, если нет - добавляем
        if(!$notAvailable.item($line.address)) {
            $notAvailable.add($line.address,$line.description)
        }
    }
    #если пинг пройден
    else {
        #если хост есть в таблице сбойных - убрать его из таблицы сбойных
        if ($notAvailable.item($line.address)) {
            $notavailable.Remove($line.address)
        }
    }
}}
start-sleep -seconds $timeout
}
while ($true)

Как работает.
В папке, где скрипт лежит, создаем папочку config, в нее в виде txt-файлов накидываем информацию о хостах, которые будем мониторить, в следующем виде:
ipaddress,comment
Например:
192.168.1.1,router
127.0.0.1,localhost
192.168.1.3,my computer
128.0.0.1,test host
Можно все хосты в один файл утрамбовать, можно разнести по нескольким файлам, например, серверы отдельно, сетевые железки отдельно...
Внутри этих текстовиков отдельные узлы можно комментировать, поставив перед адресом знак #. К примеру, знаем, что один из серверов сейчас на обслуживании, так чтоб пингер не верещал почем зря - комментируем эту строку в файле.
Если нужно что-то добавить (либо в какой-то файл, либо просто новый файл подключить) - просто добавляем и сохраняем. Перезапускать скрипт не требуется.

Из нерешенных пока проблем.
1. Скрипт этот запускать нужно через ярлык в -sta режиме консоли. По дефолту оная консоль запускается в -mta, в этом случае обработка кликов работать не будет.
2. Инертность. В тот момент, когда скрипт нарывается на свалившийся хост, пока не завершится попытка пинга - скрипт фактически ничего делать не будет. И опять же не будет обрабатывать клики. То же самое справедливо для паузы в скрипте - особенно заметно, когда скрипт добирается до команды start-sleep -seconds $timeout и выполняет ее.

@музыка: Nicolas Jeandot - Fiery Horse

@настроение: надо думать дальше...

@темы: PowerShell, Scripting

---

Windows 10 - In production

Ну как, в продакшене. Пока что это означает, что эта версия системы у меня поселилась не в виртуальной машине, как это было раньше, а уже в качестве Host OS. Что тут скажешь? Да много чего. Ее переработали очень сильно, на мой взгляд - даже сильнее, чем когда-то кипели мозги во время перехода XP -> Win 7. Очень многие алгоритмы действий теперь не действуют, да хоть то же управление компьютером, когда можно было просто сделать так: Пуск - ПКМ Компьютер - Управление. Теперь до него еще добраться надо.
Из мелких "камней в кроссовках на бегу", как я уже охарактеризовал подобное поведение:
- некоторые приложения (из встроенных, мать их!) не опознаются микшером, соответственно, регулировать их громкость нельзя.
- произвольные приложухи не цепляются на стартовый экран.
- настройка системного трея. Раньше было меню настройки уведомлений, где можно было сказать - вот это показывать всегда, а это не показывать вообще никогда. Теперь его не стало. Самое парадоксальное, что я далеко не сразу сообразил, что заставить какую-нибудь программку светиться всегда можно банально перетащив ее в видимую область трея. Соответственно, если что-то нужно скрыть - перетаскиваем его в закрытую часть.
Но! Есть и хорошие стороны. Например, нашумевший уже Spartan, или Edge, как его теперь принято называть (хотя в самой последней сборке Insider он до сих пор делит фамилию с Джоном Спартаном). Быстрый, плавный, легковесный. Черт побери, он действительно хорош. Пока что его губит ровно одно - нет аддонов. Конкретнее - нет всего одного аддона - AdBlock. Но это даже не отрицательная сторона браузера, это сволочизм современного веба. И адблок - паллиатив, а не лекарство.
Но самое крутое из того, что мне попадалось на глаза за все время тестов - это вот такая настройка:

Да, теперь мы можем перетаскивать программы между дисками без переустановки оных! Где-то я подобное уже видел.
В общем, ждем двух дат. Первая - 29 июля - день выхода десятки в релиз. Вторая (пока еще не определенная) - традиционно день выхода первого сервис-пака

@музыка: Koto - ... Plays Science-Fiction Movie Themes

---

Koto - Jabdah

Музыка 80-х годов. А до сих пор остается актуальной. Стефано Кундари за синтезатором вообще неподражаем

@музыка: Koto - Jabdah

@темы: Music

---

Size of games

Вот она, вся сущность игроделия в текущие времена:

Стащил 2-3 из 15 гигов - и играть ты уже можешь. Что ж там остальное-то? Рюшечки и свистоперделки?

@музыка: Conny Porsche - Give Me Your Love

@темы: Этот безумный мир

---

ФМоб.

Осалили тут флешмобом с простыми правилами:
1) Постим у себя семь песен, которые нравятся в данный момент.
2) Выбираем семь человек, которые должны сделать то же самое у себя в дневнике.
Ну что ж, не жалуйтесь

Sensorica - Creber Anhelitus



The Offspring - Secrets from the Underground



Marko Polo - Speedy Speed Boy



Erock - Sword Art Online (Crossing field) meets metal



Gareth Coker - Light of Nibel



Koan - After the guiding Venus



Koan - Back to the silent lagoon (blue mix)



Осаливать прицельно не буду. Кто хочет поделиться своими вкусами - велком

@музыка: Sensorica - Creber Anhelitus

@темы: Music

---

Resize Image

Для прошлого поста было отснято довольно немало фотографий, но все они вышли в диком разрешении. 3 тыщи на еще сколько-то тыщ пикселов. Да, я знаю, что Imgur может автоматом ресайзить все загружаемые изображения, но, но, но... Короче, задача ясна.
Был у меня когда-то скрипт, который позволял пачкой менять размеры у кучи картинок. Да вот беда, он в своей работе использовал модуль Powershellpack. Проблема - дистр этого модуля утерян, а страница в инете, где он лежал, убрана в архив. И модуль фактически пропал. Придется писать работу с картинками "с нуля".

#define objects
$image = New-Object -ComObject Wia.ImageFile            
$imageProcess = New-object -comobject Wia.ImageProcess
$imageProcess.Filters.Add($imageProcess.FilterInfos.Item("Scale").FilterID)

#variables
$size = 1024
$source= Get-ChildItem "D:\temp\1\*.jpg"

#main sсript
foreach ($file in $source) {
    $image.LoadFile($file)          
    if ($image.width -gt $image.height) {
        $imageProcess.Filters.item(1).properties.item("MaximumWidth")=$size
        $imageProcess.Filters.item(1).properties.item("MaximumHeight")=$image.height*$size/$image.width
    }
    else {
        $imageProcess.Filters.item(1).properties.item("MaximumHeight")=$size
        $imageProcess.Filters.item(1).properties.item("MaximumWidth")=$image.width*$size/$image.height
    }
    $imageProcess.Filters.item(1).properties.item("PreserveAspectRatio")=$false
    $image=$imageProcess.Apply($image)
    $image.SaveFile(($file -replace $file.BaseName, "$($file.basename)_new"))
}

PreserveAspectRatio выключен специально, иначе авторасчет величин сторон даст неверные значения.
Сохранение результатов преобразования идет в новые файлы. Перезаписать файл команда $image.SaveFile не позволяет. Ну и ладно, это не страшно.
В который раз хочется сказать спасибо МСам за то, насколько более удобной они сделали ISE в 4-й версии. Подсветка кода в строке $imageProcess.Filters.item(1).properties.item("MaximumWidth") меня просто спасла.

@музыка: Diana Lewis - Three Times Allright

@темы: PowerShell

---

Отпускное

Вот уже который год я езжу в отпуск в одно и то же место - домой. И который год настоящего отдыха там не выходит, просто одна сфера деятельности меняется на другую. Тут я админ, а там - непосредственный участник проекта "веселая ферма" в рамках отдельно взятого домохозяйства. Ну ладно, не все заниматься помидорами-огурцами, можно и по родному городу прогуляться.

Поехали!

Одна из заброшек. Так и не дали ей ума. Следующий кадр - она же, немного с другого ракурса.

А ведь когда-то даже принимал деятельное участие в разборе этого бардака. Немного, впрочем, нам тогда удалось разобрать.

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

Мда, только дыры в заборе, без вариантов. Калитка-то теперь заварена наглухо. Кстати, это, вроде как, нарушение, потому что запасный выход со стадиона все же должен быть (а на фото как раз он и есть), и должен быть доступен.

Просто куст рядом с одним из зданий. Понравился.

Бедный Макдак, как его только уже не склоняли. Вот теперь до шавермы докатились (да, именно шавермы, слово "шаурма" не переношу на дух )

Дожились. Для всяких "стен плача любви" уже стали спец. замки продвавать. Их фишка в том, что у них нет отверстия под ключ - замкнул, и все, на веки вечные. Символично, конечно, но нифига не практично, имхо.

Собственно, сама такая "стена плача любви.

Во, вот это уже наш подход

Тот самый стадион, на котором калитку заварили. Сколько же километров в прошлом на нем намотано было. Жаль, что всю нашу компанию раскидало черт знает как. Кто где теперь живет, и собраться всем уже вряд ли когда доведется.

"Наскальный" чат.

Вот он. Мой идеальный железный конь. Ему уже 25 лет, а он все еще на ходу, не сгнил и не развалился. Хотя раму ему уже разок варили, но это было давно. Впервые за последние 9 лет сподобился перебрать его от и до. Вместе со своим стариком наконец-то дали ему ума, и, черт побери, он все еще просто шикарен. Сейчас уже таких, вроде как, не делают, а жаль.
Кстати, думал, что он будет полегче моего теперешнего коня... да нифига подобного.

О, великий бог Рандома корейского, североамериканского и всякого другого. Пошли мне мобов попроще и дроп пожирнее

Нездоровые тенденции пошли в нашем обществе. Что по поводу распространения спайсов как таковых, что по поводу использования любых поверхностей в качестве носителей для рекламы.

Если взглянуть на карту моего родного города, можно заметить любопытную вещь. Центр этой "паутины" - как раз показан на фото выше

Сразу видно, какие каналы пользуются популярностью

Котяра наш. Мурзик, он же Мурзилка, он же МурзА. Отощал, бедняга. Ну надо думать, каждую ночь где-то жестоко дерется. И непонятно, то ли все же он на коне, то ли ему рыло каждый раз чистят.

Список того, что нынче водится на ТриколорТВ. Особое внимание на имя канала сразу над посдвеченным слева. Вот уж не думал, что они и тут будут. Впрочем, канал все равно кодирован, так что хрен с ним. Поинтереснее нашлись.

Образчик творчества наших "стритрейсеров". Зазор между кузовом и асфальтом - сантиметра три, я проверял. Учитывая качество наших дорог - это жесть и ахтунг.

Это уже не Георгиевск, а Пятигорск. Кафе Галс. Знаковое место для нашей прошлой тусовки. Светлая память тебе, кафешка. Ныне она закрыта. Скорее всего - навсегда. Что ж, все хорошее когда-то кончается.

Мне уже любопытно, как это все будет реализовано.

Когда ж я эти шорты расшивал, в каком году? Это был где-то 11 класс, что ли, то есть в районе 1999-го года. И они мне до сих пор впору!
Но ничего не поделаешь, в этом году я их таки доконал. Так что придется делать их второе поколение и заново расшивать. Что именно вышивать - пока еще думаю.

Философский вопрос, однако. Но лучше бы автор его нарисовал у себя на заднице, чем на стене...

Конкретнее, плиз! У нас в городе Рыжиков немало все таки


Ну и на вкусное - счастье было так возможно, так близко...

Screen Mirroring с Z3C отраборал на пять баллов, но вот связь... Связь оказалсь ни к черту.

@музыка: Conny Porsche - Give Me Your Love

@темы: TTL

---

Passwords...

Facebook - раз!
My-hit - два!!
Blizzard - три!!!
Нашего полку прибыло. Ubisoft и их сервис Uplay, и... Кто бы вы думали - Nival! Причем основная претензия - к последним.
С момента покупки Child of Light больше года назад не заходил туда (а ведь придется - CoL ведь нужно дойти до конца). Вздумали зарубиться в пятых героев, а чтобы не ломать себе головы с установкой Hamachi (компьютеры в разных сетях), или еще того хуже - VPN, решили сыграть прямо через серверы Ubi. А что, копии игры вполне легальные, так чего тушеваться? Сказано, сделано - инсталл, запуск, Multiplayer, Ubi.com
И понеслась. Введите данные от учетки Uplay. Да не помню я ее, не помню. Подскажи, плиз через сайт. Сайт подумал, сказал: "да не вопрос, лови в почту линк для сборса пароля". Линк поймали, пароль поменяли, все как положено - куча символов, цифро-букво-спец.знаки. Дело за клиентом HoMM V.
А клиент пожевал наш пароль и ответил: "Нее, что-то вы мне какую-то каку даете. Это я не ем, я не козел (с)." Что за... Вбиваю еще раз, тот же ответ. Проверяю логин, может быть в нем ошибся - нет, но ответ тот же: "такого логина не существует".
Набираю пароль буквально по-символьно и в процессе понимаю, что-то не то. Слишком медленно курсор движется. Бааа, оказывается, клиент не понимает спец.знаки. Цифры понимает, буквы понимает, большие буквы понимает, а вот всякие восклицательные знаки, вопросительные, решетки, доллары, проценты, собачки - словом, все это ему до барабана!
Семен Семеныч Nival Interactive - ну что же вы! Как же так?!

@музыка: Radiorama - Bad Boy You

@темы: Этот безумный мир, Security

---

Sizes...

Честное слово, хочется взять в руки дробовик...

Хорошая штука эти универсальные стельки, очень хорошая. Но вот размеры... Впрочем, я уже и не знаю, кто на самом деле врет, размер на стельке или размер на обуви (там плохо видно, но стоит число 40).
А потом люди еще удивляются, с чего бы это я никогда не мог правильно свой размер ботинков сказать? Да потому что с этими разными лекалами для разных производителей - сам черт ногу сломит.

@музыка: Koan - Back to the silent lagoon

@темы: Этот безумный мир

---

Кофе

Вот! Вот она - фраза, которая кратко и емко объясняет, почему после прекращения действия дозы кофе спать хочется еще сильнее:
Кофе, не симулятор. Он антитормоз, который блокирует рецепторы. Когда действие заканчивается — все, что накопилось устремляется к рецепторам.
geektimes.ru/company/ulmart/blog/251050/#commen...

В стальную рамку и на стену!

@настроение: ушел за кофе...

---

On judgement...

Новости из-за бугра:
Суд в Манхэттене приговорил 31-летнего основателя интернет-магазина Silk Road ("Шелковый путь") Росса Ульбрихта, известного как Ужасный Пират Робертс, к пожизненному заключению, сообщает Reuters...
... Ульбрихта признали виновным по всем пунктам обвинения, среди них торговля наркотиками, хакерная деятельность и отмывание денег. Помимо этого, как отмечает AP, создателя Silk Road обвиняли в покушении на жизни пятерых человек, которые угрожали его бизнесу, а также смертях шести человек. Причиной их гибели стала передозировка наркотиками, купленными с помощью интернет-магазина.
Источник - Newsru.com

Имхо, выделенное жирным - это офигеть, какой силы прецедент. Согласно этой логике что компанию Lockheed Martin, что Glock, например, да что там - тысячи их, можно сажать полным списочным составом.

@темы: Этот безумный мир

---

Фотоохота номер следующий...

Специально для малолетних бабуинов - внимание на правый нижний угол диска.

Офигенное здание. Просто потрясающее

оно же с другого ракурса

Сандро всегда рад новым гостям

@настроение: Рабочая суббота...

@темы: TTL, Этот веселый мир

---

Selfie-sticks

Max! Please, don't use it!

@темы: Этот веселый мир

---

Что мы говорим друг другу...

Выхватил взглядом кусок диалога на мобильном телефоне соседа по автобусу. Крепко задумался:
- Ты к собакам заходил?
- Жрал-то я где?

@музыка: Sensorica - Creber Anhelitus

@темы: Этот безумный мир, Этот веселый мир

---

Автоматизация смотрелок.

Смотрелка - Браузер, если по-нашему, по айтишному.
А началось все... с Initial.D:
Hikedaya, 15.05.2015 18:00:37:
Ryuichi Katsumata - Night Kids
блин, я ж не усну, пока не вспомню, какую композицию мне начало этого трека напоминает

Hikedaya, 18:00:45:
а ведь ОЧЕНЬ похоже...

xxx, 18:17:38:
OO

xxx, 18:19:15:
Eye of the tiger.

xxx, 18:32:01:
go.mail.ru/search_site?q=eye%20of%20the%20tiger...

xxx, 18:32:10:
Большой список, нужно будет заняться.

Hikedaya, 18:32:39:
хочешь это все выкачать? )

xxx, 18:32:54:
Всё я не осилю ^^'

Что-то вспомнился мне этот диалог, решил, что надо бы эту задачу расколоть.
Исследуем выдачу от Mail.ru. Все ссылки не прямые, а ведущие на отдельные страницы, уже с которых можно вытащить ссылку на сами файлы. Следовательно, вариант, который я использовал в прошлый раз, отпадает. Придется как-то ходить по ссылкам из выдачи поисковика.
Ключевой момент - как можно в Powershell пойти куда-то в вебе в режиме смотрелки? Правильно, "оседлать" смотрелку!

$ie = new-object -com internetexplorer.application
$source = "http://go.mail.ru/search_site?q=eye%20of%20the%20tiger&p=1&aux=PLA099"
$ie.Navigate($source)

Вот вокруг этого скрипт и будет крутиться. Погнали!

$source = "http://go.mail.ru/search_site?q=eye%20of%20the%20tiger&p=1&aux=PLA099"
$destination = "D:\temp\"
$ie = new-object -com internetexplorer.application
$wget = New-object System.Net.WebClient

$ie.visible=$true
$ie.Navigate($source)
while($ie.busy) {sleep 1}
$elements = @([System.__ComObject].InvokeMember(“getElementsByTagName”,[System.Reflection.BindingFlags]::InvokeMethod, $null, $ie.document, 'A')) | 
    where {$_.href -match "https:\/\/myzuka\.org\/Song\/[0-9]*\/[a-zA-Z0-9 -]*-Eye-Of-The-Tiger"} | 
    select @{n="Link"; e={$_.href}} -Unique

foreach ($element in $elements) {
    $ie.navigate($element.link)
    while($ie.busy) {sleep 1}
    $link = @([System.__ComObject].InvokeMember(“getElementsByTagName”,[System.Reflection.BindingFlags]::InvokeMethod, $null, $ie.document, 'A')) | 
        where {$_.title -match "Скачать [a-zA-Z0-9\ \-\(\)]* Eye Of The Tiger[a-zA-Z0-9\ \-\(\)]*"} | select -first 1
    $filename = $destination+$link.title+".mp3"
    $wget.DownloadFile($link.href,$filename)
}

А теперь по складам.
Первый блок ничем не примечателен, обычное объявление объектов да одной переменной. Во втором уже любопытнее, происходит, собственно "автоматизация смотрелки". Мы скармливаем подопытному браузеру исходную ссылку, заставляем его перейти по ней, вытаскиваем из исходного кода этой страницы все элементы типа "якорь", а затем при помощи хитрой магии регулярного выражения из всех этих якорей получаем ссылки, ведущие на страницы загрузки нужных файлов. Эти ссылки в виде хэш-таблицы передаются в переменную $elements.
Дальнейшее уже является повторением ранее изученного. В цикле та же автоматизация смотрелок плюс "хитрая магия" плюс загрузка файла при помощи wget.

Отдельно стоит сказать по зубодробительной конструкции
@([System.__ComObject].InvokeMember(“getElementsByTagName”,[System.Reflection.BindingFlags]::InvokeMethod, $null, $ie.document, 'A'))
которая все якоря из исходника и выбирает. Вообще есть более изящное $ie.document.GetElementsByTagName('A'), но, как выяснилось, у нее есть большие проблемы с разными версиями IE. В актуальных для Windows 7, это не работает, потому пришлось идти через запасной ход.
C хэш-таблицей тоже все весело. Изначально я вообще не планировал ее использовать, ибо зачем плодить сущности. Хотелось в переменную $elements загнать непосредственно то, что будет отдано парсером GetElementsByTagName. Не тут-то было. Парсер эти данные отдал, но как только дело доходило до третьего блока, который уже загружал отдельные страницы, переменная $elements теряла все значения. Не коллекцию элементов, а именно значения. И, естественно, третий блок валился с ошибкой и многими строками красного текста, ненавистного большинству повершелльщиков. Пришлось отделить мух от котлет, после этого все заработало.

А засада этого скрипта в том, что на его отладку было потрачено больше времени, чем на ручное скачивание всех этих 40+ файлов. Ну и ладно, зато плюс одна любопытная задачка в активе

P.S> Но насколько же неторопливо идет парсинг кода при помощи GetElementsByTagName...

UPD. В топку internetexplorer.application, Invoke-WebRequest же!

$source = "http://go.mail.ru/search_site?q=eye%20of%20the%20tiger&p=1&aux=PLA099"
$destination = "D:\temp\"
$wget = New-object System.Net.WebClient

$elements = (Invoke-WebRequest $source).links | 
    where {$_.href -match "https:\/\/myzuka\.org\/Song\/[0-9]*\/[a-zA-Z0-9 -]*-Eye-Of-The-Tiger"}|
    select @{n="URL"; e={$_.href}} -Unique

$elements | %{
    $filelink = (Invoke-WebRequest $_.URL -UseBasicParsing).links | 
        where {$_.title -match "Скачать [a-zA-Z0-9\ \-\(\)]* Eye Of The Tiger[a-zA-Z0-9\ \-\(\)]*"} | 
        select -first 1
    if ($filelink) {
        $filesource=[string]$filelink.href -replace "&_amp;", "&"
        $wget.DownloadFile("https://myzuka.org$($filesource)","$destination$($filelink.title).mp3")
    }
    else { write-host "No File to download" }
}

Важно! - из &_amp нужно убрать символ подчеркивания, парсер - нехороший человек.

@музыка: The Offspring - Secrets from the Underground

@темы: PowerShell, Scripting

---

Mad Max: Fury Road (2015)

Если в нескольких словах, то

вот

вот:

Точнее передать мои впечатления от этого фильма невозможно.

А если немного подробнее, то так.
Overloaded with trash.
Перегрузка. Просто перегрузка мозга, который в самые острые моменты (погоня в буре, еще погоня после бури, финальное побоище) не выдерживал и давал команду Sleep, уводя в энергосберегающий режим весь организм. Паскудство в том, что как только накал страстей по ходу действия стихал, организм тут же просыпался, свежий и бодрый, как огурец с грядки.
Сказалось сразу несколько факторов - бессонная ночь после ночной смены, непривычная раскадровка в фильме (наверняка все заметили, что движения персонажей немного дерганые, для придания большего эффекта), самая настоящая волна звуковых и визуальных эффектов во время тех самых погонь. A bit too much for me this time. В последний раз мозг у меня перегревался после памятной финальной серии Evangelion (как же давно это было!), но даже тогда эффект был слабее. Меня не вырубало, в отличие от этого киносеанса.
До сегодняшнего дня я думал, что видел много трэша. Много и разного. Я ошибался. Самый натуральный ТРЭШАК поджидал меня как раз сегодня. Это ни в коем случае не отрицательная характеристика, это просто факт.
Анализировать этот фильм с точки зрения реальности происходящего нет совершенно никакого желания. И так понятно, что это невероятных размеров гипербола. Хотя сам по себе сценарий скатывания цивилизации до подобного состояния не так уж невероятен.
В общем и целом, фильм непременно будет пересмотрен еще раз. Не в кино, скорее уже в более спокойной обстановке. Для того, чтобы отловить все пропущенные моменты. Сквозь закрывающиеся веки я видел, что та же погоня во время бури снята просто шикарно, вот только оценить эту красоту просто не было никаких сил.

Ах да, чуть не забыл. Как же без вишенки на торте (пусть и трэшовом)?
Когда-то познакомился я с фильмом Doomsday. Сама по себе кинолента весьма среднего уровня, но одно там запомнилось надолго - это фраза антагониста: "Мы всех догоним! Поймаем! Поджарим! И сожрем!!!" В наших кругах фразочка уже давно стала мемом, той вещью, ради которой стоит посмотреть весь фильм.
В Безумном Максе тоже есть подобная фишка. Да-да, это именно он - моб* с электрогитарой-огнеметом. Во работенка у него - лабать тяжеляк прямо во время погонь, резни, и вообще апокалипсиса

*Под мобами в кино в наших кругах понимаются второстепенные безымянные (чаще всего) персонажи, которые по ходу действия мрут пачками.

@музыка: The Offspring - Secrets from the Underground

@настроение: а вот теперь - СПАТЬ!

@темы: Этот безумный мир, Этот веселый мир