summaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
Diffstat (limited to 'scripts')
-rwxr-xr-xscripts/astyle.sh2
-rwxr-xr-xscripts/buildnr.pl2
-rw-r--r--scripts/makeyhttpd.pl10
-rwxr-xr-xscripts/stats.pl24
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";