NrUžduotis:
Pavardė Vardas		EladrMašina Vaizdas Apskrit. Stereo Furje Pirštai Kepstras 02.11 02.18 02.25 03.04 03.18 03.25 04.01 04.08 04.15 04.22 04.29 05.06 05.13 05.20 Pask. EGZ
1 ??
- neturi | ženklo ??
- neturi | ženklo ?? 
 - neturi |  ženklo ??   Spec/grupė: 
 - neturi |  ženklo ??  
 - neturi |  ženklo ??   Jūsų Vardas:  
 - neturi |  ženklo ??       Pavardė:  

 - neturi |  ženklo ??         Login: 

 - neturi |  ženklo ??     E-adresas:  
 - neturi |  ženklo ??
- neturi | ženklo ?? - neturi | ženklo ??           - neturi | ženklo ??

- neturi | ženklo ??

- neturi | ženklo ?? - neturi | ženklo
?? ?? echo "
Atgal"; - neturi | ženklo ?? ?> - neturi | ženklo ?? - neturi | ženklo ?? - neturi | ženklo		 -------------------------------------------------------------------------------------------------------------------
2masrašyk----------Apskrit. Stereo Furje Pirštai Kepstras 02.11 02.18 02.25 03.04 03.18 03.25 04.01 04.08 04.15 04.22 04.29 05.06 05.13 05.20 Pask. EGZ
3 ?? $uzd_failas="uzd.txt"; - neturi | ženklo ?? if ($grupe==2004) $uzd_failas="uzdhtml.txt"; - neturi | ženklo ?? //echo "grupe=$grupe"; - neturi | ženklo ?? //$grupe='2003'; - neturi | ženklo ?? $d="./$grupe/"; - neturi | ženklo ?? $fakAdres="http://www.mif.vu.lt/"; - neturi | ženklo ?? $delim=" - užduotis nerasta ?? - neturi | ženklo ?? $u=file($uzd_failas); - neturi | ženklo ?? $err_start=" ?? "; - neturi | ženklo ?? $err_end=""; - neturi | ženklo ?? $err=""; - neturi | ženklo ?? foreach ($u as $v){ - neturi | ženklo ?? $pos = strpos($v, "$delim"); - neturi | ženklo ?? if (!is_integer($pos)) $err.="$err_start$v - neturi $delim ženklo$err_end"; - neturi | ženklo ?? else $uzd[substr($v,0,$pos)]=substr($v,$pos+1); - neturi | ženklo ?? } - neturi | ženklo ?? echo "
NrUžduotis:
Pavardė Vardas$err		Eladr"; - neturi | ženklo ?? $n_u=count($uzd); - neturi | ženklo ?? foreach ($uzd as $v) echo "$v"; - neturi | ženklo ?? //echo $d; - neturi | ženklo ?? $handle = opendir($d); - neturi | ženklo ?? unset($s); - neturi | ženklo ?? $Nr=1; - neturi | ženklo ?? while (false !== ($file = readdir($handle))) - neturi | ženklo ?? if ($file != "." && $file != ".."){ - neturi | ženklo ?? $w=file($d.$file); - neturi | ženklo ?? - neturi | ženklo ?? // ishmetame el adresa, kad jo nespausdinti - neturi | ženklo ?? $pos = strpos($w[0], "$delim"); - neturi | ženklo ?? $adresStart="";$adresEnd=""; - neturi | ženklo ?? if (is_integer($pos)) { - neturi | ženklo ?? if ($pos+4 ?? $userAdres=substr($w[0],$pos+1); - neturi | ženklo ?? $adresStart=""; - neturi | ženklo ?? $adresEnd=""; - neturi | ženklo ?? } - neturi | ženklo ?? $w[0]=substr($w[0],0,$pos); - neturi | ženklo ?? } - neturi | ženklo ?? - neturi | ženklo ?? foreach ($uzd as $k => $v) $s[$k]="-----"; - neturi | ženklo ?? for ($i=2; $i ?? $v=$w[$i]; - neturi | ženklo ?? $pos = strpos($v, "$delim"); - neturi | ženklo ?? if (!is_integer($pos)) $w[0].="$err_start $v - neturi $delim ženklo$err_end"; - neturi | ženklo ?? else{ - neturi | ženklo ?? $r=substr($v,0,$pos); - neturi | ženklo ?? if (!array_key_exists($r,$s)) - neturi | ženklo ?? $w[0].="$err_start$r - užduotis nerasta$err_end"; - neturi | ženklo ?? else $s[$r]=substr($v,$pos+1); - neturi | ženklo ?? } - neturi | ženklo ?? } - neturi | ženklo ?? echo "
$Nr$adresStart$w[0]$adresEnd"; - neturi | ženklo ?? if (strlen($w[1])>2) echo "rašyk"; - neturi | ženklo ?? else echo " "; - neturi | ženklo ?? foreach ($uzd as $k => $v) echo "$s[$k]"; - neturi | ženklo ?? $Nr++; - neturi | ženklo ?? } - neturi | ženklo ?? echo "
"; - neturi | ženklo ?? closedir($handle); - neturi | ženklo ?? //$g=substr($grupe,-2);$g=substr($g,0,1); - neturi | ženklo ?? echo "
Registruoki naują grupės studentą(-ę)"; - neturi | ženklo ?? ?> - neturi | ženklo ?? - neturi | ženklo ?? - neturi | ženklo		rašyk-------------------------------------------------------------------------------------------------------------------
4
rašyk-------------------------------------------------------------------------------------------------------------------
51 ?? 4 - užduotis nerastarašyk--------------------------------------------------3 5 6 7 8 9 10 11 12 --------------------
6 ?? include("au.php"); $mode=$atidaryti; //$atidaryti or $uzdaryti; - neturi | ženklo ?? function bastys2anybody($failas){ - neturi | ženklo ?? echo "
Start: $failas "; - neturi | ženklo ?? $c=copy($failas,"tmp"); - neturi | ženklo ?? echo " C: $c,"; - neturi | ženklo ?? if ($c) {echo " OK1"; - neturi | ženklo ?? `rm $failas`; - neturi | ženklo ?? $c=copy("tmp","$failas"); - neturi | ženklo ?? } - neturi | ženklo ?? if (!$c) echo " Negaliu $failas nukopijuoti
"; - neturi | ženklo ?? else echo " $failas nukopijuotas sekmingai
"; - neturi | ženklo ?? } - neturi | ženklo ?? //isjungiu, kad netycia nepasinaudoti - neturi | ženklo ?? // jis reikalingas padaryti failus anybody - neturi | ženklo ?? foreach ($failai as $v) bastys2anybody($v); - neturi | ženklo ?? - neturi | ženklo ?? // $fv="NATO_ES.phtml"; chmod($fv,0666); //bastys2anybody($fv); chmod($fv,$mode); - neturi | ženklo ?? // bastys2anybody("argumuz.txt"); bastys2anybody("argumpries.txt"); - neturi | ženklo ?? // $chm="070"; - neturi | ženklo ?? - neturi | ženklo ?? // $mode=$uzdaryti; // 0777; - neturi | ženklo ?? $mode=0777; //atidaryti - neturi | ženklo ?? foreach ($failai as $v) { echo $v."
"; - neturi | ženklo ?? chmod($v,$mode); - neturi | ženklo ?? // `chmod $chm $v`; - neturi | ženklo ?? } - neturi | ženklo ?? ?> - neturi | ženklo		rašyk-------------------------------------------------------------------------------------------------------------------
7 body{background-color:#ffffcc; color:#333366; text:#333366; font-size:12pt; text:#333366;} ?? - neturi | ženklo ?? td { - neturi | ženklo ?? font-size : 14px; - neturi | ženklo ?? background-color : #ffcc77; - neturi | ženklo ?? font-weight : bold; - neturi | ženklo ?? color : #333366; - neturi | ženklo ?? text-align : center; - neturi | ženklo ?? } - neturi | ženklo ?? th { - neturi | ženklo ?? font-size : 15px; - neturi | ženklo ?? background-color : #ffddaa; - neturi | ženklo ?? font-weight : bold; - neturi | ženklo ?? color : #333366; - neturi | ženklo ?? } - neturi | ženklo ?? a:link{color:##333399} - neturi | ženklo ?? a:active{color:#333399} - neturi | ženklo ?? a:visitet{color:#003399} - neturi | ženklo ?? a:hover{color:#ff6600} - neturi | ženklo ?? .mygtukas{background-color:#66ff33;font-size:17pt;color:#66cc00;font-weight:bold} - neturi | ženklo ?? .atsak_but{background-color:#33cc33;font-size:12pt;color:#009900;font-weight:bold} - neturi | ženklo ?? .klaus_but{background-color:#cc6666;font-size:12pt;color:#990000;font-weight:bold} - neturi | ženklo ?? .manotable {border:15;cellpadding:15;cellspacing:15;bgcolor:#ffcc66;bordercolor:#ffcc33;bordercolorlight:#ffff99;bordercolordark:#ff6633} - neturi | ženklo ?? .redish{color:#993300} - neturi | ženklorašyk-------------------------------------------------------------------------------------------------------------------
8 rašyk-------------------------------------------------------------------------------------------------------------------
9 ?? // echo "_SERVER[REMOTE_ADDR]".$a; - neturi | ženklo ?? echo md5("korys"); - neturi | ženklo ?? /* - neturi | ženklo ?? echo getenv("REMOTE_ADDR")."

"; - neturi | ženklo ?? $d='./ek1k1g/'; - neturi | ženklo ?? $handle = opendir($d); - neturi | ženklo ?? while (false !== ($file = readdir($handle))) { - neturi | ženklo ?? if ($file != "." && $file != "..") { - neturi | ženklo ?? $s=file($d.$file); - neturi | ženklo ?? echo "$file
"; - neturi | ženklo ?? foreach ($s as $k => $w) echo "Key: $k; Value: $w
\n"; - neturi | ženklo ?? echo "

"; - neturi | ženklo ?? } - neturi | ženklo ?? } - neturi | ženklo ?? closedir($handle); - neturi | ženklo ?? */ - neturi | ženklo ?? ?> - neturi | ženklo

rašyk-------------------------------------------------------------------------------------------------------------------
10 ?? ?> - neturi | ženklorašyk-------------------------------------------------------------------------------------------------------------------
11 ?? header( "WWW-Authenticate: Basic realm=\"Test Authentication System\""); - neturi | ženklo ?? header( "HTTP/1.0 401 Unauthorized"); - neturi | ženklo ?? echo "You must enter a valid login ID and password to access this resource\n"; - neturi | ženklo ?? exit; - neturi | ženklo ?? } - neturi | ženklo ?? if(!isset($PHP_AUTH_USER) - užduotis nerasta ?? authenticate(); - neturi | ženklo ?? echo md5("medis"); - neturi | ženklo ?? } - neturi | ženklo ?? ?> - neturi | ženklorašyk-------------------------------------------------------------------------------------------------------------------
12 ?? $home="/users/bastys/www/academic/ATE/pratybos"; - neturi | ženklo ?? $klaidu=0; - neturi | ženklo ?? function err_msg($s){ - neturi | ženklo ?? global $klaidu; - neturi | ženklo ?? echo "Klaida: $s
"; - neturi | ženklo ?? $klaidu++; - neturi | ženklo ?? } - neturi | ženklo ?? function get_par($s){ - neturi | ženklo ?? global $HTTP_POST_VARS; - neturi | ženklo ?? $v=$HTTP_POST_VARS[$s]; if (!isset($v) - užduotis nerasta ?? echo "$s=$v
"; - neturi | ženklo ?? return $v; - neturi | ženklo ?? } - neturi | ženklo ?? $grupe=$HTTP_POST_VARS['grupe']; - neturi | ženklo ?? unset($kelias); - neturi | ženklo ?? if (strcmp($grupe,"2003")==0) $kelias="2003"; - neturi | ženklo ?? else - neturi | ženklo ?? if (strcmp($grupe,"2004")==0) $kelias="2004"; - neturi | ženklo ?? if (isset($kelias)){ - neturi | ženklo ?? $Vardas=get_par('Vardas'); - neturi | ženklo ?? $Pavarde=get_par('Pavarde'); - neturi | ženklo ?? $Login=get_par('Login'); - neturi | ženklo ?? if (strcmp($Login,"vapaxxxx")==0) err_msg("Blogas Login=$Login"); - neturi | ženklo ?? $email=get_par('email'); - neturi | ženklo ?? if ($klaidu==0) { - neturi | ženklo ?? $pavarde=strtolower($Pavarde); - neturi | ženklo ?? $failas="$home/$kelias/$pavarde"; - neturi | ženklo ?? if (file_exists($failas)) err_msg("$pavarde jau registruotas"); - neturi | ženklo ?? else{ - neturi | ženklo ?? $f=fopen($failas,'w'); - neturi | ženklo ?? if (!$f) err_msg("Negaliu atidaryti $failas įrašymui"); - neturi | ženklo ?? else{ - neturi | ženklo ?? fputs($f,"$Pavarde $Vardas - užduotis nerasta ?? fclose($f); - neturi | ženklo ?? chmod ("$failas", 0766); - neturi | ženklo ?? } - neturi | ženklo ?? } - neturi | ženklo ?? } - neturi | ženklo ?? if ($klaidu!=0) echo "Viso klaidu: $klaidu

"; - neturi | ženklo ?? else echo "

Sveikinu!
Jūs sėkmingai užregistravote.
Sėkmės atliekant praktikos užduotis!"; - neturi | ženklo ?? } - neturi | ženklo ?? else err_msg("Nežinoma grupe: $grupe"); - neturi | ženklo ?? echo "

Atgal"; - neturi | ženklo ?? ?> - neturi | ženklo ?? - neturi | ženklo		rašyk-------------------------------------------------------------------------------------------------------------------
13 ?? /* - neturi | ženklo ?? echo "Auth: $PHP_AUTH_USER

"; - neturi | ženklo ?? echo "PW: $PHP_AUTH_PW

"; - neturi | ženklo ?? echo "$kas

"; - neturi | ženklo ?? echo "$kuri

"; - neturi | ženklo ?? */ - neturi | ženklo ?? $f=fopen($kas,'a'); - neturi | ženklo ?? $kada=date("m.d"); - neturi | ženklo ?? if ($f) {fputs($f,"$kuri - užduotis nerasta ?? if (!fclose($f)) echo "Klaida: negaliu uždaryti $kuri failo"; - neturi | ženklo ?? else echo ""; - neturi | ženklo ?? } - neturi | ženklo ?? else echo "Klaida: failas $kuri nerastas arba neatviras įrašymui"; - neturi | ženklo ?? ?> - neturi | ženklo

rašyk-------------------------------------------------------------------------------------------------------------------
Registruoki naują grupės studentą(-ę)

Namo