lib/Catalyst/Manual/Tutorial/Appendices.pod

   1 =head1 NAME
   2
   3 Catalyst::Manual::Tutorial::Appendices - Catalyst Tutorial - Part 10: Appendices
   4
   5
   6 =head1 OVERVIEW
   7
   8 This is B<Part 10 of 10> for the Catalyst tutorial.
   9
  10 L<Tutorial Overview|Catalyst::Manual::Tutorial>
  11
  12 =over 4
  13
  14 =item 1
  15
  16 L<Introduction|Catalyst::Manual::Tutorial::Intro>
  17
  18 =item 2
  19
  20 L<Catalyst Basics|Catalyst::Manual::Tutorial::CatalystBasics>
  21
  22 =item 3
  23
  24 L<More Catalyst Basics|Catalyst::Manual::Tutorial::MoreCatalystBasics>
  25
  26 =item 4
  27
  28 L<Basic CRUD|Catalyst::Manual::Tutorial::BasicCRUD>
  29
  30 =item 5
  31
  32 L<Authentication|Catalyst::Manual::Tutorial::Authentication>
  33
  34 =item 6
  35
  36 L<Authorization|Catalyst::Manual::Tutorial::Authorization>
  37
  38 =item 7
  39
  40 L<Debugging|Catalyst::Manual::Tutorial::Debugging>
  41
  42 =item 8
  43
  44 L<Testing|Catalyst::Manual::Tutorial::Testing>
  45
  46 =item 9
  47
  48 L<Advanced CRUD|Catalyst::Manual::Tutorial::AdvancedCRUD>
  49
  50 =item 10
  51
  52 B<Appendices>
  53
  54 =back
  55
  56
  57 =head1 DESCRIPTION
  58
  59 This part of the tutorial provides supporting information relevant to
  60 the Catalyst tutorial.
  61
  62
  63 =head1 APPENDIX 1: CUT AND PASTE FOR POD-BASED EXAMPLES
  64
  65 You may notice that Pod indents example code with four spaces.  This
  66 section provides some quick advice to "un-indent" this text in common
  67 editors.
  68
  69 =head2 "Un-indenting" with Vi/Vim
  70
  71 When cutting and pasting multi-line text from Pod-based documents, the
  72 following vi/vim regexs can be helpful to "un-indent" the inserted text
  73 (do NOT type the quotes, they are only included to show spaces in the
  74 regex patterns).  I<Note that all 3 of the regexs end in 4 spaces>:
  75
  76 =over 4
  77
  78 =item *
  79
  80 ":0,$s/^    "
  81
  82 Removes four leading spaces from the entire file (from the first line,
  83 C<0>, to the last line, C<$>).
  84
  85 =item *
  86
  87 "%s/^    "
  88
  89 A shortcut for the previous item (C<%> specifies the entire file; so
  90 this removes four leading spaces from every line).
  91
  92 =item *
  93
  94 ":.,$s/^    "
  95
  96 Removes the first four spaces from the line the cursor is on at the time
  97 the regex command is executed (".") to the last line of the file.
  98
  99 =item *
 100
 101 ":.,44s/^    "
 102
 103 Removes four leading space from the current line through line 44
 104 (obviously adjust the C<44> to the appropriate value in your example).
 105
 106 =back
 107
 108 =head2 "Un-indenting" with Emacs
 109
 110 Although there author has not used emacs for many years (apologies to
 111 the emacs fans out there), here is a quick hint to get you started.  To
 112 replace the leading spaces of every line in a file, use:
 113
 114     M-x replace-regexp<RET>
 115     Replace regexp: ^    <RET>
 116     with: <RET>
 117
 118 All of that will occur on the single line at the bottom of your screen.
 119 Note that "<RET>" represents the return key/enter.  Also, there are
 120 four spaces after the "^" on the "Replace regexp:" line and no spaces
 121 entered on the last line.
 122
 123 You can limit the replacement operation by selecting text first (depending
 124 on your version of emacs, you can either use the mouse or experiment with
 125 commands such as C<C-SPC> to set the mark at the cursor location and
 126 C<C-E<lt>> and C<C-E<gt>> to set the mark at the beginning and end of the
 127 file respectively.
 128
 129
 130 =head1 APPENDIX 2: USING MYSQL AND POSTGRESQL
 131
 132 The main database used in this tutorial is the very simple yet powerful
 133 SQLite.  This section provides information that can be used to "convert"
 134 the tutorial to use MySQL and PostgreSQL.  However, note that part of
 135 the beauty of the MVC architecture is that very little database-specific
 136 code is spread throughout the system (at least when MVC is "done
 137 right").  Consequently, converting from one database to another is
 138 relatively painless with most Catalyst applications.  In general, you
 139 just need to adapt the schema definition C<.sql> file you use to
 140 initialize your database and adjust a few configuration parameters.
 141
 142 Also note that the purpose of the data definition statements for this
 143 section are not designed to take maximum advantage of the various
 144 features in each database for issues such as referential integrity and
 145 field types/constraints.
 146
 147 =head2 MySQL
 148
 149 Use the following steps to adapt the tutorial to MySQL.  Thanks to Jim
 150 Howard for the help.
 151
 152 =over 4
 153
 154 =item *
 155
 156 Part 2: Catalyst Basics
 157
 158 =over 4
 159
 160 =item *
 161
 162 Install the required software:
 163
 164 =over 4
 165
 166 =item *
 167
 168 The MySQL database server and client utility.
 169
 170 =item *
 171
 172 The Perl C<DBD::MySQL> module
 173
 174 =back
 175
 176 For CentOS users (see
 177 L<Catalyst::Manual::Installation::CentOS4|Catalyst::Manual::Installation::CentOS4>),
 178 you can use the following commands to install the software and start the MySQL
 179 daemon:
 180
 181     yum -y install mysql mysql-server
 182     service mysqld start
 183
 184 =item *
 185
 186 Create the database and set the permissions:
 187
 188     $ mysql
 189     Welcome to the MySQL monitor.  Commands end with ; or \g.
 190     Your MySQL connection id is 2 to server version: 4.1.20
 191
 192     Type 'help;' or '\h' for help. Type '\c' to clear the buffer.
 193
 194     mysql> create database myapp;
 195     Query OK, 1 row affected (0.01 sec)
 196
 197     mysql> grant all on myapp.* to tutorial@'localhost';
 198     Query OK, 0 rows affected (0.00 sec)
 199
 200     mysql> flush privileges;
 201     Query OK, 0 rows affected (0.00 sec)
 202
 203     mysql> quit
 204     Bye
 205
 206 =item *
 207
 208 Create the C<.sql> file and load the data:
 209
 210 =over 4
 211
 212 =item *
 213
 214 Open the C<myapp01_mysql.sql> in your editor and enter:
 215
 216     --
 217     -- Create a very simple database to hold book and author information
 218     --
 219     DROP TABLE IF EXISTS books;
 220     DROP TABLE IF EXISTS book_authors;
 221     DROP TABLE IF EXISTS authors;
 222     CREATE TABLE books (
 223            id          INT(11) PRIMARY KEY AUTO_INCREMENT,
 224            title       TEXT ,
 225            rating      INT(11)
 226     );
 227     -- 'book_authors' is a many-to-many join table between books & authors
 228     CREATE TABLE book_authors (
 229            book_id     INT(11),
 230            author_id   INT(11),
 231            PRIMARY KEY (book_id, author_id)
 232     );
 233     CREATE TABLE authors (
 234            id          INT(11) PRIMARY KEY AUTO_INCREMENT,
 235            first_name  TEXT,
 236            last_name   TEXT
 237     );
 238     ---
 239     --- Load some sample data
 240     ---
 241     INSERT INTO books VALUES (1, 'CCSP SNRS Exam Certification Guide', 5);
 242     INSERT INTO books VALUES (2, 'TCP/IP Illustrated, Volume 1', 5);
 243     INSERT INTO books VALUES (3, 'Internetworking with TCP/IP Vol.1', 4);
 244     INSERT INTO books VALUES (4, 'Perl Cookbook', 5);
 245     INSERT INTO books VALUES (5, 'Designing with Web Standards', 5);
 246     INSERT INTO authors VALUES (1, 'Greg', 'Bastien');
 247     INSERT INTO authors VALUES (2, 'Sara', 'Nasseh');
 248     INSERT INTO authors VALUES (3, 'Christian', 'Degu');
 249     INSERT INTO authors VALUES (4, 'Richard', 'Stevens');
 250     INSERT INTO authors VALUES (5, 'Douglas', 'Comer');
 251     INSERT INTO authors VALUES (6, 'Tom', 'Christiansen');
 252     INSERT INTO authors VALUES (7, ' Nathan', 'Torkington');
 253     INSERT INTO authors VALUES (8, 'Jeffrey', 'Zeldman');
 254     INSERT INTO book_authors VALUES (1, 1);
 255     INSERT INTO book_authors VALUES (1, 2);
 256     INSERT INTO book_authors VALUES (1, 3);
 257     INSERT INTO book_authors VALUES (2, 4);
 258     INSERT INTO book_authors VALUES (3, 5);
 259     INSERT INTO book_authors VALUES (4, 6);
 260     INSERT INTO book_authors VALUES (4, 7);
 261     INSERT INTO book_authors VALUES (5, 8);
 262
 263 =item *
 264
 265 Load the data:
 266
 267     mysql -ututorial myapp < myapp01_mysql.sql
 268
 269 =item *
 270
 271 Make sure the data loaded correctly:
 272
 273     $ mysql -ututorial myapp
 274     Reading table information for completion of table and column names
 275     You can turn off this feature to get a quicker startup with -A
 276
 277     Welcome to the MySQL monitor.  Commands end with ; or \g.
 278     Your MySQL connection id is 4 to server version: 4.1.20
 279
 280     Type 'help;' or '\h' for help. Type '\c' to clear the buffer.
 281
 282     mysql> show tables;
 283     +-----------------+
 284     | Tables_in_myapp |
 285     +-----------------+
 286     | authors         |
 287     | book_authors    |
 288     | books           |
 289     +-----------------+
 290     3 rows in set (0.00 sec)
 291
 292     mysql> select * from books;
 293     +----+------------------------------------+--------+
 294     | id | title                              | rating |
 295     +----+------------------------------------+--------+
 296     |  1 | CCSP SNRS Exam Certification Guide |      5 |
 297     |  2 | TCP/IP Illustrated, Volume 1       |      5 |
 298     |  3 | Internetworking with TCP/IP Vol.1  |      4 |
 299     |  4 | Perl Cookbook                      |      5 |
 300     |  5 | Designing with Web Standards       |      5 |
 301     +----+------------------------------------+--------+
 302     5 rows in set (0.00 sec)
 303
 304     mysql>
 305
 306 =back
 307
 308 =item *
 309
 310 Update the model:
 311
 312 =over 4
 313
 314 =item *
 315
 316 Delete the existing model:
 317
 318     rm lib/MyApp/Model/MyAppDB.pm
 319
 320 =item *
 321
 322 Regenerate the model using the Catalyst "_create.pl" script:
 323
 324     script/myapp_create.pl model MyAppDB DBIC::Schema MyAppDB dbi:mysql:myapp 'tutorial' '' '{ AutoCommit => 1 }'
 325
 326 =back
 327
 328 =back
 329
 330 =item *
 331
 332 Part 4: Authentication
 333
 334 =over 4
 335
 336 =item *
 337
 338 Create the C<.sql> file for the user/roles data:
 339
 340 Open C<myapp02_mysql.sql> in your editor and enter:
 341
 342     --
 343     -- Add users and roles tables, along with a many-to-many join table
 344     --
 345     CREATE TABLE users (
 346             id            INT(11) PRIMARY KEY,
 347             username      TEXT,
 348             password      TEXT,
 349             email_address TEXT,
 350             first_name    TEXT,
 351             last_name     TEXT,
 352             active        INT(11)
 353     );
 354     CREATE TABLE roles (
 355             id   INTEGER PRIMARY KEY,
 356             role TEXT
 357     );
 358     CREATE TABLE user_roles (
 359             user_id INT(11),
 360             role_id INT(11),
 361             PRIMARY KEY (user_id, role_id)
 362     );
 363     --
 364     -- Load up some initial test data
 365     --
 366     INSERT INTO users VALUES (1, 'test01', 'mypass', 't01@na.com', 'Joe',  'Blow', 1);
 367     INSERT INTO users VALUES (2, 'test02', 'mypass', 't02@na.com', 'Jane', 'Doe',  1);
 368     INSERT INTO users VALUES (3, 'test03', 'mypass', 't03@na.com', 'No',   'Go',   0);
 369     INSERT INTO roles VALUES (1, 'user');
 370     INSERT INTO roles VALUES (2, 'admin');
 371     INSERT INTO user_roles VALUES (1, 1);
 372     INSERT INTO user_roles VALUES (1, 2);
 373     INSERT INTO user_roles VALUES (2, 1);
 374     INSERT INTO user_roles VALUES (3, 1);
 375
 376 =item *
 377
 378 Load the user/roles data:
 379
 380     mysql -ututorial myapp < myapp02_mysql.sql
 381
 382 =item *
 383
 384 Create the C<.sql> file for the hashed password data:
 385
 386 Open C<myapp03_mysql.sql> in your editor and enter:
 387
 388     --
 389     -- Convert passwords to SHA-1 hashes
 390     --
 391     UPDATE users SET password = 'e727d1464ae12436e899a726da5b2f11d8381b26' WHERE id = 1;
 392     UPDATE users SET password = 'e727d1464ae12436e899a726da5b2f11d8381b26' WHERE id = 2;
 393     UPDATE users SET password = 'e727d1464ae12436e899a726da5b2f11d8381b26' WHERE id = 3;
 394
 395 =item *
 396
 397 Load the user/roles data:
 398
 399     mysql -ututorial myapp < myapp03_mysql.sql
 400
 401 =back
 402
 403 =back
 404
 405 =head2 PostgreSQL
 406
 407 Use the following steps to adapt the tutorial to PostgreSQL.  Thanks to
 408 Louis Moore for the help who was in turn helped by Marcello Romani and
 409 Tom Lanyon.
 410
 411 =over 4
 412
 413 =item *
 414
 415 Part 2: Catalyst Basics
 416
 417 =over 4
 418
 419 =item *
 420
 421 Install the required software:
 422
 423 =over 4
 424
 425 =item *
 426
 427 The PostgreSQL database server and client.
 428
 429 =item *
 430
 431 The Perl C<DBD::Pg> module
 432
 433 =back
 434
 435 =item *
 436
 437 Create the database and a user for the database
 438
 439     $ createuser -P catmyapp
 440     Enter password for new role: <catalyst>
 441     Enter it again: <catalyst>
 442     Shall the new role be a superuser? (y/n) n
 443     Shall the new role be allowed to create databases? (y/n) n
 444     Shall the new role be allowed to create more new roles? (y/n) n
 445     CREATE ROLE
 446     $ createdb -O catmyapp mycatapp
 447     CREATE DATABASE
 448
 449 =item *
 450
 451 Create the C<.sql> file and load the data:
 452
 453 =over 4
 454
 455 =item *
 456
 457 Open the C<myapp01_psql.sql> in your editor and enter:
 458
 459
 460      --
 461      -- Create a very simple database to hold book and author information
 462      --
 463      -- The sequence is how we get a unique id in PostgreSQL
 464      --
 465      CREATE SEQUENCE books_seq START 5 ;
 466      SELECT nextval ('books_seq');
 467
 468      CREATE TABLE books (
 469         id          INTEGER PRIMARY KEY DEFAULT nextval('books_seq'),
 470         title       TEXT ,
 471         rating      INTEGER
 472         );
 473
 474      -- 'book_authors' is a many-to-many join table between books & authors
 475      CREATE TABLE book_authors (
 476         book_id     INTEGER,
 477         author_id   INTEGER,
 478         PRIMARY KEY (book_id, author_id)
 479
 480         );
 481
 482      CREATE SEQUENCE authors_seq START 8 ;
 483      SELECT nextval ('authors_seq');
 484
 485      CREATE TABLE authors (
 486      id          INTEGER PRIMARY KEY DEFAULT nextval('authors_seq'),
 487      first_name  TEXT,
 488      last_name   TEXT
 489      );
 490      ---
 491      --- Load some sample data
 492      ---
 493      INSERT INTO books VALUES (1, 'CCSP SNRS Exam Certification Guide', 5);
 494      INSERT INTO books VALUES (2, 'TCP/IP Illustrated, Volume 1', 5);
 495      INSERT INTO books VALUES (3, 'Internetworking with TCP/IP Vol.1', 4);
 496      INSERT INTO books VALUES (4, 'Perl Cookbook', 5);
 497      INSERT INTO books VALUES (5, 'Designing with Web Standards', 5);
 498      INSERT INTO authors VALUES (1, 'Greg', 'Bastien');
 499      INSERT INTO authors VALUES (2, 'Sara', 'Nasseh');
 500      INSERT INTO authors VALUES (3, 'Christian', 'Degu');
 501      INSERT INTO authors VALUES (4, 'Richard', 'Stevens');
 502      INSERT INTO authors VALUES (5, 'Douglas', 'Comer');
 503      INSERT INTO authors VALUES (6, 'Tom', 'Christiansen');
 504      INSERT INTO authors VALUES (7, 'Nathan', 'Torkington');
 505      INSERT INTO authors VALUES (8, 'Jeffrey', 'Zeldman');
 506      INSERT INTO book_authors VALUES (1, 1);
 507      INSERT INTO book_authors VALUES (1, 2);
 508      INSERT INTO book_authors VALUES (1, 3);
 509      INSERT INTO book_authors VALUES (2, 4);
 510      INSERT INTO book_authors VALUES (3, 5);
 511      INSERT INTO book_authors VALUES (4, 6);
 512      INSERT INTO book_authors VALUES (4, 7);
 513      INSERT INTO book_authors VALUES (5, 8);
 514
 515 =item *
 516
 517 Load the data:
 518
 519     $ psql -U catmyapp -W mycatapp
 520     Password for user catmyapp: catalyst
 521     Welcome to psql 8.1.8, the PostgreSQL interactive terminal.
 522
 523     Type:  \copyright for distribution terms
 524            \h for help with SQL commands
 525            \? for help with psql commands
 526            \g or terminate with semicolon to execute query
 527            \q to quit
 528
 529     mycatapp=> \i myapp01_psql.sql
 530
 531     CREATE SEQUENCE
 532     nextval
 533     ---------
 534            5
 535     (1 row)
 536
 537     psql:myapp01_psql.sql:11: NOTICE:  CREATE TABLE / PRIMARY KEY will create implicit index "books_pkey" for table "books"
 538     CREATE TABLE
 539     psql:myapp01_psql.sql:19: NOTICE:  CREATE TABLE / PRIMARY KEY will create implicit index "book_authors_pkey" for table
 540     "book_authors"
 541     CREATE TABLE
 542     CREATE SEQUENCE
 543      nextval
 544     ---------
 545           8
 546     (1 row)
 547
 548     psql:myapp01_psql.sql:30: NOTICE:  CREATE TABLE / PRIMARY KEY will create implicit index "authors_pkey" for table "authors"
 549     CREATE TABLE
 550     INSERT 0 1
 551     INSERT 0 1
 552     INSERT 0 1
 553     INSERT 0 1
 554     ...
 555
 556 =item *
 557
 558 Make sure the data loaded correctly:
 559
 560     mycatapp=> \dt
 561                 List of relations
 562      Schema |     Name     | Type  |  Owner
 563     --------+--------------+-------+----------
 564      public | authors      | table | catmyapp
 565      public | book_authors | table | catmyapp
 566      public | books        | table | catmyapp
 567     (3 rows)
 568
 569     mycatapp=> select * from books;
 570      id |               title                | rating
 571     ----+------------------------------------+--------
 572       1 | CCSP SNRS Exam Certification Guide |      5
 573       2 | TCP/IP Illustrated, Volume 1       |      5
 574       3 | Internetworking with TCP/IP Vol.1  |      4
 575       4 | Perl Cookbook                      |      5
 576       5 | Designing with Web Standards       |      5
 577      (5 rows)
 578
 579     mycatapp=> \q
 580
 581 =back
 582
 583 =item *
 584
 585 After the steps where you:
 586
 587     edit lib/MyApp.pm
 588
 589     create lib/MyAppDB.pm
 590
 591     create lib/MyAppDB/Book.pm
 592
 593     create lib/MyAppDB/Author.pm
 594
 595     create lib/MyAppDB/BookAuthor.pm
 596
 597
 598 =item *
 599
 600 Generate the model using the Catalyst "_create.pl" script:
 601
 602     script/myapp_create.pl model MyAppDB DBIC::Schema MyAppDB 'dbi:Pg:dbname=mycatapp' 'catmyapp' 'catalyst' '{ AutoCommit => 1 }'
 603
 604
 605 =back
 606
 607 =item *
 608
 609 Part 4: Authentication
 610
 611 =over 4
 612
 613 =item *
 614
 615 Create the C<.sql> file for the user/roles data:
 616
 617 Open C<myapp02_psql.sql> in your editor and enter:
 618
 619     --
 620     -- Add users and roles tables, along with a many-to-many join table
 621     --
 622
 623     CREATE SEQUENCE users_seq START 3 ;
 624     SELECT nextval ('users_seq');
 625
 626     CREATE TABLE users (
 627             id            INTEGER PRIMARY KEY DEFAULT nextval('users_seq'),
 628             username      TEXT,
 629             password      TEXT,
 630             email_address TEXT,
 631             first_name    TEXT,
 632             last_name     TEXT,
 633             active        INTEGER
 634     );
 635
 636     CREATE SEQUENCE roles_seq START 2 ;
 637     SELECT nextval ('roles_seq');
 638
 639     CREATE TABLE roles (
 640             id   INTEGER PRIMARY KEY DEFAULT nextval('roles_seq'),
 641             role TEXT
 642     );
 643
 644     CREATE TABLE user_roles (
 645             user_id INTEGER,
 646             role_id INTEGER,
 647             PRIMARY KEY (user_id, role_id)
 648     );
 649
 650     --
 651     -- Load up some initial test data
 652     --
 653     INSERT INTO users VALUES (1, 'test01', 'mypass', 't01@na.com', 'Joe',  'Blow', 1);
 654     INSERT INTO users VALUES (2, 'test02', 'mypass', 't02@na.com', 'Jane', 'Doe',  1);
 655     INSERT INTO users VALUES (3, 'test03', 'mypass', 't03@na.com', 'No',   'Go',   0);
 656     INSERT INTO roles VALUES (1, 'user');
 657     INSERT INTO roles VALUES (2, 'admin');
 658     INSERT INTO user_roles VALUES (1, 1);
 659     INSERT INTO user_roles VALUES (1, 2);
 660     INSERT INTO user_roles VALUES (2, 1);
 661     INSERT INTO user_roles VALUES (3, 1);
 662
 663 =item *
 664
 665 Load the data:
 666
 667     $ psql -U catmyapp -W mycatapp
 668     Password for user catmyapp: catalyst
 669     Welcome to psql 8.1.8, the PostgreSQL interactive terminal.
 670
 671     Type:  \copyright for distribution terms
 672            \h for help with SQL commands
 673            \? for help with psql commands
 674            \g or terminate with semicolon to execute query
 675            \q to quit
 676
 677     mycatapp=> \i myapp02_psql.sql
 678
 679     CREATE SEQUENCE
 680      nextval
 681     ---------
 682            3
 683     (1 row)
 684
 685     psql:myapp02_psql.sql:16: NOTICE:  CREATE TABLE / PRIMARY KEY will create implicit index "users_pkey" for table "users"
 686     CREATE TABLE
 687     CREATE SEQUENCE
 688      nextval
 689     ---------
 690            2
 691     (1 row)
 692
 693     psql:myapp02_psql.sql:24: NOTICE:  CREATE TABLE / PRIMARY KEY will create implicit index "roles_pkey" for table "roles"
 694     CREATE TABLE
 695     psql:myapp02_psql.sql:30: NOTICE:  CREATE TABLE / PRIMARY KEY will create implicit index "user_roles_pkey" for table "user_roles"
 696     CREATE TABLE
 697     INSERT 0 1
 698     INSERT 0 1
 699     INSERT 0 1
 700     INSERT 0 1
 701     INSERT 0 1
 702     INSERT 0 1
 703     INSERT 0 1
 704     INSERT 0 1
 705     INSERT 0 1
 706     mycatapp=>
 707
 708     mycatapp=> select * from users;
 709      id | username | password | email_address | first_name | last_name | active
 710     ----+----------+----------+---------------+------------+-----------+--------
 711       1 | test01   | mypass   | t01@na.com    | Joe        | Blow      |      1
 712       2 | test02   | mypass   | t02@na.com    | Jane       | Doe       |      1
 713       3 | test03   | mypass   | t03@na.com    | No         | Go        |      0
 714     (3 rows)
 715
 716
 717 =item *
 718
 719 Create the C<.sql> file for the hashed password data:
 720
 721 Open C<myapp03_psql.sql> in your editor and enter:
 722
 723     --
 724     -- Convert passwords to SHA-1 hashes
 725     --
 726     UPDATE users SET password = 'e727d1464ae12436e899a726da5b2f11d8381b26' WHERE id = 1;
 727     UPDATE users SET password = 'e727d1464ae12436e899a726da5b2f11d8381b26' WHERE id = 2;
 728     UPDATE users SET password = 'e727d1464ae12436e899a726da5b2f11d8381b26' WHERE id = 3;
 729
 730 =item *
 731
 732 Load in the data
 733
 734     $ psql -U catmyapp -W mycatapp
 735     Password for user catmyapp:
 736     Welcome to psql 8.1.8, the PostgreSQL interactive terminal.
 737
 738     Type:  \copyright for distribution terms
 739            \h for help with SQL commands
 740            \? for help with psql commands
 741            \g or terminate with semicolon to execute query
 742            \q to quit
 743
 744     mycatapp=> \i myapp03_psql.sql
 745     UPDATE 1
 746     UPDATE 1
 747     UPDATE 1
 748
 749
 750
 751 =back
 752
 753 =back
 754
 755
 756 =head1 APPENDIX 3: IMPROVED HASHING SCRIPT
 757
 758 Here is an improved SHA-1 hashing script from Gavin Henry that does
 759 not expose the passwords to "capture" on the command line.
 760
 761     #!/usr/bin/perl -w
 762     #===============================================================================
 763     #
 764     #         FILE:  enc_pass.pl
 765     #
 766     #        USAGE:  ./enc_pass.pl
 767     #
 768     #  DESCRIPTION:  Encrypt a Password using SHA-1
 769     #
 770     #      OPTIONS:  ---
 771     # REQUIREMENTS:  ---
 772     #         BUGS:  ---
 773     #        NOTES:  ---
 774     #       AUTHOR:  Gavin Henry (GH), <ghenry@suretecsystems.com>
 775     #      COMPANY:  Suretec Systems Ltd.
 776     #      VERSION:  1.0
 777     #      CREATED:  26/06/2006
 778     #     REVISION:  ---
 779     #    COPYRIGHT:  http://search.cpan.org/dist/perl/pod/perlgpl.pod
 780     #===============================================================================
 781
 782     use strict;
 783     use warnings;
 784     use Digest::SHA1;
 785     use Term::ReadKey;
 786
 787     sub get_pass {
 788         ReadMode 'noecho';
 789         chomp( my $pw = ReadLine 0 );
 790         ReadMode 'normal';
 791         return $pw;
 792     }
 793
 794     print "Enter the password to be encrypted: ";
 795     my $pass = get_pass();
 796
 797     print "\nConfirm the password: ";
 798     my $verify = get_pass();
 799
 800     if ( $pass eq $verify ) {
 801         my $sha1_enc = Digest::SHA1->new;
 802         $sha1_enc->add($pass);
 803
 804         print "\nYour encrypted password is: "
 805           . $sha1_enc->hexdigest . "\n"
 806           . "Paste this into your SQL INSERT/COPY Data.\n";
 807     }
 808     else {
 809         print "\nPasswords do not match!\n";
 810     }
 811
 812
 813 =head1 AUTHOR
 814
 815 Kennedy Clark, C<hkclark@gmail.com>
 816
 817 Please report any errors, issues or suggestions to the author.  The
 818 most recent version of the Catalyst Tutorial can be found at
 819 L<http://dev.catalyst.perl.org/repos/Catalyst/trunk/Catalyst-Manual/lib/Catalyst/Manual/Tutorial/>.
 820
 821 Copyright 2006, Kennedy Clark, under Creative Commons License
 822 (L<http://creativecommons.org/licenses/by-nc-sa/2.5/>).