diff options
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/astyle.sh | 2 | ||||
| -rwxr-xr-x | scripts/buildnr.pl | 2 | ||||
| -rw-r--r-- | scripts/makeyhttpd.pl | 10 | ||||
| -rwxr-xr-x | scripts/stats.pl | 24 |
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"; |
