solenv/bin/converttags.pl

   1 #
   2 # converttags - a perl script to coonvert some predefined tags
   3 # to user specified values
   4 #
   5 # Copyright (c) 2000 Sun Microsystems, Inc.
   6 #
   7
   8 if($#ARGV == -1)
   9 {
  10     die "No parameters were specified.\nperl converttags.pl <mode> <title> <productname> [<color1>] [<color2>] file_1 [... file_n]\n";
  11 }
  12 if($#ARGV < 2)
  13 {
  14     die "No file were specified -> no file must be converted!\n";
  15 }
  16
  17 # mode = 1 -> convert
  18 #      = 2 -> exit without conversion
  19 $mode = shift @ARGV;
  20
  21 $title = shift @ARGV;
  22 $productname = shift @ARGV;
  23
  24 $color1 = "";
  25 $color2 = "";
  26
  27 if( $mode =~ s/2/$1/go )
  28 {
  29     exit 0;
  30 }
  31
  32 if( $ARGV[0] =~ s/(#[\w]{6})/$1/go )
  33 {
  34     $color1 = shift @ARGV;
  35 }
  36 if( $ARGV[0] =~ s/(#[\w]{6})/$1/go )
  37 {
  38     $color2 = shift @ARGV;
  39 }
  40
  41 print "$title\n";
  42 print "$productname\n";
  43 print "$color1\n";
  44 print "$color2\n";
  45
  46 $return = 0;
  47
  48 while (@ARGV)
  49 {
  50     my $lineCount = 0;
  51     $ARGV = shift @ARGV;
  52     print "convert tags: $ARGV ";
  53
  54     open ( FILEIN, $ARGV ) || die "could not open $ARGV for reading";
  55     @lines = <FILEIN>;
  56     close( FILEIN );
  57     open( FILEOUT, ">$ARGV.tmp" ) || die "could not open $ARGV.tmp for writing";
  58
  59
  60     foreach $_ (@lines)
  61     {
  62     $lineCount++;
  63     if ( $lineCount == 10 )
  64     {
  65         $lineCount = 0;
  66         print ".";
  67     }
  68     # change [TITLE] tag
  69     s#\[TITLE\]#$title#go;
  70
  71     # change [PRODUCTNAME] tag
  72     s#\[PRODUCTNAME\]#$productname#go;
  73
  74     # change color #003399 to #$color1 if color1 was specified!
  75     if ( ! "$color1" eq "" )
  76     {
  77         s/#003399/$color1/go;
  78     }
  79
  80     # change color #99CCFF to #$color2 if color2 was specified!
  81     if ( ! "$color2" eq "" )
  82     {
  83         s/#99CCFF/$color2/go;
  84     }
  85     print FILEOUT $_;
  86     }
  87     print " OK\n";
  88
  89     close FILEOUT;
  90     chmod 0666, $ARGV;
  91     rename "$ARGV.tmp", $ARGV || die "could not rename $ARGV.tmp to $ARGV";
  92 }
  93
  94 exit $return;