[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