Changeset 495 in ProjectBuilder for devel/pb/bin/pb

Timestamp:

Jul 10, 2008, 11:36:18 AM (16 years ago)

Author:

Bruno Cornec

Message:

• all global variables are prefixed with pb
• First attempt at using locale and gettext
• use of pb_display and pb_display_init added
• Update presentation following RMLL 2008

File:

• devel/pb/bin/pb (modified) (5 diffs)

devel/pb/bin/pb

@@ -339 +339 @@
 }
 if (defined $opts{'v'}) {
-    $debug = $opts{'v'};
+    $pbdebug = $opts{'v'};
 }
 if (defined $opts{'f'}) {
@@ -345 +345 @@
 }
 if (defined $opts{'q'}) {
-    $debug=-1;
+    $pbdebug=-1;
 }
 if (defined $opts{'l'}) {
-    open(LOG,"> $opts{'l'}") || die "Unable to log to $opts{'l'}: $!";
-    $LOG = \*LOG;
-    $debug = 0  if ($debug == -1);
-    }
-pb_log_init($debug, $LOG);
+    open(pbLOG,"> $opts{'l'}") || die "Unable to log to $opts{'l'}: $!";
+    $pbLOG = \*pbLOG;
+    $pbdebug = 0  if ($pbdebug == -1);
+    }
+pb_log_init($pbdebug, $pbLOG);
+pb_display_init("text","");
 
 # Handle root of the project if defined
@@ -1528 +1529 @@
 use File::Copy;
 
-our $debug;
-our $LOG;
-our $synmsg = "pbscript";
-pb_log_init($debug, $LOG);
+our $pbdebug;
+our $pbLOG;
+our $pbsynmsg = "pbscript";
+pb_log_init($pbdebug, $pbLOG);
 pb_temp_init();
 
@@ -1774 +1775 @@
         pb_system("emerge wget sudo ntp DateManip File-MimeInfo","$cmtall");
 } else {
-    print "No pkg to install\n";
+    pb_log(0,"No pkg to install\n");
 }
 EOF
@@ -1839 +1840 @@
     # Get subject line
     my $sl = "Project $ENV{'PBPROJ'} version $ENV{'PBPROJVER'} is now available";
-    print "Please enter the title of your announce\n";
-    print "(By default: $sl)\n";
+    pb_log(0,"Please enter the title of your announce\n");
+    pb_log(0,"(By default: $sl)\n");
     my $sl2 = <STDIN>;
     $sl = $sl2 if ($sl2 !~ /^$/);