1 files changed, 198 insertions, 0 deletions
diff --git a/scripts/makeyhttpd.pl b/scripts/makeyhttpd.pl
new file mode 100755
index 0000000..7dd0345
--- /dev/null
+++ b/scripts/makeyhttpd.pl
@@ -0,0 +1,198 @@
+#!/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/RELEASE/DEVEL/g;
+    }
+    fwrite($_,@file);
+  }
+}
+
+print "\n";