1 files changed, 0 insertions, 198 deletions
diff --git a/0.8/scripts/makeyhttpd.pl b/0.8/scripts/makeyhttpd.pl
deleted file mode 100755
index 5a44462..0000000
--- a/0.8/scripts/makeyhttpd.pl
+++ /dev/null
@@ -1,198 +0,0 @@
-#!/usr/bin/perl
-
-# The yChat & yhttpd Project (2004, 2005)
-#
-# This scripts modifies the yChat sources to yhttpd sources.
-
-use strict;
-use scripts::modules::file;
-
-my @delete = ( 
- 'CHANGES',
- 'g++.version',
- 'TODO',
- 'NEWS',
- 'docs',
- 'src/chat',
- 'src/memb',
- 'src/data',
- 'src/irc',
- 'src/contrib/crypt',
- 'src/modl.h',
- 'src/modl.cpp',
- 'src/mods',
- 'obj',
- 'mods',
- 'html',
- 'log/rooms',
- 'scripts/makeyhttpd.pl',
- 'scripts/mergeconf.pl',
- 'bin/ychat',
- 'bin/ychat.old',
-);	
-
-my @createdir = (
- 'html'
-);
-
-my %substituate = (
-  'ychat' => 'yhttpd',
-  'yChat' => 'yhttpd',
-  'YCHAT' => 'YHTTPD',
-  'CHAT' => 'HTTPD',
-  'yhttpd.org' => 'yChat.org',
-  '//>>' => ''
-);
-
-if ( -d "../yhttpd" ) {
-  print "Removing ../yhttpd\n";
-  system("rm -Rf ../yhttpd");
-}
-
-print "Creating new ../yhttpd\n";
-system("cp -Rp ../ychat ../yhttpd");
-
-chdir("../yhttpd");
-system("gmake clean");
-
-my @deletelines;
-foreach (@delete) {
-  next unless -d $_;
-  foreach (dopen($_)) {
-    next unless /\.h$/;
-    push @deletelines, $_;
-  }
-}
-
-print "Moving html templates\n";
-system("mv html/test.cgi .");
-system("mv html/demo.html .");
-system("mv html/style.css .");
-system("mv html/notfound.html .");
-
-print "Removing dirs and files\n->";
-foreach (@delete) {
-  next unless -f $_ || -d $_;
-  print " $_";
-  system("rm -Rf $_"); 
-}
-
-print "\nDeleting CVS directories\n";
-system("find . -name CVS | xargs rm -Rf");
-
-print "Creating new dirs\n->";
-foreach (@createdir) {
-  print " $_";
-  system("mkdir $_"); 
-}
-
-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 "Editing etc/yhttpd.conf\n";
-&edit_yhttpd_conf();
-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("."))
- {
-   next if /^\.+$/;
-   print " $_";
-
-   if ( -f $_ )
-   {
-     my @newfile;
-     my $flag = 0;
-
-     for my $line (fopen($_))
-     {
-	$flag = 1 if $line =~ /\/\/<<\*/;	
-        if ($flag == 0 && $line !~ /\/\/<</) {
-          for ( @deletelines )
-          {
-             if ($line =~ /$_/)
-             {
-                $flag = 3;
-                last;
-             }
-          }
-
-          if ($flag != 3 )
-          {
-            map { $line =~ s/$_/$substituate{$_}/eg } keys %substituate;
-            push @newfile, $line;
-          } 
-
-          else
-          {
-            $flag = 0;
-          }
-        }
-	$flag = 0 if $line =~ /\/\/\*>>/;	
-     }
-
-     &fwrite($_, @newfile);
-   } 
-
-   elsif ( -d $_ )
-   {
-     # Recursive
-     &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";