Date: Thu, 24 May 2012 11:03:03 +0000 (UTC) From: Dag-Erling Smorgrav <des@FreeBSD.org> To: src-committers@freebsd.org, svn-src-user@freebsd.org Subject: svn commit: r235896 - user/des/fbce/lib/FBCE/Script Message-ID: <201205241103.q4OB33D7034055@svn.freebsd.org>
next in thread | raw e-mail | index | archive | help
Author: des Date: Thu May 24 11:03:03 2012 New Revision: 235896 URL: http://svn.freebsd.org/changeset/base/235896 Log: Implement --dryrun Modified: user/des/fbce/lib/FBCE/Script/User.pm Modified: user/des/fbce/lib/FBCE/Script/User.pm ============================================================================== --- user/des/fbce/lib/FBCE/Script/User.pm Thu May 24 10:59:48 2012 (r235895) +++ user/des/fbce/lib/FBCE/Script/User.pm Thu May 24 11:03:03 2012 (r235896) @@ -20,6 +20,14 @@ has debug => ( documentation => q{Debugging mode}, ); +has dryrun => ( + traits => [qw(Getopt)], + cmd_aliases => 'n', + isa => Bool, + is => 'ro', + documentation => q{Dry run}, +); + # XXX should be traits our %lwp_options = ( timeout => 10, @@ -124,6 +132,8 @@ sub cmd_smash(@) { while (my $person = $persons->next) { $person->update({ active => 0 }); } + $schema->txn_rollback() + if $self->dryrun; }); } @@ -170,6 +180,8 @@ sub cmd_pull(@) { $person->insert(); } } + $schema->txn_rollback() + if $self->dryrun; }); } @@ -219,6 +231,8 @@ sub cmd_gecos(@) { } warn("$n record(s) updated\n") if $self->debug; + $schema->txn_rollback() + if $self->dryrun; }); } @@ -313,6 +327,8 @@ sub cmd_pwgen(@) { if $self->debug; $tar->write($pwtar, COMPRESS_GZIP) or die($tar->error()); + $schema->txn_rollback() + if $self->dryrun; }); }
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201205241103.q4OB33D7034055>