Автор: yavasilek

Настраиваем работу SARG в pfsense

Решил я тут на днях поставить SARG для генерации отчетов squid, но после установки столкнулся с проблемой, а именно после генерации отчета на вкладке где должен быть отчет у меня красовалась ошибка:

Error: Could not find report index file.
Check and save sarg settings and try to force sarg schedule.

Покопавшись в интернете я не нашел решения проблемы и решил немного покопаться в самой системе.

У меня стоит pfsense 2.2.1 i386

После генерации отчета он должен появиться по пути /usr/local/sarg-reports но данная папка у меня оказалась пустой. Сгенерированный отчет я нашел по пути /usr/pbi/sarg-i386/local/sarg-reports и теперь осталось немного подправить пути. Для этого сначала удаляем папку по пути /usr/local/sarg-reports а затем генерируем ссылку на нее.

В итоге у нас следующий порядок действий:

rm -r /usr/local/sarg-reports
ln -s /usr/pbi/sarg-i386/local/sarg-reports /usr/local/sarg-reports

Если же у Вас версия 64, то немного измениться путь

rm -r /usr/local/sarg-reports
ln -s /usr/pbi/sarg-amd64/local/sarg-reports /usr/local/sarg-reports

Ошибка 0x8024001e в Windows 10

При очередном обновление Windows 10 столкнулся с ошибкой 0x8024001e

Для решения проблемы необходимо открыть командную строку от имени администратора и выполнить по очереди ряд команд.

net stop wuauserv
move "c:\Windows\SoftwareDistribution" "c:\Windows\SoftwareDistribution.old"
net start wuauserv

После запускаем процесс обновление и радуемся полученному результату.

Если процесс обновления прошел удачно, то можно спокойно удалить папку c:\Windows\SoftwareDistribution.old

net stop wuauserv — останавливает службу центра обновлений

move — переименовывает папку

net start wuauserv — запускает службу центра обновлений

Правильно переносим папку installer в windows 7

Для правильного переноса папки installer необходимо после переноса папки создать символическую ссылку. Для этого достаточно ввести команду

mklink /j c:\windows\installer d:\windows\installer

 

Макрос для удаления пустых строк в Excel

Sub DeleteEmptyRows()
LastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count 'определяем размеры таблицы
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1 'проходим от последней строки до первой
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete 'если в строке пусто - удаляем ее
Next r
End Sub

Оригинал

Как получить скидку на подписку shutterstock

Для получения скидки на подписку shutterstock необходимо при оплате подписки включить автоматическое продление подписки.

Затем идем в профиль и отключаем автоматическое продление и shutterstock на предлагает скидку 5% если мы не отключи автопродление.

Было 249$, а стало 236$