Рабочие заметки

понедельник, 19 сентября 2016 г.

Zabbix external ping script

Windows xp:

Hosts:
8.8.8.8 main

agent script user parameter:
UserParameter=agent.ping.main,for /f "tokens=7 delims=^=^ " %a in ('ping -n 1 MAIN ^| findstr "Reply"') do @echo %a

понедельник, 20 октября 2014 г.

Сертификаты с дополнениями.

Задача:
сгенерировать запрос (p10) на сертификат, положив в него специфичиские опции (alias, email).

Дальше »

среда, 8 января 2014 г.

ftp 'EPSV': command not understood

create file:
~/.netrc
default
macdef init
epsv off

set permisions:
chmod 600 ~/.netrc

среда, 27 ноября 2013 г.

SUSE 11 perl WriteExcel кириллица

установка модулей
Скачиваем с http://search.cpan.org/ модули
OLE-Storage_Lite-0.19
Spreadsheet-WriteExcel-2.40
DBD-Oracle-1.68

Для каждого выполняем от рута
perl Makefile.pl
make
make install

Для записи кириллицы с файла:


#!/usr/bin/perl

use Spreadsheet::WriteExcel;

use Encode 'encode';

use Encode 'decode';

my $workbook  = Spreadsheet::WriteExcel->new('test.xls');

my $worksheet = $workbook->add_worksheet();



#Добавляем шрифт с поддержкой юникода в свойства ячейки

my $uni_font  = $workbook->addformat(font => 'Arial Unicode MS');



my $uniString ="Текст с кирилицей ФЫВА ъЪЇї TeSt";



#переводим с UTF-8 в Latin-1

my $uniString1 = decode('UTF-8',$uniString);



#здесь должно быть уже читаемо. 



$worksheet->write(1, 0, $uniString1, $uni_font );



#переводим с Latin-1 в UTF-16

$uniString2 = encode('UTF-16',$uniString1);



#А вот это будет читаемо вообще везде.

$worksheet->write_utf16be_string(3, 0,  $uniString2, $uni_font );

Теперь для оракла - перекодируем в UTF16:

my $sth = $dbh->prepare("select convert(Column_name,'AL16UTF16') from dual") or die $dbh->errstr;

Ну и пишем используя то же, что и выше:

my $rowcnt =0;
while (@CurrRow = $sth->fetchrow) {
$worksheet->write_utf16be_string($rowcnt, 0, $CurrRow[0], $uni_font );
}

вторник, 18 июня 2013 г.

VBScript log function

Function Log (Msg)
    Dim fso_log, LogFile, LogFilePath
    LogFilePath = "D:\Development\vbs.log" 'Folder should exist
    Set fso_log = CreateObject("Scripting.FileSystemObject")
    Set LogFile = fso_log.OpenTextFile(LogFilePath,8,True) 'OpenTextFile(Filepath,[ ForReading = 1 | ForAppending = 8] , [ Create if not exist = true | false ] )
    LogFile.WriteLine(Msg)
    LogFile.Close
    Set fso_log = nothing
End Function

понедельник, 10 декабря 2012 г.

Debian sources.list

В корне репозитория, которым вы пользуетесь есть файлик sources.list
Вот его и заюзаем.

Дальше »

среда, 14 ноября 2012 г.

Небольшой хак

Если системным шрифтом поставить шрифт без кириллицы - система будет отображать кириллицу и латиницу разными шрифтами.

понедельник, 19 сентября 2016 г.