tagging ychat-0.7.7.1ychat-0.7.7.1

4 files changed, 19 insertions, 19 deletions

diff --git a/scripts/astyle.sh b/scripts/astyle.sh
index 4376887..b9dbc45 100755
--- a/scripts/astyle.sh
+++ b/scripts/astyle.sh
@@ -8,7 +8,7 @@ do
  for i in `find . -name "*.$f"`
  do
   echo $i
-  astyle --style=gnu $i
+  astyle --style=ansi -s2 $i
   rm -f $i.orig
  done
 done
diff --git a/scripts/buildnr.pl b/scripts/buildnr.pl
index e691a11..ee3d3e2 100755
--- a/scripts/buildnr.pl
+++ b/scripts/buildnr.pl
@@ -13,7 +13,7 @@ close MSGS;
 
 foreach (@msgs)
 {
- if ( /BUILDNR/ )
+ if ( /define BUILDNR/ )
  {
   s/(BUILDNR )(.+)$/$1.($2+1)/e;
   print;
diff --git a/scripts/makeyhttpd.pl b/scripts/makeyhttpd.pl
index 2805360..101343a 100644
--- a/scripts/makeyhttpd.pl
+++ b/scripts/makeyhttpd.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# The yChat & yhttpd Project (2004)
+# The yChat & yhttpd Project (2004, 2005)
 #
 # This scripts modifies the yChat sources to yhttpd sources.
 
@@ -17,6 +17,8 @@ my @delete = (
  'src/data',
  'src/irc',
  'src/contrib/crypt',
+ 'src/modl.h',
+ 'src/modl.cpp',
  'src/mods',
  'src/mods/commands',
  'src/mods/irc',
@@ -75,7 +77,7 @@ foreach (@delete) {
   system("rm -Rf $_"); 
 }
 
-print "Deleting CVS directories\n";
+print "\nDeleting CVS directories\n";
 system("find . -name CVS | xargs rm -Rf");
 
 print "Creating new dirs\n->";
@@ -84,14 +86,14 @@ foreach (@createdir) {
   system("mkdir $_"); 
 }
 
-print "Renaming config file\n";
+print "\nRenaming config file\n";
 system("mv etc/ychat.conf etc/yhttpd.conf");
 
 print "Moving html templates\n";
 system("mv demo.html html/index.html");
 system("mv test.cgi notfound.html style.css html");
 
-print "Removing marked lines of code\n ->";
+print "Removing marked lines of code\n->";
 &remove_marked_lines('.');
 
 sub remove_marked_lines {
diff --git a/scripts/stats.pl b/scripts/stats.pl
index 38cc67c..e5cc2b3 100755
--- a/scripts/stats.pl
+++ b/scripts/stats.pl
@@ -9,6 +9,7 @@ use strict;
 use scripts::modules::file;
 
 my %stats;
+my $param = shift;
 
 &recursive(".");
 
@@ -17,19 +18,16 @@ $stats{"Lines total"} = $stats{"Lines of source"}
                    + $stats{"Lines of text"}   
                    + $stats{"Lines of HTML"};
 
-my $bool = 0;
-foreach ( sort keys %stats )
-{
- if ($bool == 0)
- { 
-  print "$_ = " . $stats{$_} . "\n";
-  $bool = 1;
- }
- else
- {
-  print "$_ = " . $stats{$_} . "\n";
-  $bool = 0;
- }
+unless (defined $param) {
+
+ print "$_ = " . $stats{$_} . "\n"
+  for ( sort keys %stats );
+
+} else {
+
+ print $stats{$_} . " "
+  for sort keys %stats;
+
 }
 
 print "\n";