/*
					Autor: Grzegorz Wodniczak
					Data utworzenia: 10.11.2009
					Informacje: www.vebaspect.pl
					 
					Opis:
					Najprostszy program wielowątkowy. 
					Aby zadziałał poprawnie należy:
					- zapisać plik z poniższym kodem jako 'csharp_2_simple_threads.cs';
					*/

					using System;
					using System.Collections.Generic;
					using System.Linq;
					using System.Text;
					using System.Threading;

					namespace CSharp
					{
						class csharp_2_simple_threads
						{
							static void Main(string[] args)
							{
								Thread extra = new Thread(new ThreadStart(ExtraThread));
								extra.Start();

								for (int i = 1; i <= 10; i++)
								{
									Console.WriteLine("Pierwszy watek : {0}", i);
									Thread.Sleep(800);
								}
							}

							static void ExtraThread()
							{
								for (int i = 1; i <= 10; i++)
								{
									Console.WriteLine("Drugi watek : {0}", i);
									Thread.Sleep(500);
								}
							}
						}
					}				
					

					-- Autor: Grzegorz Wodniczak
					-- Data utworzenia: 09.11.2009
					-- Informacje: www.vebaspect.pl
					--
					-- Opis:
					-- Program obliczający wartość funkcji Ackermanna.
					-- A(0,n)     = S(n)
					-- A(m+1,0)   = A(m,1)
					-- A(m+1,n+1) = A(m,A(m+1,n))
					-- Aby zadziałał poprawnie należy:
					-- - zapisać plik z poniższym kodem jako 'ada95_ackermann.adb';

					with Gnat.IO; use Gnat.IO;
					 
					procedure ada95_ackermann is
					function A(m,n : in integer) return integer is
					begin
						if(m = 0) then
							return n + 1;
						elsif (n = 0) then
							return A(m - 1,1);
						else
							return A(m - 1,A(m,n - 1));
						end if;
					end A;
					m : integer;
					n : integer;
					wynik : integer;
					begin
						Put("Podaj wartosc liczby m: ");
						Get(m);
						Put("Podaj wartosc liczby n: ");
						Get(n);
						wynik := A(m,n);
						Put("A(");
						Put(m);
						Put(",");
						Put(n);
						Put(") = ");
						Put(wynik);
					end ada95_ackermann;
					

					-- Autor: Grzegorz Wodniczak
					-- Data utworzenia: 08.11.2009
					-- Informacje: www.vebaspect.pl
					--
					-- Opis:
					-- Program obliczający silnię z liczby 'n'.
					-- Aby zadziałał poprawnie należy:
					-- - zapisać plik z poniższym kodem jako 'ada95_silnia.adb';
										
					with Gnat.IO; use Gnat.IO;

					procedure ada95_silnia is
					n : integer := 1;
					wynik : integer := 1;
					i : integer := 1;
					begin
						put("Podaj wartosc liczby n: ");
						get(n);
						while i < n loop
							i := i + 1;
							wynik := wynik * i;
						end loop;
						put("Silnia: ");
						put(wynik);
					end;
					

					/*
					Autor: Grzegorz Wodniczak
					Data utworzenia: 08.11.2009
					Informacje: www.vebaspect.pl

					Opis:
					Skrypt zmienia uprawnienia do plików/katalogów na serwerze (CHMOD'y).
					Aby zadziałał poprawnie należy:
					- uzupełnić wartości zmiennych SERVER, USER, PASS;
					- wstawić ścieżkę postaci '/katalog/katalog/katalog/' do pliku/katalogu w miejsce znaku '#';
					- w przeglądarce wpisać 'php_chmod.php?chmod=#' - gdzie '#' to wartość CHMOD, np. 0777;
					*/

					define('SERVER' ,'');
					define('USER'   ,'');
					define('PASS'   ,'');

					if ($_GET['chmod']) 
					{
						$chmod = $_GET['chmod']; 
					} 
					echo "CHMOD ustawiony na : \'".$chmod."\'
";
					 
					$connect = ftp_connect(SERVER) or die("Connection error.");
					ftp_login($connect,USER,PASS);
					 
					if (ftp_site($connect, 'CHMOD '.$chmod.' #')) 
					{ 
						echo "Polecenie wykonano poprawnie."; 
					} 
					else 
					{ 
						echo "Wykonanie polecenia nie powiodło się."; 
					}
					 
					ftp_close($connect);
					

					/*
					Autor: Grzegorz Wodniczak
					Data utworzenia: 07.11.2009
					Informacje: www.vebaspect.pl

					Opis:
					Skrypt zwraca wielkość bazy danych MySQL (w bajtach).
					Aby zadziałał poprawnie należy:
					- uzupełnić wartości zmiennych HOST, USER, PASS oraz DB;
					*/
					
					define('HOST' ,'');
					define('USER' ,'');
					define('PASS' ,'');
					define('DB'   ,'');

					$connect = mysql_connect(HOST,USER,PASS) or die("Connection error.");
					mysql_select_db(DB,$connect);

					$query = "SHOW TABLE STATUS FROM ".DB;
					$result = mysql_query($query) or die(mysql_error());

					$size = 0;
					while($row = mysql_fetch_array($result))
					{
						$size += $row['Data_length'] + $row['Index_length'];
					}
					echo "Wielkość bazy \"".DB."\": ".$size." bajtów";

					mysql_close($connect);
					

					/*
					Autor: Grzegorz Wodniczak
					Data utworzenia: 07.11.2009
					Informacje: www.vebaspect.pl

					Opis:
					Skrypt wykonuje zapytanie SELECT do bazy danych MySQL.
					Aby zadziałał poprawnie należy:
					- uzupełnić wartości zmiennych HOST, USER, PASS oraz DB;
					- wstawić poprawne wartości w miejsce znaków '#';
					*/

					define('HOST' ,'');
					define('USER' ,'');
					define('PASS' ,'');
					define('DB'   ,'');

					$connect = mysql_connect(HOST,USER,PASS) or die("Connection error.");
					mysql_select_db(DB,$connect);

					$query = "SELECT # FROM #";
					$result = mysql_query($query) or die(mysql_error());

					while($row = mysql_fetch_array($result))
					{
						echo $row['#']."
";
					}

					mysql_close($connect);