[Jifty-commit] r2678 - jifty/trunk/lib/Jifty
jifty-commit at lists.jifty.org
jifty-commit at lists.jifty.org
Sun Jan 28 08:08:49 EST 2007
Author: audreyt
Date: Sun Jan 28 08:08:49 2007
New Revision: 2678
Modified:
jifty/trunk/lib/Jifty/Config.pm
jifty/trunk/lib/Jifty/Util.pm
Log:
* Jifty::Util - Add a generate_uuid method and use it to generate ApplicationUUID.
Modified: jifty/trunk/lib/Jifty/Config.pm
==============================================================================
--- jifty/trunk/lib/Jifty/Config.pm (original)
+++ jifty/trunk/lib/Jifty/Config.pm Sun Jan 28 08:08:49 2007
@@ -233,6 +233,7 @@
$app_class =~ s/-/::/g;
my $db_name = lc $app_name;
$db_name =~ s/-/_/g;
+ my $app_uuid = Jifty::Util->generate_uuid;
my $guess = {
framework => {
@@ -240,6 +241,7 @@
DevelMode => 1,
ApplicationClass => $app_class,
ApplicationName => $app_name,
+ ApplicationUUID => $app_uuid,
LogLevel => 'INFO',
PubSub => {
Enable => undef,
Modified: jifty/trunk/lib/Jifty/Util.pm
==============================================================================
--- jifty/trunk/lib/Jifty/Util.pm (original)
+++ jifty/trunk/lib/Jifty/Util.pm Sun Jan 28 08:08:49 2007
@@ -263,6 +263,20 @@
return ( $INC{$path} ? 1 : 0);
}
+=head2 generate_uuid
+
+Generate a new UUID using B<Data::UUID>.
+
+=cut
+
+my $Data_UUID_instance;
+sub generate_uuid {
+ ($Data_UUID_instance ||= do {
+ require Data::UUID;
+ Data::UUID->new;
+ })->create_str;
+}
+
=head1 AUTHOR
Various folks at Best Practical Solutions, LLC.
More information about the Jifty-commit
mailing list