summaryrefslogtreecommitdiffstats
path: root/bin
diff options
context:
space:
mode:
authorCranix <you@example.com>2013-03-27 18:49:28 -0400
committerCranix <you@example.com>2013-03-27 18:49:28 -0400
commitaa22abc8625829524b86786899c38c0d2cacf9bb (patch)
tree1be6acffc0c6e20917f5957c6c74e56d6327e69a /bin
parent5144d26f36320f97f8dc2411bddf382984c5f427 (diff)
downloadBiblioteka-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-xbin/add_book.pl57
-rwxr-xr-xbin/converter.pl34
-rw-r--r--bin/ksiazki14
-rw-r--r--bin/ksiazki.header15
-rw-r--r--bin/propozycja_bazy38
-rw-r--r--bin/schemat_bazy21
-rw-r--r--bin/test_sql.pl9
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];