tagging ychat-0.7.2ychat-0.7.2

7 files changed, 25 insertions, 90 deletions

diff --git a/scripts/README b/scripts/README
index 4a94391..189b169 100644
--- a/scripts/README
+++ b/scripts/README
@@ -1,4 +1,4 @@
-All scripts should be run from the yhttpd main directory, example:
+All scripts should be run from the yChat main directory, example:
 
 ./scripts/makeyhttpd.pl
 
diff --git a/scripts/buildnr.pl b/scripts/buildnr.pl
index 4698f8d..e691a11 100755
--- a/scripts/buildnr.pl
+++ b/scripts/buildnr.pl
@@ -1,8 +1,8 @@
 #!/usr/bin/perl
 
-# The yhttpd Project (2003)
+# The yChat Project (2003)
 #
-# This script increases the BUILNR of msgs,h each time the yhttpd
+# This script increases the BUILNR of msgs,h each time the yChat
 # gets recompiled!
 
 use strict;
diff --git a/scripts/config.sh b/scripts/config.sh
index f301246..373fad4 100755
--- a/scripts/config.sh
+++ b/scripts/config.sh
@@ -1,5 +1,5 @@
 #!/bin/sh
-# The yhttpd Project (2004)
+# The yChat Project (2004)
 #
 # This script modifues the src/glob.h file.
 
@@ -15,11 +15,11 @@ perl -e '
  use scripts::modules::file;
 
 print <<END;
-Welcome to the yhttpd configurator!
+Welcome to the yChat configurator!
 You may also edit the src/glob.h file manually instead of using 
 this configurator option. Please also notice that this are only
 before-compile options. All setups which can be made after com-
-iling are placed in the yhttpd configuration file. 
+iling are placed in the yChat configuration file. 
 END
  
  my $sep = "================================================================\n"; my $stdin;
diff --git a/scripts/makeyhttpd.pl b/scripts/makeyhttpd.pl
index 5a44462..2805360 100644
--- a/scripts/makeyhttpd.pl
+++ b/scripts/makeyhttpd.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# The yChat & yhttpd Project (2004, 2005)
+# The yChat & yhttpd Project (2004)
 #
 # This scripts modifies the yChat sources to yhttpd sources.
 
@@ -8,19 +8,18 @@ use strict;
 use scripts::modules::file;
 
 my @delete = ( 
- 'CHANGES',
+ 'ChangeLog',
  'g++.version',
  'TODO',
  'NEWS',
  'docs',
  'src/chat',
- 'src/memb',
  'src/data',
  'src/irc',
  'src/contrib/crypt',
- 'src/modl.h',
- 'src/modl.cpp',
  'src/mods',
+ 'src/mods/commands',
+ 'src/mods/irc',
  'obj',
  'mods',
  'html',
@@ -40,7 +39,6 @@ my %substituate = (
   'yChat' => 'yhttpd',
   'YCHAT' => 'YHTTPD',
   'CHAT' => 'HTTPD',
-  'yhttpd.org' => 'yChat.org',
   '//>>' => ''
 );
 
@@ -77,7 +75,7 @@ foreach (@delete) {
   system("rm -Rf $_"); 
 }
 
-print "\nDeleting CVS directories\n";
+print "Deleting CVS directories\n";
 system("find . -name CVS | xargs rm -Rf");
 
 print "Creating new dirs\n->";
@@ -86,113 +84,50 @@ foreach (@createdir) {
   system("mkdir $_"); 
 }
 
-print "\nRenaming config file\n";
+print "Renaming 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 "Editing etc/yhttpd.conf\n";
-&edit_yhttpd_conf();
-print "Removing marked lines of code\n->";
+print "Removing marked lines of code\n ->";
 &remove_marked_lines('.');
-print "\nEdit version numbers\n->";
-&edit_version_numbers('yhttpd/src/msgs.h','yhttpd/README');
 
 sub remove_marked_lines {
  my $dir = shift;
  chdir($dir);
-
- for (&dopen("."))
- {
+ foreach (&dopen(".")) {
    next if /^\.+$/;
    print " $_";
-
-   if ( -f $_ )
-   {
+   if ( -f $_ ) {
      my @newfile;
      my $flag = 0;
-
-     for my $line (fopen($_))
-     {
+     foreach my $line (fopen($_)) {
 	$flag = 1 if $line =~ /\/\/<<\*/;	
         if ($flag == 0 && $line !~ /\/\/<</) {
-          for ( @deletelines )
-          {
-             if ($line =~ /$_/)
-             {
+          foreach ( @deletelines ) {
+             if ($line =~ /$_/) {
                 $flag = 3;
                 last;
              }
           }
-
-          if ($flag != 3 )
-          {
+          if ($flag != 3 ) {
             map { $line =~ s/$_/$substituate{$_}/eg } keys %substituate;
             push @newfile, $line;
-          } 
-
-          else
-          {
+          } else {
             $flag = 0;
           }
         }
 	$flag = 0 if $line =~ /\/\/\*>>/;	
      }
-
      &fwrite($_, @newfile);
-   } 
-
-   elsif ( -d $_ )
-   {
-     # Recursive
+   } elsif ( -d $_ ) {
      &remove_marked_lines($_);
    }
  }
-
  chdir('..');
 }
 
-sub edit_yhttpd_conf
-{
-  my @old = fopen("etc/yhttpd.conf");
-  my @new = @old[0..1];
-
-  my $flag = 0;
-  for (@old)
-  {
-   if ($flag == 0)
-   { 
-     if (/<category name="httpd">/)
-     {
-       $flag = 1;
-       push @new, $_;	
-     }
-   }
-
-   else
-   {
-     push @new, $_;
-   }
-  }
-
-  fwrite("etc/yhttpd.conf", @new); 
-}
-
-sub edit_version_numbers
-{
-  for (@_)
-  {
-    print " $_";
-    my @file = fopen $_;
-    for (@file)
-    {
-      s/([0-9]+\.[0-9]+)\.[0-9]+(-*)/$1$2/g for @file;
-      s/[PRE]{0,3}RELEASE/DEVEL/g;
-    }
-    fwrite($_,@file);
-  }
-}
-
 print "\n";
+
diff --git a/scripts/screen.sh b/scripts/screen.sh
index 5c227fc..6d5b7aa 100755
--- a/scripts/screen.sh
+++ b/scripts/screen.sh
@@ -1,3 +1,3 @@
 #!/bin/sh
 
-screen -S yhttpd ./bin/yhttpd
+screen -S ychat ./bin/ychat
diff --git a/scripts/setglobvals.pl b/scripts/setglobvals.pl
index 1ee1de4..13288a5 100755
--- a/scripts/setglobvals.pl
+++ b/scripts/setglobvals.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# The yhttpd Project (2003)
+# The yChat Project (2003)
 #
 # This script sets up some variables in src/glob.h 
 
diff --git a/scripts/stats.pl b/scripts/stats.pl
index fcbcd33..38cc67c 100755
--- a/scripts/stats.pl
+++ b/scripts/stats.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# The yhttpd Project (2003 - 2004)
+# The yChat Project (2003 - 2004)
 #
 # This script generates source code and project statistics