@@ -23,7 +23,7 @@ if($@){ die "No valid Data Source Name (DSN).\n" if !$dsn; $dsn =~ s/__HOME__/$FindBin::Bin\/\.\./g; -my $schema = MojoMojo::Schema->connect($dsn, $user, $pass) or +my $schema = MojoMojo::Schema->connect($dsn, $user, $pass) or die "Failed to connect to database"; my $page_id = prompt('n', 'Input ID of Page to Delete:', '', '' ); @@ -33,15 +33,15 @@ if ( $page_id == 0 ) { delete_page($page_id); -=head 2 +=head 2 -Delete a page and all its children. Cuidado. +Delete a page and all its children. Use with caution. =cut sub delete_page { my $id = shift; - + print "Erasing page: "; my $page = $schema->resultset('Page')->find( { id => $id } ); print $page->name_orig, "\n"; script/util/delete_page.pl 443bbd060f02ad6760817e078b99f82fb51cca47 Dan Dascalescu ddascaNOSPAMlescu@gmail.com http://github.com/marcusramberg/mojomojo/commit/bccbacf9a8c73c6ff0375e5bad4c47921a3888b9 bccbacf9a8c73c6ff0375e5bad4c47921a3888b9 2009-06-16T16:30:35-07:00 2009-06-16T16:30:35-07:00 "Cuidado" -> "Use with caution". Wiping out data is a bit too dangerous to mess around with funky language. 47c080306816e948ba38e716a58529902cf1d362 Dan Dascalescu ddascaNOSPAMlescu@gmail.com