User:Ikrustok

Quest lahendus 11 - Skript paki installi kontrolliks [Bash]

#!/bin/bash
#Autor: Ivar Krustok A22, ikrustok@itcollege.ee
#Version: 2
#Skript paki installi kontrolliks
PAKK=$1
TARK=`/usr/bin/apt-cache policy $PAKK | grep Installed | awk '{print $2}'`
echo $TARK
if [ "$TARK" == "(none)" ]; then
        echo "0"
else
        echo "1"
fi

Quest lahendus 38 skript etteantud faili muutmisaega

#!/bin/bash
#Autor: Ivar Krustok A22, ikrustok@itcollege.ee
#Version: 1
#Luua skript, mis muuda etteantud faili muutmisaega

Skript paki installi kontrolliks [Python]

#!/usr/bin/python
#Autor: Ivar Krustok A22, ikrustok@itcollege.ee
#Version: 1.2
#Skript paki installi kontrolliks,kui puudub pakub sul installida
import os, subprocess
from apt import Cache
user = os.getuid()
if user != 0:
	print "Et programmi jooksutada pead olema root oigustega!", exit(1)
else:
	tark = raw_input("Tere palun sisesta programmi nimi, mida soovite kontrollida: ")
	devnull = open(os.devnull,"w")
	retval = subprocess.call(["dpkg","-s",tark],stdout=devnull,stderr=subprocess.STDOUT)
	devnull.close()
if retval != 0:
    print "Package", tark, "ei ole installitud."
else:
	print "Package", tark, "on juba installitud", exit(1)
kys = raw_input("Kas soovite seda programmi installida? [jah/ei]")
if kys == "jah":
	kys2 = raw_input("Olete te kindlad? [jah/ei]")
else:
	print "Head aega siis", exit(1)
if kys2 == "jah":
	try:
		cache = Cache()
		package = cache[tark]
    		package.mark_install(), cache.commit()
	except KeyError:
		print "Sellist programmi pole!"
else:
	print "Olgu, head aega siis!"

Skript emaili domeeni info saamiseks [Powershell]

#Autor: Ivar Krustok A22, ikrustok@itcollege.ee
#Version: 1.0
#skript, mis küsib emaili, eraldab sellest user ja domaini, uurib välja domaini ip aadressi, kas kodukas on üleval ja mis aadressil,
#prindib selle arvutikasutaja folderisse txt faili koos kellajaga millal küsiti ja domaini nimega.
$email = Read-Host “Mis su e-maili aadress on?”
$kasutaja = [Environment]::UserName
$atpos = $email.IndexOf(“@”)
$user = $email.substring(0,$atpos)
$domain = $email.substring($atpos+1, $email.length-($atpos+1))
Write-Host (“Username: “ + $user)
Write-Host (“Domain: “ + $domain)
$webRequest = [net.WebRequest]::Create("http://www.$domain")
$web = $webrequest.GetResponse();
$fol = [IO.Directory]::CreateDirectory("C:\Users\$kasutaja\$user")
[System.Net.Dns]::GetHostAddresses("$domain") | select IPAddressToString | Out-file $fol\ipaadress.txt -append
$A = Get-Date | Out-file $fol\ipaadress.txt -append
$web | Format-Table StatusCode,ResponseUri,LastModified | Out-file $fol\ipaadress.txt -append
if ($email.IndexOf(“@”) -lt 0) {
Write-Host “Ei sobi selline aadress!”
} else {
Write-Host “Sobiv aadress!”
}