Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/env perl
- #
- # author: shelling <shelling@cpan.org>
- #
- # This script is used to help Jifty Application
- # to insert primitive data into database
- use lib "lib";
- use Jifty;
- use Jifty::Everything;
- use JiftyTest;
- use Jifty::Util;
- use YAML qw(Dump LoadFile);
- use File::Basename;
- use Data::Dumper;
- BEGIN {
- my $dbconfig = Jifty->config->stash->{framework}->{Database};
- my $dbname = $dbconfig->{Database};
- my $dbdriver = $dbconfig->{Driver};
- my $dbhost = $dbconfig->{Host};
- my $dbuser = $dbconfig->{User};
- my $dbpassword = $dbconfig->{Password};
- print "INFO - dbconfig: $dbdriver:$dbhost:$dbuser:$dbpassword:$dbname\n";
- if ($dbdriver eq "SQLite" && -e $dbname) {
- print "WARN - DB is existed. Delete it now... \n";
- unlink $dbname;
- }
- Jifty->new;
- }
- for ( glob( Jifty::Util->app_root . "/etc/fixtures/*" ) ) {
- my $data_array = LoadFile $_;
- my $filename = basename($_);
- $filename =~ s/\.yml//;
- my $model = Jifty->app_class("Model",$filename)->new;
- for $data_hash (@{ $data_array }) {
- $model->create( %{$data_hash} )
- }
- }
Add Comment
Please, Sign In to add comment