User:Osoom: Difference between revisions

From ICO wiki
Jump to navigationJump to search
Osoom (talk | contribs)
Osoom (talk | contribs)
Line 104: Line 104:


Skript, mis otsib etteantud asukohast ülesse nelja tüüpi helifailid (flac, mp3, WAV, wmv), mis on suuremad kui 1 MB, ning teeb nendest listi. Edasi tehakse list tekstifaili, mis saab nimeks "Kuupäev.txt". Ning siis saadetakse fail emailiga sinna, kuhu ta vaja on saata.
Skript, mis otsib etteantud asukohast ülesse nelja tüüpi helifailid (flac, mp3, WAV, wmv), mis on suuremad kui 1 MB, ning teeb nendest listi. Edasi tehakse list tekstifaili, mis saab nimeks "Kuupäev.txt". Ning siis saadetakse fail emailiga sinna, kuhu ta vaja on saata.
<source lang="powershell">
<source lang="powershell">
#Sisestame vajaliku informatsiooni
$a = Read-Host "Vali kaust"
$a = Read-Host "Vali kaust"
Write-Host "Sinu valitud kaustaks on $a"
Write-Host "Sinu valitud kaustaks on $a"
$DATE=Get-Date -format d  
$DATE=Get-Date -format d  
Write-Host 'Siin on sinu kaustade sisu'
Write-Host 'Siin on sinu kaustade sisu'
#Saame katte vajalikud jubinad.
#Otsime üles vastavad failid.  
$P = Get-ChildItem -Include *.WAV,*.flac,*.mp3,*.wmv -Recurse $a
$P = Get-ChildItem -Include *.WAV,*.flac,*.mp3,*.wmv -Recurse $a
$format = @{Expression={[int]($_.Length)/1000000}; Label="Suurus(MB)";}  
$format = @{Expression={[int]($_.Length)/1000000}; Label="Suurus(MB)";}  
$name = @{Expression={$_.Name}; Label="Helifaili nimi"}
$name = @{Expression={$_.Name}; Label="Helifaili nimi"}
$Files= $P | Sort-Object Name | where {$_.Length -ge 1MB} | Format-Table $name, $format  
$Files= $P | Sort-Object Name | where {$_.Length -ge 1MB} | Format-Table $name, $format  
#Väljastab listi failidest
echo $Files
echo $Files
#Saadab listi faili
$ToFile= $Files | Out-File $a/$DATE.txt -Width 45  
$ToFile= $Files | Out-File $a/$DATE.txt -Width 45  


#Saadame meili koos koostatud listifailiga.
$MessageParameters = @{
$MessageParameters = @{
From = "from@mail.com"  
From = "from@mail.com"  

Revision as of 22:22, 21 November 2011

Siinkohal tuleb mainida, et siin skripti juures on kasutatud pisikest koodijuppi Ivar Krustoki skriptist, mis kontrollib, kas pakk on paigaldatud, või ei.
Link skripti juurde
Questi skript nr. 35

 #!bin/bash 
 #Autor Oliver Soom 
 #Versioon 0.1 
 # Skript,  mis paneb ubuntu serveri kasutajale e-posti saatma, kui tuleb uusi uuendusi.  
 # Pausi funktsioon
 function pause(){
  read -p "$*" 
 }
 #Kontrollib kas kasutajal on juurkasutaja õigused
 if [ $UID -ne 0 ]; then
  echo "Käivita antud skripti $(basename $0) juurkasutaja õigustes"
  exit 1
 fi
 #Kontrollib kas apticron on paigaldatud
 TARK=`/usr/bin/apt-cache policy apticron | grep Installed | awk '{print $2}'`
 if [ "$TARK" == "(none)" ]; then 
 echo "Apticron pole paigaldatud"
 echo "Soovid seda paigaldada: Jah(y) Ei(n) " 
 read RESPONSE 
 if [ $RESPONSE == 'y'  ]; then 
 sudo apt-get install apticron 
 echo 'Apticron on paigaldatud '
 pause 'Jätkamiseks vajuta ENTERIT....'
 elif [ $RESPONSE == 'n' ]; then 
 echo 'Kui pole vaja, siis pole vaja'
 echo 'Väljun'
 exit 0  
 #Viskab välja, kui ei taha programmi paigaldada
 fi
 fi
 #Paketi kontrolli lõpp
 #Sisesta  informatsiooni email
 echo 'Siseta emaili aadress, kuhu tahad saada infot uuenduste kohta'  
 read MAIL
 #Muudab ära conf failis emaili aadressi 
 sed -i -e 's/EMAIL=.*/EMAIL="'$MAIL'"/' /etc/apticron/apticron.conf  
 echo 'Email on muudetud'
 echo 'Oli tore näha, nägemist'
 exit 1

Bashi arvestus

Valmistada skript, mis kopeerib failid/kaustad üle ssh kusagilt kuhugi, ning peale md5sum cheki kustutab ära kopeeritud asjad kusagilt.

#!/bin/bash 
#Autor: Oliver Soom 
#Versioon 0.1 aka project Spiderman 
#Versioom * aka project Dr. Octavious  
#Ole valmis parooli kirjutama 
#Skripti idee on ssh abil genereerida md5sum, siis scp abil kopeerida failid üle, ning kui kõik on korras, tuleb ssh abil üle kopeeritud failidega kas
#st ära kustutada.    
#Mail: osoom äti märk itcollege.ee
#Kontrollib, kas on olemas rooti õigused; 

if [ $UID -ne 0 ]; then 
   echo 'Sa ei ole seda skripti käivitanud root õigustes'   
   exit 1
fi

#Kui õigused on olemas, siis uuritakse, kas on olemas openssh pakett 
SSH=`/usr/bin/apt-cache policy openssh-client | grep Installed | awk '{print $2}'`

echo 'Kontrollime, kas vajalikud pakid on olemas.'

if [ $SSH == '(none)' ]; then 
    apt-get install openssh-client -y 
else 
    echo 'Antud pakk on olemas'    
fi
#Kasutaja sisestab koha remote arvutis, kust ta tahab failid kopeerida.
echo 'Sisesta directory/kaust, mille sisu tahad alla tõmmata'
read DIR 
#Kasutaja sisestab remote hosti parameetrid 
echo 'Sisesta hosti nimi'
read HOSTN
echo 'Siseta hosti aadress(xxx.xxx.xxx.xxx)'
read AADR
#SSh abil arvutisse sissesaanuna, genereeritakse md5sum kontroll fail nimega koer1.md5. Nime võib ise ära muuta.
ssh $HOSTN@$AADR 'cd '$DIR'; md5sum * > koer1.md5; ls -l; exit'
echo 'Sisesta kaust, kuhu tahad failid laadida /minu/lemmik/kaust'
read HDIR
#Failide üle kopeerimine, nii, et nende õigused säilivad
scp -p --preserve $HOSTN@$AADR:$DIR/* $HDIR
cd $HDIR 
#Kontrollime, kas failid on samad ja korras.
echo 'Kontrollime, kas failid on korras '
md5sum -c koer1.md5 > check.txt 
RES=`grep -c FAILED check.txt`
if [ $RES -eq "0" ]; then 
   echo 'Failid olid korras'
   rm koer1.md5
   ssh $HOSTN@$AADR 'rm -r '$DIR''
else 
  echo 'Mingi error' 
  ssh $HOSTN@$AADR 'cd '$DIR'; rm koer1.md5'
  exit 1
fi

Powershelli kodutöö

Skript, mis otsib etteantud asukohast ülesse nelja tüüpi helifailid (flac, mp3, WAV, wmv), mis on suuremad kui 1 MB, ning teeb nendest listi. Edasi tehakse list tekstifaili, mis saab nimeks "Kuupäev.txt". Ning siis saadetakse fail emailiga sinna, kuhu ta vaja on saata.

#Sisestame vajaliku informatsiooni
$a = Read-Host "Vali kaust"
Write-Host "Sinu valitud kaustaks on $a"
$DATE=Get-Date -format d 
Write-Host 'Siin on sinu kaustade sisu'
#Otsime üles vastavad failid. 
$P = Get-ChildItem -Include *.WAV,*.flac,*.mp3,*.wmv -Recurse $a
$format = @{Expression={[int]($_.Length)/1000000}; Label="Suurus(MB)";} 
$name = @{Expression={$_.Name}; Label="Helifaili nimi"}
$Files= $P | Sort-Object Name | where {$_.Length -ge 1MB} | Format-Table $name, $format 
#Väljastab listi failidest

echo $Files

#Saadab listi faili
$ToFile= $Files | Out-File $a/$DATE.txt -Width 45 

#Saadame meili koos koostatud listifailiga.
$MessageParameters = @{
From = "from@mail.com" 
To = "to@mail.com" 
Subject = "Muusika list" 
Body = "Tere, saadan muusika failide loendi seisuga $DATE. parimat" 
SmtpServer = "mail.aadress.com" 
Attachments = "$a/$DATE.txt" 
}  
Send-MAilMessage @MessageParameters 
echo "E-mail on saadetud"

Pythoni töö

Pythoni baasil main.cpp programm OpenCV pildi töötluseks.