sanych.nnov.ru

Заготовка для поделок на pic16f676 + дисплей nokia 3310 + энкодер

Mon, 23 Apr 2012 08:08:30 GMT

Вот такая заготовка для всяких поделок типа вольтметров, счетчиков, датчиков и т.д. и т.п.
А вот пример кода для вольт-амперметра с программным шимом и опросом энкодера:

@device = pic16F676, intrc_osc_noclkout, wdt_on, mclr_off, protect_off
    osccal = %11111100
    enc1    var porta.5
    enc2    var porta.4
    butt    var porta.3
    
    D_C      var portc.3
    rst      var portc.2            
    SDIN     var portc.4
    SCK      var portc.5
    
    shim    var porta.2
    voltm   con 0         'an0
    ampm    con 1         'an1
    
            define adc_bits 10 
            define adc_clock 3 
            define adc_sampleus 50 
            adval var word 
            trisa=%00111011
            trisc=0
            CMCON = 7 
            ANSEL = %00000011 ' an1, AN0
            adcon0=%10000000 ' правое выравнивание, опорное - питание
            LcdReg          var  byte        
            x               var  byte
            y               var  byte
            t               var  byte
            e               var  byte
            z               var  byte
            Offset          var  byte
            Char            var  byte
            a               var  byte
            tmpshim var byte
            shcount var byte
            portc = 0
            counter var word 
            encstate var byte
            new var byte
            ioca = %00111000
          wpua = %00110100      
          tmr0 = 255
          INTCON = %10101000
          OPTION_REG = %00000000
          counter = 0
          tmpshim = 0
          shcount = 255
          
                on interrupt goto encoder 

                   DATA  @0,$3E,$51,$49,$45,$3E,_       ';// 0
                            $00,$42,$7F,$40,$00,_       ';// 1
                            $42,$61,$51,$49,$46,_       ';// 2
                            $21,$41,$45,$4B,$31,_       ';// 3
                            $18,$14,$12,$7F,$10,_       ';// 4
                            $27,$45,$45,$45,$39,_       ';// 5
                            $3C,$4A,$49,$49,$30,_       ';// 6
                            $01,$71,$09,$05,$03,_       ';// 7
                            $36,$49,$49,$49,$36,_       ';// 8
                            $06,$49,$49,$29,$1E,_       ';// 9
                            $08,$08,$3E,$08,$08,_       ';// +
                            $08,$08,$08,$08,$08,_       ';// -
                            $00,$60,$60,$00,$00,_       ';// .
                            $3F,$40,$40,$40,$3F,_       ';// U
                            $7E,$11,$11,$11,$7E,_       ';// A
                            $00,$41,$7F,$41,$00,_       ';// I
                            $1F,$20,$40,$20,$1F         ';// V
                 
                RST = 1
                            
                LcdReg  =  %00100001          'LCD Extended Commands.
                call    PrintCtrlLcd
                LcdReg  =  228          'Set LCD Vop (Contrast).
                call    PrintCtrlLcd
                LcdReg  =  %00000111          'Set Temp coefficent.
                call    PrintCtrlLcd
                LcdReg  =  %00010011          'LCD bias mode 1:48.
                call    PrintCtrlLcd
                LcdReg  =  %00100000          'LCD Standard Commands, Horizontal addressing mode.
                call    PrintCtrlLcd
                LcdReg  =  %00001100
                call    PrintCtrlLcd
               
                call CursorHome                
                Call ClearLcd
                
Main:           y = 1
                x = 0
                Char = 13                    ' "U"
                call    PrintWChar     
                x = 24
                adcin voltm, adval
                adval = adval*3
                Char = (adval dig 3)    ' десятые
                call    PrintWChar     
                Char = (adval dig 2)    ' единицы
                call    PrintWChar     
                Char = 12               ' точка
                call    PrintWChar     
                Char = (adval dig 1)    ' десятые
                call    PrintWChar     
                Char = (adval dig 0)    ' сотые
                call    PrintWChar     
                x = 0
                y = 3
                Char = 15                    ' "I"
                call    PrintWChar     
                x = 24
                adcin ampm, adval
                adval = adval*3
                Char = (adval dig 3)    ' единицы
                call    PrintWChar     
                Char = 12               ' точка
                call    PrintWChar     
                Char = (adval dig 2)    ' десятые
                call    PrintWChar     
                Char = (adval dig 1)    ' сотые
                call    PrintWChar     
                Char = (adval dig 0)    ' тысячн
                call    PrintWChar     
                y = 5
                x = 0
                Char = (counter dig 4)    ' десятые
                call    PrintChar     
                Char = (counter dig 3)    ' десятые
                call    PrintChar     
                Char = (counter dig 2)    ' точка
                call    PrintChar     
                Char = (counter dig 1)    ' десятые
                call    PrintChar     
                Char = (counter dig 0)    ' сотые
                call    PrintChar
                'PAUSE 500
                Goto main
    disable
encoder:     if intcon.0 = 1 then
                intcon.0 = 0
               new = enc1 + enc2 * 2
                if encstate = 2 then
                    if new = 3 then counter = counter + 1
                    if new = 0 then counter = counter - 1
                endif         
                if encstate = 0 then
                    if new = 2 then counter = counter + 1
                    if new = 1 then counter = counter - 1
                endif         
                if encstate = 1 then
                    if new = 0 then counter = counter + 1
                    if new = 3 then counter = counter - 1
                endif         
                if encstate = 3 then
                    if new = 1 then counter = counter + 1
                    if new = 2 then counter = counter - 1
                endif
                encstate = new
                counter = counter & %0000001111111111
             endif
             if intcon.2 = 1 then
                intcon.2 = 0
                tmr0 = 255
                 shcount = shcount - 1
                if shcount = 0 then tmpshim = counter >> 2
                if tmpshim > 0 then
                 shim = 1
                 tmpshim = tmpshim - 1
                else
                 shim = 0
                endif
            endif         
    resume
    enable
  
               
                	
' Перевод курсора x=0..83 y=0..5	
CursorHome:     x = 0
                y = 0
SetCursor:      LcdReg  = %10000000 + x       ' cursor  X
                call    PrintCtrlLcd
                LcdReg  =  %01000000 + y        ' cursor  Y
                call    PrintCtrlLcd
                return

PrintChar:   offset = Char * 5 
                call SetCursor         
                for a = 1 to 5                
                    read offset, LcdReg
                    call  PrintDataLcd
                    offset = offset + 1
                next a
                x = x + 6
                return

' печать символа удвоенного размера
PrintWChar:   offset = Char * 5          
                for a = 1 to 5                
                    read offset, z
                    t = (z & 1)*3
                    t = t|((z & 2)*6)
                    t = t|((z & 4)*12)
                    t = t|((z & 8)*24)
                    call SetCursor
                    LcdReg = t
                    call  PrintDataLcd
                    LcdReg = t
                    call  PrintDataLcd
                    z = z >> 4
                    t = (z & 1)*3
                    t = t|((z & 2)*6)
                    t = t|((z & 4)*12)
                    t = t|((z & 8)*24)
                    y = y + 1
                    call SetCursor
                    LcdReg = t
                    call  PrintDataLcd
                    LcdReg = t
                    call  PrintDataLcd
                    offset = offset + 1
                    x = x + 2
                    y = y - 1                    
                next a
                x = x + 2
                return

' очистка китайца (708 нулевых байта)
ClearLcd: 
        D_C = 1
        LcdReg = 0
        for t = 0 to 235
            for a = 0 to 2
            call PrintDataLcd
            next a
        next t
        Return         

' отправка данных/команд на lcd
PrintCtrlLcd:   D_C = 0                             
PrintDataLcd:   for e = 1 to 8
                    SDIN = LcdReg.7              
                    LcdReg = LcdReg << 1
                    SCK = 1
                    SCK = 0
                next e               
                D_C = 1
                return
                
end

вольтметр висит на AN0, амперметр на AN1, вывод шима с RA2. частотой програмный шим не блещет, поэтому фильтр я на него вешал из 2 резисторов на 4.7к и 2 емкостей 10 мкФ...

Простой индикатор заряда батареи на PIC

Thu, 15 Mar 2012 19:11:22 GMT

В последнее время для устройств с батарейным питанием все чаще используются LiOn аккумуляторы. Вот и я надергал элементов 18650 из старых батарей от ноутбуков, собрал элементарную зарядку на lm317 (кстати тут на выходных моделировал в протеусе защиту для них во время зарядки - если доделаю выложу). Однако при всех преимуществах литья для долгой службы надо следить за напряжением во время разряда - должно на элементе оставаться не меньше 3 вольт, иначе можно их быстро выбросить...

В железе пока не опробовал, моделирование в протеусе не всегда соответствует железу увы...
Вот архив с моделью, hex-файлом и исходником.
Поясню:
При включении или резете загорается столбик из светодиодов соответствующий половине напряжения на входе ( у меня 2 банки последовательно). Зажигаем на время в секундах в ячейке 3 eeprom. В первых трех хранятся коэффициенты срабатывания светодиодов, соответствующие напряжениям 4, 3.5 и 3 вольта. Соответственно можно эти коэффициенты поменять под свои элементы и/или напряжение питания. adc настроен на 8 бит оцифровки, т.е. 255 = напряжению питания. После того как замер напряжения показан - pic уходит в цикл, 2.3 секунды "спит", потом меряет напругу, если оно стало меньше 3 вольт, начинает моргать красный светодиод.
update:
Собрал в железе, для более простой разводки поменял местами некоторые пины, поправил исходник. Схему не рисовал - по исходнику понятно что куда подключается:

'@device = pic12F675, intrc_osc_noclkout, wdt_on, mclr_on, protect_off
    led_full      var     GPIO.0
    led_half      var     GPIO.1            
    led_low     var     GPIO.2
    led_empty      var     GPIO.5
    trisio=%00010000 ' отключаем GPIO.4
    ANSEL = %00111000 ' внутренний RC генератор, AN3
    adcon0=%00001101 '  опорное - питание, An3, модуль АЦП включен
    
    CMCON = 7 
    define adc_bits 8 
    define adc_clock 3 
    define adc_sampleus 50 
    led_empty = 1
    led_low = 1
    led_half = 1
    led_full = 1
    adval var byte 
    full var byte
    half var byte
    lowb var byte
    show var byte
    
    data @0,204,178,153,3  ' значения для 4, 3.5, 3 вольт (full,half,low) (51 для 1 вольта)
    
    read 0,full
    read 1,half
    read 2,lowb
    read 3,show         ' сколько секунд показывать напряжение
    adcin 3, adval
    if adval < lowb then led_empty = 0
    if adval > lowb then led_low = 0
    if adval > half then led_half = 0
    if adval > full then led_full = 0
    pause 1000*show          ' показывает напряжение на батарее и ждем 3 секунды
    led_empty = 1
    led_low = 1
    led_half = 1
    led_full = 1
main:   nap 7               ' спим 2.3 секунды
        adcin 3, adval
        if adval > lowb then main
avaria: led_empty = 0
        nap 5
        led_empty = 1
        nap 5
        goto avaria
end

Термометр на китайском дисплее от nokia 3310 и pic12f675

Mon, 05 Mar 2012 16:05:34 GMT

Решил тут собрать термометр http://www.ivica-novakovic.from.hr/Nokia%20Lcd%20Termometar.htm а заодно по разбираться с microchip pic. Ну конечно оригинального дисплея от nokia 3310 у меня нет, а с китайским из "Профи" (55 руб - очень демократично) на экране оказался мусор. Решил все переписать, заодно увеличил размер цифр на экране и доточил для работы с 2 датчиками. Единственный минус - не писал опрос шины 1wire, а сунул адреса датчиков в eeprom - адреса 0x60 и 0x70. Также в eeprom находится шрифт.

Ну вобщем по исходникам довольно просто разобраться. Даже осталась свободная память в пике - можно еще что-либо реализовать. Правда свободна только одна нога и та голый вход, без АЦП...

В показаниях выносного датчика минус - т.к. я его воздухом из балона заморозил :)

Исходник:

'****************************************************************
'*  Name    : Nokia LCD Termometar                              *
'*  Author  : Sanych feet Novakovic Ivica                                   *
'*  Notice  : Copyright (c) 2004 [Elektronika Kifo]             *
'*          : All Rights Reserved                               *
'*  Date    : 6.03.2012                                         *
'*  Version : 2.0                                               *
'*  Notes   : Pic12F675 , Nokia3310 Lcd & DS18B20               *
'*  e-mail  : ivica.novakovic@vz.t-com.hr                       *
'*  url     : http://free-vz.t-com.hr/Ivica-Novakovic/          *
'****************************************************************
'@device = pic12F675, intrc_osc_noclkout, wdt_on, mclr_off, protect_off
            'Define	NO_CLRWDT 1
                                                  
            D_C      var     GPIO.0
            rst      var     GPIO.1            
            DQ       var     GPIO.2
            SDIN     var     GPIO.4
            SCK      var     GPIO.5
            
            temperature     Var	 Word			
            TempHigh        var  temperature.highbyte
            count_remain    Var  Byte			
            count_per_c     Var	 Byte			
            TempH           var  byte
            Stat    VAR BIT
            TempL           var  byte
            Bitovi          var  byte
            Predznak        var  Bitovi.0
            Minus           var  Byte
            LcdReg          var  byte        
            x               var  byte
            y               var  byte
            t               var  byte
            e               var  byte
            z               var  byte
            Offset          var  byte
            Char            var  byte
            a               var  byte
            addr            var  byte[8]        
'-------------------------------------------------------------------------------            
                CMCON = 7
                ANSEL=0				    'digital IO " samo za 12F675 "
                TrisIO = 0
                GPIO = 0
'-------------------------------------------------------------------------------            
                
                   DATA  @0,$3E,$51,$49,$45,$3E,_       ';// 0
                            $00,$42,$7F,$40,$00,_       ';// 1
                            $42,$61,$51,$49,$46,_       ';// 2
                            $21,$41,$45,$4B,$31,_       ';// 3
                            $18,$14,$12,$7F,$10,_       ';// 4
                            $27,$45,$45,$45,$39,_       ';// 5
                            $3C,$4A,$49,$49,$30,_       ';// 6
                            $01,$71,$09,$05,$03,_       ';// 7
                            $36,$49,$49,$49,$36,_       ';// 8
                            $06,$49,$49,$29,$1E,_       ';// 9
                            $08,$08,$3E,$08,$08,_       ';// +
                            $08,$08,$08,$08,$08,_       ';// -
                            $00,$60,$60,$00,$00         ';// .
                 data @$60,$28,$21,$DD,$01,$03,$00,$00,$46   ' адрес первого датчика
                 DATA @$70,$28,$18,$00,$02,$03,$00,$00,$07   ' адрес второго датчика
                 
                RST = 1
                            
                LcdReg  =  %00100001          'LCD Extended Commands.
                call    PrintCtrlLcd
                LcdReg  =  200          'Set LCD Vop (Contrast).
                call    PrintCtrlLcd
                LcdReg  =  %00000111          'Set Temp coefficent.
                call    PrintCtrlLcd
                LcdReg  =  %00010011          'LCD bias mode 1:48.
                call    PrintCtrlLcd
                LcdReg  =  %00100000          'LCD Standard Commands, Horizontal addressing mode.
                call    PrintCtrlLcd
                LcdReg  =  %00001100
                call    PrintCtrlLcd
               
                call CursorHome                
                Call ClearLcd
 
Main:                
                Offset = $60     ' первый датчик
                y = 1
                call read_ds18b20
                Offset = $70     ' второй датчик
                y = 4
                call read_ds18b20
                nap 7
                Goto main

' читаем из датчика
read_ds18b20:
                for e = 1 to 8
                    read Offset,addr[e]
                    Offset = Offset + 1
                Next e
                OWOut DQ, 1, [$55,addr[1],addr[2],addr[3],addr[4],addr[5],addr[6],addr[7],addr[8],$44]
W1:             OWIN DQ, 4, [Stat]       ' Проверяем занятость датчика
                clearwdt
                IF Stat = 0 THEN W1
                OWOut DQ, 1, [$55,addr[1],addr[2],addr[3],addr[4],addr[5],addr[6],addr[7],addr[8],$BE]
                OWIn DQ, 2, [temperature.LOWBYTE, temperature.HIGHBYTE]
                Predznak = 0
                if  TempHigh.7 = 1 then  temperature  =  (~ temperature) + 1 : Predznak = 1 
                TempH = temperature >> 4
                Templ = temperature.lowbyte & $0f
                Temperature = templ * 625
                
                if TempH > 99 then             ' если больше 100 градусов вместо "+" "1"
                        Char = 1                
                else    
                        Char = 10                       ' + plus
                        if Predznak = 1 then Char = 11  ' - minus
                endif
                x = 12
                call    PrintChar
                Char = (temph dig 1)            ' десятки
                call    PrintChar
                Char = (temph dig 0)            ' единицы
                call    PrintChar
                Char = 12                       ' точка
                call    PrintChar
                Char = (temperature dig 3)      ' десятичная часть
                Call    PrintChar
                return                
                	
' Перевод курсора x=0..83 y=0..5	
CursorHome:     x = 0
                y = 0
SetCursor:      LcdReg  = %10000000 + x       ' cursor  X
                call    PrintCtrlLcd
                LcdReg  =  %01000000 + y        ' cursor  Y
                call    PrintCtrlLcd
                return

' печать символа удвоенного размера
PrintChar:   offset = Char * 5          
                z = 0
                for a = 1 to 5                
                    read offset, z
                    t = (z & 1)*3
                    t = t|((z & 2)*6)
                    t = t|((z & 4)*12)
                    t = t|((z & 8)*24)
                    call SetCursor
                    LcdReg = t
                    call  PrintDataLcd
                    LcdReg = t
                    call  PrintDataLcd
                    z = z >> 4
                    t = (z & 1)*3
                    t = t|((z & 2)*6)
                    t = t|((z & 4)*12)
                    t = t|((z & 8)*24)
                    y = y + 1
                    call SetCursor
                    LcdReg = t
                    call  PrintDataLcd
                    LcdReg = t
                    call  PrintDataLcd
                    offset = offset + 1
                    x = x + 2
                    y = y - 1                    
                next a
                x = x + 2
                return

' очистка китайца (708 нулевых байта)
ClearLcd: 
        D_C = 1
        LcdReg = 0
        for t = 0 to 235
            for a = 0 to 2
            call PrintDataLcd
            next a
        next t
        Return         

' отправка данных/команд на lcd
PrintCtrlLcd:   D_C = 0                             
PrintDataLcd:   for e = 1 to 8
                    SDIN = LcdReg.7              
                    LcdReg = LcdReg << 1
                    SCK = 1
                    SCK = 0
                next e               
                D_C = 1
                return
               
                
                end

компиляция St-link под linux

Fri, 17 Feb 2012 17:11:51 GMT

Небольшой лог для компиляции st-link под линукс.

git clone https://github.com/texane/stlink stlink.git
aptitude install libusb-1.0-0-dev pkg-config gcс make
cd stlink.git
make
cp 49-stlinkv1.rules /etc/udev/rules.d/ # Для stm32vl-discovery, для stm32l-discovery 49-stlinkv2.rules
service udev restart

После подсоединения платы должен появиться /dev/sgN. В папке stlink.git/flash лежит после компиляции st-flash:

./st-flash erase /dev/sg1 # для стирания флэшки на борде
./st-flash write /dev/sg1 keil_project.bin 0x08000000 # для прошивки откомпилированного проекта

Есть еще возможность отладки через gdb - мне пока не нужная.

Время и программы в windows

Wed, 08 Feb 2012 12:29:28 GMT

Может кому полезно будет. Второй раз натыкаюсь на ситуацию некорректной работы некоторых программ в windows. В первый раз падала программа DVR записи с камер наблюдения. Падала с невнятной ошибкой - дата была на несколько лет в прошлом.
Сегодня у нас один товарищ полдня переставлял браузеры всех марок - не сохранялись куки ни в одном. Оказалось что он живет уже в июле вместо февраля :)

Бутерброды

Thu, 05 Jan 2012 17:09:46 GMT

Буду складывать сюда рецепты бутеров, которые сам сочинил, а также неординарные.

Армейский: Белый хлеб, масло, желток вареного яйца, соль. Употреблять утром с кофе или крепким чаем - хорошо бодрит.
Серый хлеб, несоленый зрелый сыр ("Король Артур"), красный болгарский перец, соль, черный молотый перец. Свежий аромат, черный перец подчеркивает вкус сыра.

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

Настройки grub2 для флэшки

Thu, 29 Sep 2011 19:09:13 GMT

Здесь кусок конфига grub2 на флэшке, касающейся загрузки лайфсиди с убунтой и с AntiWinLocker

menuentry "Lubuntu my persistent mode" {
   loopback loop /lubuntu.iso
   linux (loop)/casper/vmlinuz boot=casper persistent iso-scan/filename=/lubuntu.iso locale=ru_RU.UTF-8 console-setup/layoutcode=ru noprompt splash --
   initrd (loop)/casper/initrd.gz
}

menuentry "AntiWinLocker" {
   ntldr /bootmgr
}

опции:
loopback loop /lubuntu.iso - монтирует образ в "виртуальный" привод
(loop)/casper/vmlinuz - ядро
boot=casper - режим "живого" диска
persistent - в корне диска расположен файл casper-rw, подготовленный так:

dd if=/dev/zero of=/media/Transcend/casper-rw bs=1M count=256
mkfs.ext3 /media/Transcend/casper-rw

в нем сохраняются измененные файлы во время работы в livecd
iso-scan/filename=/lubuntu.iso - где лежит образ
locale=ru_RU.UTF-8 console-setup/layoutcode=ru - локаль, русский в консоли
ntldr /bootmgr - опция для загрузки AWL, сам образ распаковывается в корень флешки

скрипт server-install

Fri, 09 Sep 2011 06:02:19 GMT

#! /bin/bash
# create server
version="v0.7.5"
dirt=`dirname $0`
# colors
green="\033[01;32m"
black="\033[00m"
redy="\033[01;31m"

# question вопрос (переменная знач_по_умолчанию)
question() {
    echo -en "$1 [$3] " ; read var
    if [ "t$var" = "t" ] ; then
        eval $2=$3
    else
        eval $2=$var
    fi
}

# somethingh wrong (message)
error() {
    echo -e "$1"
    clean
    exit 1
}

# read parameters
read_params() {
    if [ -f $dirt/server-install.conf ] ; then
        . $dirt/server-install.conf
    else
        if [ -f /root/server-install.conf ] ; then
                . /root/server-install.conf
        else
        error "${redy}Нет конфига!!!${black}"
        fi
    fi
    if [ -f /root/server-install.conf ] ; then
        . /root/server-install.conf
    fi
}

# usage
usage() {
echo -ne "Этот скрипт $version устанавливает серверную версию линукса на жесткий диск компьютера.
${green}Первый интерфейс смотрит в интернет, второй в локалку.${black}
На обоих интерфейсах ${green}статика${black}.
Состав ПО: dnsmasq, squid, sarg, shorewall, apache2, netams, logwatch, postfix${black}
конфиг смотрится сначала ${dirt}/server-install.conf затем /root/server-install.conf\n
Опции: `basename $0` [ install | grub | fstab | network | admin ]\n\n"
}

# check limitations of disk
limita() {
if [ "d$disk" = "d" ] ; then
    echo -e "${redy}НЕТ ДИСКА!!!${black}"
    exit 1

fi
size=`fdisk -l /dev/${disk}|grep /dev/${disk}:|awk '{print $5}'`
# in Mb
size=$[$size/1000/1000]
if [ $size -lt $mindiskspace ] ; then
    echo -e "${redy}Мало места на диске!!!${black}"
    exit 1
fi
}

# count swap & home
count_sizes() {
if [ $size -lt $disksizehome ] ; then
    home=0
    swap=$[$size/10]
    if [ $swap -lt $minswap ] ; then
        # min swap
        swap=$minswap
    fi
    root=$[$size-$swap]
else
    swap=$maxswap
    root=$maxroot
    home=$[$size-$root-$swap]
fi
}

# remove partitions
rm_parts(){
for i in `parted /dev/$disk print|awk '{print $1}'|egrep '[[:digit:]]'` ; do
    swapoff /dev/${disk}$i > /dev/null 2>&1
    sleep 3
    umount -l -f /dev/${disk}$i > /dev/null 2>&1
    sleep 3
    parted -s /dev/$disk rm $i || error "${redy}Не смогла я почистить диск :(${black}"
done
}

mk_parts() {
echo -e "${green}Создаем разделы...${black}"
parted -s /dev/$disk mklabel msdos
parted -s /dev/$disk mkpart primary 0.0 ${root}.0 || error "${redy}Не смогла я создать партицию 1 на диске :(${black}"
parted -s /dev/$disk set 1 boot on
parted -s /dev/$disk mkpartfs primary linux-swap ${root}.1 $[$root+$swap].0 || error "${redy}Не смогла я создать партицию 2 на диске :(${black}"
sleep 3
mkfs.ext3 /dev/${disk}1 >/dev/null 2>&1 || error "${redy}Не смогла я отформатировать партицию 1 на диске :(${black}"
if [ $home -gt 0 ] ; then
    parted -s /dev/$disk mkpart primary $[$root+$swap].1 $[$root+$swap+$home].0 || error "${redy}Не смогла я создать партицию 3 на диске :(${black}"
    sleep 3
    mkfs.ext3 /dev/${disk}3 >/dev/null 2>&1 || error "${redy}Не смогла я отформатировать партицию 3 на диске :(${black}"
fi
parted -s /dev/$disk print
}

# unpack
unpack_sys() {
echo -e "${green}Распаковываем систему на диск...${black}"

cd /mnt$$
if [ -f $dirt/server.tar.gz ] ; then
    tar xfz $dirt/server.tar.gz || error "${redy}Не смогла я распаковать систему :(${black}"
else
    error "${redy}Нет файла $dirt/server.tar.gz!!!${black}"
fi
}

# unpack configs
unpack_configs() {
cd /mnt$$
if [ -f $dirt/server_configs.tar.gz ] ; then
    tar xfz $dirt/server_configs.tar.gz || error "${redy}Не смогла я распаковать конфиги :(${black}"
else
    error "${redy}Нет файла $dirt/server_configs.tar.gz!!!${black}"
fi
}

# mount home
mount_home() {
if egrep "${disk}3\>" /proc/partitions > /dev/null ; then
    mount /dev/${disk}3 /mnt$$/home || error "${redy}Не смогла я смонтировать home :(${black}"
    mkdir /mnt$$/home/ftp
    mkdir /mnt$$/home/netams
    chown root:nogroup /mnt$$/home/ftp
fi
}

# mount root
mount_root() {
mkdir /mnt$$
mount /dev/${disk}1 /mnt$$ || error "${redy}Не смогла я смонтировать root :(${black}"
}

mount_dev() {
sleep 1
mount --bind /dev/ /mnt$$/dev
sleep 1
chroot /mnt$$ mount -t proc none /proc
}

# fstab
mk_fstab() {
cat > /mnt$$/etc/fstab <<EOF1
#                
proc            /proc           proc    defaults        0       0
# /dev/sda1
`blkid -sUUID /dev/${disk}1|awk '{print $2}'|sed "s#\"##g"`     /       ext3    defaults,noatime,nodiratime,errors=remount-ro   0       0
# /dev/sda2
`blkid -sUUID /dev/${disk}2|awk '{print $2}'|sed "s#\"##g"`     none    swap    defaults        0       0
#/dev/scd0       /media/cdrom0   udf,iso9660 user,noauto,exec 0       0
# /dev/sda3
EOF1
if egrep "${disk}3\>" /proc/partitions > /dev/null ; then
    homeid=`blkid -sUUID /dev/${disk}3|awk '{print $2}'|sed "s#\"##g"`
    echo "$homeid       /home       ext3    defaults,noatime,nodiratime,errors=remount-ro   0       0" >> /mnt$$/etc/fstab
fi

}

# grub
mk_grub() {
grub-install --recheck --no-floppy --root-directory=/mnt$$ /dev/$disk >/dev/null 2>&1 || error "${redy}Не смогла я по поставить grub :(${black}"
chroot /mnt$$ update-grub -y >/dev/null 2>&1 || error "${redy}Не смогла я по поставить grub/menu.lst :(${black}"
sed -i "s|#color|color|" /mnt$$/boot/grub/menu.lst
sed -i "s|quiet splash|nosplash locale=ru_RU vga=0x303|g" /mnt$$/boot/grub/menu.lst
}

# network
mk_netw() {
question "${green}Имя сервера?${black}" hostn $def_name
echo $hostn > /mnt$$/etc/hostname
echo "127.0.0.1 localhost" > /mnt$$/etc/hosts
echo "127.0.1.1 $hostn" >> /mnt$$/etc/hosts

question "${green}Домен?${black}" domen $hostn
echo $domen > /mnt$$/etc/mailname

question "${green}Внешний интерфейс?${black}" net_iface $def_net_iface
question "${green}Внутрений интерфейс?${black}" lan_iface $def_lan_iface

question "${green}Внешний ip-адрес на $net_iface?${black}" ip_netm $def_net
ip_gw=`ipcalc $ip_netm|grep HostMin:|awk '{print $2}'`

question "${green}Шлюз?${black}" ip_gw1 $ip_gw

question "${green}Внутренний ip-адрес на $lan_iface?${black}" ip_locm $def_lan

ip_net=`ipcalc $ip_netm|grep Address:|awk '{print $2}'`
net_mask=`ipcalc $ip_netm|grep Netmask:|awk '{print $2}'`
ip_loc=`ipcalc $ip_locm|grep Address:|awk '{print $2}'`
loc_mask=`ipcalc $ip_locm|grep Netmask:|awk '{print $2}'`
loc_net=`ipcalc $ip_locm|grep Network:|awk '{print $2}'`

cat > /mnt$$/etc/network/interfaces <<EOF3
auto lo
iface lo inet loopback

auto $net_iface
iface $net_iface inet static
address $ip_net
netmask $net_mask
gateway $ip_gw1

auto $lan_iface
iface $lan_iface inet static
address $ip_loc
netmask $loc_mask
EOF3

cat > /mnt$$/etc/dnsmasq.conf <<EOFDNMAQ
interface=$lan_iface
expand-hosts
domain=$domen
dhcp-range=`ipcalc $ip_locm|grep Address:|awk '{print $2}'|cut -f1-3 -d.`.110,`ipcalc $ip_locm|grep HostMax:|awk '{print $2}'`,$loc_mask,12h

dhcp-leasefile=/var/lib/misc/dnsmasq.leases
conf-file=/etc/dnsmasq.hosts
EOFDNMAQ

echo "nameserver 127.0.0.1" > /mnt$$/etc/resolv.conf
question "${green}ip-адрес 1 DNS-servera?${black}" dns1 $def_dns1
echo "nameserver $dns1" >> /mnt$$/etc/resolv.conf
question "${green}ip-адрес 2 DNS-servera?${black}" dns2 $def_dns2
echo "nameserver $dns2" >> /mnt$$/etc/resolv.conf
}

# add admin
mk_admin() {
question "${green}Имя администратора системы?${black}" user $def_admin
chroot /mnt$$ useradd -g admin -m -k /etc/skel -s /bin/bash $user
printf "${green}Введите пароль администратора системы ${black}\n"
chroot /mnt$$ passwd $user
}

ch_configs() {
# squid
sed -i "s#REPLACEHOT#$ip_loc#" /mnt$$/etc/squid/squid.conf
sed -i "s#REPLACENET#$loc_net#" /mnt$$/etc/squid/squid.conf

# netams
sed -i "s#REPLACEHOST#$ip_loc#" /mnt$$/etc/netams/netams.cfg
sed -i "s#REPLACELAN#$loc_net#" /mnt$$/etc/netams/netams.cfg
sed -i "s#REPLACEIFACE#$lan_iface#" /mnt$$/etc/netams/netams.cfg
sed -i "s#REPLACELNET#`echo $loc_net|cut -f1 -d/`#" /mnt$$/etc/netams/netams.cfg
sed -i "s#REPLACEMASK#$loc_mask#" /mnt$$/etc/netams/netams.cfg

#shorewall
sed -i "s#REPLACEHOST#$ip_loc#" /mnt$$/etc/shorewall/rules
sed -i "s#REPLACEIFACEINET#$net_iface#" /mnt$$/etc/shorewall/*
sed -i "s#REPLACEIFACELAN#$lan_iface#" /mnt$$/etc/shorewall/*

#screen
sed -i "s#SERVER#$hostn#" /mnt$$/etc/skel/.screenrc

#postfix
sed -i "s#DOMAIN#$domen#" /mnt$$/etc/postfix/main.cf
sed -i "s#LAN#$loc_net#" /mnt$$/etc/postfix/main.cf
}

#umount & clear
clean() {
umount -l -f /mnt$$/dev 2>/dev/null
sleep 3
chroot /mnt$$ umount -l -f /proc 2>/dev/null
sleep 3
umount -l -f /mnt$$
sleep 3
rm -r /mnt$$
}

################################################################################
# begin

################################################################################
if [ $UID -ne 0 ] ; then
    echo 'run this script whith SUDO' ; exit 1
fi

case $1 in
    install)
        read_params
        sfdisk -s
        question "${green}На какой диск будем устанавливать?${black}" dsk $def_disk
        disk=`cat /proc/partitions|egrep "${dsk}\>"|awk '{print $4}'`
        limita
        question "${redy}Диск $disk будет отформатирован!!! Продолжить? (NO/yes)${black} " answ NO
        if [ $answ != "yes" ] ; then
            echo "Выход"
            exit 0
        fi
        count_sizes
        rm_parts
        mk_parts
        mount_root
        unpack_sys
        mount_home
        mount_dev
        mk_fstab
        mk_grub
        mk_netw
        mk_admin
        ch_configs
        clean
        ;;
    grub)
        echo -e "${green}Обновляем grub...${black}"
        read_params
        question "${green}Какой диск?${black}" disk $def_disk
        mount_root
        mount_dev
        mk_grub
        clean
        ;;
    fstab)
        echo -e "${green}Обновляем /etc/fstab...${black}"
        read_params
        question "${green}Какой диск?${black}" disk $def_disk
        mount_root
        mk_fstab
        clean
        ;;
    network)
        echo -e "${green}Обновляем сетевые настройки...${black}"
        read_params
        question "${green}Какой диск?${black}" disk $def_disk
        mount_root
        mk_netw
        unpack_configs
        ch_configs
        clean

        ;;
    admin)
        echo -e "${green}Добавляем админа...${black}"
        read_params
        question "${green}Какой диск?${black}" disk $def_disk
        mount_root
        mount_home
        mk_admin
        clean
        ;;
    *)
        usage
        ;;
esac

скрипты для копирования музыки на mp3 плеер

Wed, 17 Aug 2011 18:40:25 GMT

Я не очень люблю слушать музыку альбомами песню за песней - утомляем быстро и надоедает. А тут приобрел плеер самый простой из-за вечной экономии - Digma Mp600, а он не умеет shuffle. Да и в машину FM-трансмиттер купил с той-же проблемой (правда надо сказать что там можно с пульта случайную композицию включать, но это же не безопасно на дороге - особенно если ездишь один). Вот и написал в свободные полчаса пару скриптов:

Это для создания и обновления базы с музыкой updatemuzbase.tcl:

#! /usr/bin/tclsh
# откуда по умолчанию берем музыку
set from /mnt/dva/music
# где у нас база музыки
set dbase ~/muzic.db
# вынужденная глобальная переменная для рекурсивного glob
set ::dirs ""
############# рекурсивный glob для создания списка директорий   ###############
proc globdir {{name .}} {
    lappend ::dirs $name
    foreach subdir [glob -nocomplain -directory $name -type d *] {
       globdir $subdir
    }
}
# если есть аргументы, берем музыку оттуда
if {$argc > 0} {set from $argv}
package require sqlite3
sqlite3 db $dbase
# если таблица не существует, создаем id-номер, name-имя файла, use-копировался уже на флэшку или нет
if ![db exists "select name from sqlite_master where type='table' and tbl_name='muz';"] {
    db eval "CREATE TABLE muz (id integer primary key, name text, use integer);"
}
# мой костыль для подмонтирования NAS с музыкой
exec sudo mount -t cifs //192.168.0.2/public /mnt -o users,iocharset=utf8,username=guest,password=

puts "Стираем ссылки на несуществующие файлы......"
db eval "select * from muz;" {
    if ![file exists $name] {
        puts $name
        db eval "delete from muz where id='$id';"
    }
}

puts "Заносим в базу новые файлы......."
globdir $from
foreach d $::dirs {
    foreach f [glob -nocomplain -directory $d -type f *.{mp,MP,Mp}3] {
        regsub -all {'} $f {''} f
#'
        if ![db exists "select id from muz where name='$f';"] {
            puts $f
            db eval "insert into muz values (NULL, '$f' ,0);"
        }
    }
}

# отмонтируем NAS
exec sudo umount /mnt

А это для копирования на флэшку в случайном порядке randommuz.tcl:

#! /usr/bin/tclsh
# база с музыкой
set dbase ~/muzic.db
# куда копируем по умолчанию 
set path /media/Transcend
# меняем путь при наличии аргументов
if {$argc > 0} {set path $argv}
puts $path

# мой костыль для NAS
exec sudo mount -t cifs //192.168.0.2/public /mnt -o users,iocharset=utf8,username=guest,password=
package require sqlite3
sqlite3 db $dbase
# начальный номер композиции, они берутся в случайном порядке для тупых китайских плейеров не умеющих shuffle
set num 1000
# для того чтоб выходило когда кончится место на флэшке
catch {
  while {1} {
    db eval "select id,name from muz where use='0' order by random() limit 1;" {
        file copy $name ${path}/${num}.mp3  
        puts "$num      $name"
# помечаем что копировали для того чтоб избегнуть повторов
        db eval "update muz set use='1' where id='$id';"
        incr num
    }
  }
}
# отмонтируем NAS
exec sudo umount /mnt

Таймауты чтения-записи с жесткого диска

Thu, 11 Aug 2011 16:44:30 GMT

From http://habrahabr.ru/blogs/hardware/92701
Посмотреть, поддерживает ли жёсткий диск управление ошибками можно с помощью команды

smartctl -a /dev/sda

строчка SCT capabilities:

SCT capabilities:  (0x303f) SCT Status supported.
			SCT Error Recovery Control supported.  *****
			SCT Feature Control supported.

Если строчки нет — диск их (команды) не поддерживает.

Чтобы посмотреть таймауты используем команду smartctl -l scterc /dev/sda. Вывод выглядит так:

# smartctl -l scterc /dev/sda

SCT Error Recovery Control:
           Read:     70 (7.0 seconds)
          Write:     70 (7.0 seconds)

Для установки, соответственно, указываем значения через запятую после scterc:

smartctl -l scterc,120,60 /dev/sde

(величина указывается в десятых долях секунды, то есть 120 соотвествует 12 секундам, первое число — чтение, второе — запись). 0 означает «до победного конца», то есть неограниченно долго.