diff options
author | Cranix <you@example.com> | 2013-03-27 18:49:28 -0400 |
---|---|---|
committer | Cranix <you@example.com> | 2013-03-27 18:49:28 -0400 |
commit | aa22abc8625829524b86786899c38c0d2cacf9bb (patch) | |
tree | 1be6acffc0c6e20917f5957c6c74e56d6327e69a /bin | |
parent | 5144d26f36320f97f8dc2411bddf382984c5f427 (diff) | |
download | Biblioteka-aa22abc8625829524b86786899c38c0d2cacf9bb.tar.gz Biblioteka-aa22abc8625829524b86786899c38c0d2cacf9bb.tar.bz2 Biblioteka-aa22abc8625829524b86786899c38c0d2cacf9bb.tar.xz Biblioteka-aa22abc8625829524b86786899c38c0d2cacf9bb.zip |
Dodano obsługę informajci o tym, kto wzial dana ksiazke.
Utworzono katalog tools, w ktorym znajduje sie skrypt ulatwiajacy dodawanie ksiazek,
w przyszlosci prawdopodobnie znajda sie tam rowniez inne narzedzia.
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/add_book.pl | 57 | ||||
-rwxr-xr-x | bin/converter.pl | 34 | ||||
-rw-r--r-- | bin/ksiazki | 14 | ||||
-rw-r--r-- | bin/ksiazki.header | 15 | ||||
-rw-r--r-- | bin/propozycja_bazy | 38 | ||||
-rw-r--r-- | bin/schemat_bazy | 21 | ||||
-rw-r--r-- | bin/test_sql.pl | 9 |
7 files changed, 0 insertions, 188 deletions
diff --git a/bin/add_book.pl b/bin/add_book.pl deleted file mode 100755 index a7364db..0000000 --- a/bin/add_book.pl +++ /dev/null @@ -1,57 +0,0 @@ -#!/usr/bin/perl -w - -use warnings; -use strict; -use strict 'vars'; - -use DBI; - -my $dbfile = 'ksiazki.db'; -my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile", "", ""); - -my $sth=$dbh->prepare("select * from ksiazki where id=(select max(id) from ksiazki)"); -$sth->execute; -(my @dupa)=$sth->fetchall_arrayref; -my $max_id = ${$dupa[0]}[0][0]; - -my $id=$max_id+1; #Nowe id tworzymy, biorac stare najwieksze i dodajac 1 -print 'Podaj isbn:'; -my $isbn = <STDIN>; -chomp $isbn; -print 'Podaj tytul:'; -my $title = <STDIN>; -chomp $title; -$title='\''.$title.'\''; -print 'Podaj autora:'; -my $author = <STDIN>; -chomp $author; -$author = '\''.$author.'\''; -print 'Podaj wlasciciela:'; -my $owner = <STDIN>; -chomp $owner; -$owner = '\''.$owner.'\''; -print 'Czy ksiazke mozna pozyczac?:'; -my $can_borrow = <STDIN>; -chomp $can_borrow; -while (1) -{ - if ($can_borrow eq 'Tak') - { - $can_borrow = 1; - last; - } - elsif ($can_borrow eq 'Nie') - { - $can_borrow = 0; - last; - } - else - { - print 'Odpowiedz Tak lub Nie!'; - $can_borrow = <STDIN>; - chomp $can_borrow; - } -} -$sth=$dbh->prepare("insert into ksiazki values($id,$isbn,$title,$author,$owner,1,$can_borrow)"); #Zakladamy, ze dodawana ksiazka jest na miejscu, -#wiec zamiast sie o to pytac, wpisuje, ze jest. -$sth->execute or die 'Blad przy pisaniu do bazy!'; diff --git a/bin/converter.pl b/bin/converter.pl deleted file mode 100755 index e1a2aa9..0000000 --- a/bin/converter.pl +++ /dev/null @@ -1,34 +0,0 @@ -#!/usr/bin/perl - -use warnings; -use strict; -use strict 'vars'; - -use DBI; - -my $dbfile = 'ksiazki.db'; -my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile", "", ""); - -my($id,$isbn,$title,$author,$owner,$state,$who,$can_borrow,$reserved,$comment); - - -open (INPUT,"ksiazki"); - -my $_ = <INPUT>; - -while ($_) -{ - ($id,$isbn,$title,$author,$owner,$can_borrow) = split(/,/,$_); - chomp $can_borrow; - if($can_borrow eq 'Tak') - { - $can_borrow = 1; - } - else - { - $can_borrow = 0; - } - $dbh->do("insert into ksiazki values ($id,$isbn,'$title','$author','$owner',1,'nikt',$can_borrow,0,'')"); - $_ = <INPUT>; -} - diff --git a/bin/ksiazki b/bin/ksiazki deleted file mode 100644 index 496e424..0000000 --- a/bin/ksiazki +++ /dev/null @@ -1,14 +0,0 @@ -0000000000017,9788324607686,Ruby Receptury,Lucas Carlson; Leonard Richardson,HS,Tak -0000000000024,9788324619535,Programowanie w Ruby od podstaw,Peter Cooper,Att,Tak -0000000000031,9788324605224,Programowanie w jezyku Ruby wydanie II,Dave Thomas;Chad Fowler;Andy Hunt,HS,Tak -0000000000048,9788371979859,Core Java 2 Techniki zaawansowane,Cay S. Hortsmann;Gray Cornell,HS,Tak -0000000000086,9788371973574,Linux Internet Server czarna ksiega,H. Tsuji; T. Watanabe; acrobyte,Rmk,Tak -0000000000079,9788373610132,Delphi praktyczny kurs,Tomasz M. Sadowski,Rmk,Tak -0000000000376,9788371975271,Java Servlet Programowanie,Jason Hunter;Wiliam Crawford,HS,Tak -0000000000383,9788387216481,Zarzadzanie sieciami IP za pomoca ruterow Cisco,Scott M. Ballew,Antoszka,Tak -0000000000369,9788386718559,TCP/IP,Timothy Parker,HS,Tak -0000000000352,9788373617094,CSS,Eric A. Meyer,Rmk,Tak -0000000000338,0000000000000,Intel 64 and IA-32 Architectures Sofware Developers Manual,Czesiek,Tak -0000000000345,9780470516621,The 3G IP Multimedia, Subsystem,Gonzalo Camarillo; Miguel A. Garcia-Martin,Rysiek,Tak -0000000000055,9788387216047,Unix Administracj systemu,Aeleen Frisch,Rmk,Tak -0000000000062,9788324616046,SQL praktyczny kurs,Danua Mendrala; Marcin Szeliga,Rmk,Tak diff --git a/bin/ksiazki.header b/bin/ksiazki.header deleted file mode 100644 index 159e1df..0000000 --- a/bin/ksiazki.header +++ /dev/null @@ -1,15 +0,0 @@ -id,isbn,tytul,autor,wlasciciel,mozna brac? -0000000000017,9788324607686,Ruby Receptury,Lucas Carlson; Leonard Richardson,HS,Tak -0000000000024,9788324619535,Programowanie w Ruby od podstaw,Peter Cooper,Att,Tak -0000000000031,9788324605224,Programowanie w jezyku Ruby wydanie II,Dave Thomas;Chad Fowler;Andy Hunt,HS,Tak -0000000000048,9788371979859,Core Java 2 Techniki zaawansowane,Cay S. Hortsmann;Gray Cornell,HS,Tak -0000000000086,9788371973574,Linux Internet Server czarna ksiega,H. Tsuji; T. Watanabe; acrobyte,Rmk,Tak -0000000000079,9788373610132,Delphi praktyczny kurs,Tomasz M. Sadowski,Rmk,Tak -0000000000376,9788371975271,Java Servlet Programowanie,Jason Hunter;Wiliam Crawford,HS,Tak -0000000000383,9788387216481,Zarzadzanie sieciami IP za pomoca ruterow Cisco,Scott M. Ballew,Antoszka,Tak -0000000000369,9788386718559,TCP/IP,Timothy Parker,HS,Tak -0000000000352,9788373617094,CSS,Eric A. Meyer,Rmk,Tak -0000000000338,0000000000000,Intel 64 and IA-32 Architectures Sofware Developer's Manual,Czesiek,Tak -0000000000345,9780470516621,The 3G IP Multimedia, Subsystem,Gonzalo Camarillo; Miguel A. Garcia-Martin,Rysiek,Tak -0000000000055,9788387216047,Unix Administracj systemu,Aeleen Frisch,Rmk,Tak -0000000000062,9788324616046,SQL praktyczny kurs,Danua Mendrala, Marcin Szeliga,Rmk,Tak diff --git a/bin/propozycja_bazy b/bin/propozycja_bazy deleted file mode 100644 index 833b348..0000000 --- a/bin/propozycja_bazy +++ /dev/null @@ -1,38 +0,0 @@ -jakoś trzeba mieć userów (hasła możesz sprawdzać w ldap - jeśli chcesz -w ldap trzymać więcej to poprawimy tę tablicę lub jej nie będzie. Ale -teraz jest). -CREATE TABLE "user" ("user_id" INTEGER PRIMARY KEY AUTOINCREMENT NOT -NULL , "user_fname" varchar, "user_lname" varchar, "user_login" -varchar NOT NULL UNIQUE , "user_enabled" integer NOT NULL DEFAULT 1) - -Prosta tablica do opisu autorów -CREATE TABLE "author" ("author_id" integer PRIMARY KEY AUTOINCREMENT -NOT NULL UNIQUE , "author_fname" VARCHAR, "author_lname" varchar NOT -NULL ); - -Tablica opisująca książki -CREATE TABLE "book" ("book_id" integer PRIMARY KEY AUTOINCREMENT NOT -NULL UNIQUE ,"book_isbn" integer NOT NULL ,"book_title" varchar NOT -NULL, "owner_user_id" integer NOT NULL ) -owner_user_id - właściciel - ale jeśli moze być wielu współwłaścicieli -to można zrobić jak z autorami. Napisz czy może być wielu właścicieli -- a możę trzeba się zastanowić czy trzymać historię - jeden właściciel -może sprzedać książkę innemu... - -Tablica opisująca powiązanie (relację) książki i autorów. -CREATE TABLE "main"."book_author" ("author_id" integer NOT NULL , -"book_id" integer NOT NULL , PRIMARY KEY ("author_id", "book_id")) - - -Tablica opisująca komentarze -CREATE TABLE "book_comment" ("book_comment_id" INTEGER PRIMARY KEY -AUTOINCREMENT NOT NULL , "book_comment_body" VARCHAR, "user_id" -INTEGER NOT NULL , "book_comment_date" DATETIME DEFAULT -CURRENT_TIMESTAMP, "book_comment_canceled" INTEGER NOT NULL DEFAULT 0) -możebyć wiele opisów mogą przyrastać itp itd - zastanawiam się nad -book_comment_type (np. co jest recenzją itp - ale na razie zostawmy). - -Trzeba jeszcze opisać początkowy status książki oraz historię -wypożyczania itp. -podeślę - diff --git a/bin/schemat_bazy b/bin/schemat_bazy deleted file mode 100644 index d2a9d48..0000000 --- a/bin/schemat_bazy +++ /dev/null @@ -1,21 +0,0 @@ -Co musi być: -1)id ksiazki -2)tytul ksiazki -3)autor ksiazki -4)wlasciciel ksiazki -5)czy ksiazka jest? -6)kto wzial ksiazke? -7)czy mozna ksiazke brac? -8)czy ksiazka jest zarezerwowana? -9)komentarz - -create table ksiazki (id integer primary key autoincrement not null unique,isbn int, title string, -author string,owner string,state bool,who string,can_borrow bool,reserved bool,comment string); - -create table ksiazki (id int,isbn int, title string, -author string,owner string,state bool,who string,can_borrow bool,reserved bool,comment string); - - -insert into ksiazki values (null,1,'tytul1','autor1','wlasciciel1',1,'nikt',1,0,''); -insert into ksiazki values (null,2,'tytul2','autor2','wlasciciel2',1,'nikt',1,0,''); -insert into ksiazki values (null,3,'tytul3','autor3','wlasciciel3',1,'nikt',1,0,''); diff --git a/bin/test_sql.pl b/bin/test_sql.pl deleted file mode 100644 index b4cf6e1..0000000 --- a/bin/test_sql.pl +++ /dev/null @@ -1,9 +0,0 @@ -use DBI; - -my $dbfile = 'ksiazki.db'; -my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile", "", ""); - -my $sth = $dbh->prepare("select * from ksiazki") or die "Nie mozna spreparowac zapytania"; -$sth->execute() or die "Nie mozna wykonac zapytania"; - -print ${$sth->fetchall_arrayref}[1][2]; |