Removed unused scripts

6 years ago · 61ac506796
6 changed files with 0 additions and 226 deletions
--- a/chat.bat
+++ b/chat.bat
@ -1,8 +0,0 @@
				@@ -1,8 +0,0 @@
-@ECHO OFF
-
-::
-:: Закрытие mIRC на основной машине и запуск на используемой
-::
-
-taskkill /S \\cb-07-04 /FI "imagename eq mirc.exe" && start "" "%SYSTEMDRIVE%\Program Files\mIRC\mirc.exe"
-
--- a/dinner.vbs
+++ b/dinner.vbs
@ -1,78 +0,0 @@
				@@ -1,78 +0,0 @@
-' Создан:  Пт 13 сен 2013 16:04:16 
-' Изменён: Пн 16 сен 2013 09:07:10
-
-' Скрипт отображения меню столовой.
-' (c) 2013, Maxim Lihachev, <envrm@yandex.ru>
-'
-' Использование: cscript //nologo dinner.vbs [today]
-'
-' Меню содержится в doc-файле в таблице формата
-'
-' Понедельник    Четверг
-' -----------    ---------
-' Первое         Первое
-' Второе         Второе
-' Третье1        Третье1
-' Третье2        Третье2
-'
-' Вторник        Пятница
-' -----------    ---------
-' -/-            -/-
-'
-' Среда
-' -----------
-' -/-
-
-' День недели
-today = weekday(date)
-
-' Открытие файла с меню
-file = "\\file-srv\homedir$\" & CreateObject("Wscript.Network").UserName & "\doc\menu.doc"
-Set word = CreateObject("Word.Application")
-Set objectdocument = word.Documents.Open (file)
-word.Visible = False
-
-' Получение меню из таблицы
-menu = objectdocument.Tables(1)
-
-monday    = Split(menu.Rows(1).Cells(1).Range.Text,chr(13))
-tuesday   = Split(menu.Rows(2).Cells(1).Range.Text,chr(13))
-wednesday = Split(menu.Rows(3).Cells(1).Range.Text,chr(13))
-thursday  = Split(menu.Rows(1).Cells(3).Range.Text,chr(13))
-friday    = Split(menu.Rows(2).Cells(3).Range.Text,chr(13))
-
-' Форматированный вывод
-Set objCmdLib = CreateObject("Microsoft.CmdLib")
-Set objCmdLib.ScriptingHost = WScript.Application
-
-' Ширина полей
-arrMaxLength = Array(25, 25, 25, 25, 25)
-
-' Меню на неделю
-If WScript.Arguments.Count < 1 or today > 5 Then
-	arrBlnHide = Array(False, False, False, False, False)
-ElseIf WScript.Arguments.Item(0) = "today" Then
-	' Меню на текущий день
-	arrBlnHide = Array(True, True, True, True, True)
-	arrBlnHide(today - 2) = False
-End If
-
-' Заголовок таблицы с днями недели и датами
-arrHeader = Array(monday(0), tuesday(0), wednesday(0), thursday(0), friday(0))
-
-' Таблица меню
-Dim arrResultsArray(3)
-
-For n=1 To 4
-	arrResultsArray(n-1) = Array(monday(n), tuesday(n), wednesday(n), thursday(n), friday(n))
-Next
-
-' Вывод таблицы данных
-WScript.Echo vbcr
-objCmdLib.ShowResults arrHeader, arrResultsArray, arrMaxLength, "Table", True, arrBlnHide
-WScript.Echo vbcr
-
-' Закрытие файла
-objectdocument.Saved = True
-word.Quit
-
--- a/24
+++ b/24
@ -1,24 +0,0 @@
				@@ -1,24 +0,0 @@
-#!/bin/bash
-
-# Сохранение таблицы соответствия ip-адресов пользователям
-# в локальной Wiki.
-
-# Лог mIRC
-LOG=$(cygpath "$APPDATA\\mIRC\\logs\\status.log")
-# Файл Wiki для сохранения списка
-WIKI="/cygdrive/d/etc/wiki/IP.wiki"
-
-# +---------------+-----+---------+------------------+----+
-# | ПОДРАЗДЕЛЕНИЕ | ФИО | ТЕЛЕФОН | ИМЯ ПОЛЬЗОВАТЕЛЯ | IP |
-# +---------------+-----+---------+------------------+----+
-grep '^\[.*\] userhost: .*$' "$LOG" \
-	| iconv -c -f cp1251 \
-	| cut -d ':' -f 3- \
-	| sort -u \
-	| sed ' s/ \([EMT]\)_\(.*\)_\([0-9]\{4\}\)=+\(.*\)@\(.*\)$/| \1 | \2 | \3 | \4 | \5 |/;
-		s/ \([EMT]\)_\(.*\)=+\(.*\)@\(.*\)$/| \1 | \2 | - | \3 | \4 |/
-
-		s/ \(.*\)_\([0-9]\{4\}\)\**=+\(.*\)@\(.*\)$/| CB | \1 | \2 | \3 | \4 |/;
-		s/ \(.*\)=+\(.*\)@\(.*\)$/| CB | \1 | - | \2 | \3 |/' | \
-	tee "$WIKI"
-
--- a/kyocera.r
+++ b/kyocera.r
@ -1,82 +0,0 @@
				@@ -1,82 +0,0 @@
-REBOL [
-	Title:  "Ó÷¸ò êàðòðèäæåé KYOCERA"
-	Author: Maxim Lihachev
-]
-
-date-current: func [] [
-	date-add0: func [n][
-	    n: to-string n
-	    insert/dup n "0" (2 - length? n)
-	    n 
-	]
-	rejoin [now/year "." date-add0 now/month "." date-add0 now/day]
-]
-
-make-csv: func [] [
-	fileOUT: to-file rejoin ["KYOCERA " date-current ".csv"]
-
-	write/lines fileOUT ["Ó÷¸ò êàðòðèäæåé íà ñêëàäå;;"]
-	write/lines/append fileOUT reduce [
-		";;"
-		(rejoin [";Äàòà:         " date-current ";"])
-		";;"
-		"¹;Ìîäåëü;Êîë-âî"
-		(rejoin ["1;TK-110;"     c_tk110/text])
-		(rejoin ["2;TK-110,112;" c_tk112/text])
-		(rejoin ["3;TK-1100;"    c_tk1100/text])
-		(rejoin ["4;TK-1140;"    c_tk1140/text])
-		(rejoin ["5;TK-3100;"    c_tk3100/text])
-		(rejoin ["6;TK-340;"     c_tk340/text])
-		(rejoin ["7;TK-580C;"    c_tk540C/text])
-		(rejoin ["8;TK-580M;"    c_tk540M/text])
-		(rejoin ["9;TK-580Y;"    c_tk540Y/text])
-		(rejoin ["10;TK-580K;"    c_tk540K/text])
-	]
-	return fileOUT
-]
-
-mail: make object! [
-	subject: "Ó÷¸ò êàðòðèäæåé KYOCERA"
-
-	outlook:    "^"c:\program files\microsoft office\office14\outlook.exe^""
-
-	message: func [mailto subject] [
-		rejoin [" /m ^"" (reduce [mailto "&subject=" subject]) "^""]
-	]
-
-	attach: func [filename] [
-		rejoin [" /a ^"" (to-local-file get-modes filename 'full-path) "^""]
-	]
-
-	send: func [mailto filename] [
-		call reform [mail/outlook (mail/attach filename) (mail/message mailto mail/subject)]
-	]
-]
-
-view layout [ 
-	style mark h4 74x24 left
-	style num h4 20x24 right
-	style entry field 100x24 center
-
-	title "Ó÷¸ò êàðòðèäæåé"
-
-	h5 200 right date-current return
-
-	across 
-	num "1"  mark "TK-110"     c_tk110:  entry return
-	num "2"  mark "TK-110,112" c_tk112:  entry return
-	num "3"  mark "TK-1100"    c_tk1100: entry return
-	num "4"  mark "TK-1140"    c_tk1140: entry return
-	num "5"  mark "TK-3100"    c_tk3100: entry return
-	num "6"  mark "TK-340"     c_tk340:  entry return
-	num "7"  mark "TK-580C"    c_tk540C:  entry return
-	num "8"  mark "TK-580M"    c_tk540M:  entry return
-	num "9"  mark "TK-580Y"    c_tk540Y:  entry return
-	num "10" mark "TK-580K"    c_tk540K:  entry return
-
-	h4 "E-Mail: " mailto: field 159x24 italic 80.250.120 return
-
-	button 175 "Îòïðàâèòü" [mail/send mailto/text make-csv]
-	button 25  "+" [call/show reform ["explorer.exe" (to-local-file pwd)]]
-]
-
--- a/mirc.bat
+++ b/mirc.bat
@ -1,9 +0,0 @@
				@@ -1,9 +0,0 @@
-@ECHO OFF
-
-::
-:: Запуск только одной копии mIRC
-::
-
-tasklist /S \\cb-07-04 /FI "imagename eq mirc.exe" | find /C "mirc.exe" || start "" "%SYSTEMDRIVE%\Program Files\mIRC\mirc.exe"
-
-exit
--- a/25
+++ b/25
@ -1,25 +0,0 @@
				@@ -1,25 +0,0 @@
-#!/bin/bash
-
-#Поиск по пользователям
-
-USERINFO=$(\grep -i -E $(echo "$*" | tr ' ' '_') /d/etc/wiki/IP.wiki)
-
-USERBASE=$(echo $USERINFO | cut -d '|' -f 2)
-USERFULLNAME=$(echo $USERINFO | cut -d '|' -f 3)
-USERPHONE=$(echo $USERINFO | cut -d '|' -f 4)
-USERNAME=$(echo $USERINFO | cut -d '|' -f 5)
-USERIP=$(echo $USERINFO | cut -d '|' -f 6 | sed 's/ //g')
-
-if [[ "$USERBASE" != *CB* ]]; then
-	USERPC=$USERIP
-else
-	USERPC=$(cmd /c "$WINDIR\\system32\\ping.exe" -a $USERIP -n 1 -l 0 \
-		| \grep -i -E -o "\\s.+\\s\\[$USERIP\\]")
-fi
-
-echo "$yellow * Подразделение:   $rstc" $USERBASE
-echo "$yellow * Имя, фамилия:    $rstc" $USERFULLNAME
-echo "$yellow * Рабочий телефон: $rstc" $USERPHONE
-echo "$yellow * Имя пользователя:$rstc" $USERNAME
-echo "$yellow * Адрес компьютера:$rstc" $USERPC
-