logo
Apache Lounge
Webmasters

 

About Forum Index Downloads Search Register Log in RSS X


Keep Server Online

If you find the Apache Lounge, the downloads and overall help useful, please express your satisfaction with a donation.

or

Bitcoin

A donation makes a contribution towards the costs, the time and effort that's going in this site and building.

Thank You! Steffen

Your donations will help to keep this site alive and well, and continuing building binaries. Apache Lounge is not sponsored.
Post new topic   Forum Index -> Apache View previous topic :: View next topic
Reply to topic   Topic: Uninstalling Apache 1.3.33 as a Service
Author
wampnewbie



Joined: 12 Nov 2005
Posts: 2
Location: North Carolina

PostPosted: Sat 12 Nov '05 22:05    Post subject: Uninstalling Apache 1.3.33 as a Service Reply with quote

Hello,

I have an uninstall problem.

I am just starting with WAMP and first downloaded and installed Apache 1.3.33.

I then decided to go with the more recent Apache 2 release for Windows.

After uninstalling Apache 1.3.33, it still showed up as a service. I then deleted the Apache folder containing 1.3.33 and upon reboot, CHKDSK found corrupted attributes, etc, that it fixed successfully. Even after this reboot and corruption fix, Apache 1.3.33 still showed up as a service. (Under File/Options in the Services window/dialog, my console is using 0 bytes to store console changes in my profile, so Disk Cleanup does not give me the option to "Delete Files" from here.)

I then reinstalled 1.3.33 exactly where it was to begin with(default) in hopes that I could properly uninstall it in some special way that applies to services. However, I can find no documentation on how to do this.

Can anyone help me out with this simple task? I currently have Apache 1.3.33 and Apache 2X installed as services on my computer. They both work properly. I would like to uninstall 1.3.33 cleanly, so that it disappears from my service list.

Thanks in advance.

newbie
Back to top
Steffen
Moderator


Joined: 15 Oct 2005
Posts: 3093
Location: Hilversum, NL, EU

PostPosted: Sat 12 Nov '05 22:37    Post subject: Reply with quote

Ik think here is the answer to remove an Apache service : http://httpd.apache.org/docs/1.3/win_service.html

Btw. which windows are you running ?

Steffen
Back to top
wampnewbie



Joined: 12 Nov 2005
Posts: 2
Location: North Carolina

PostPosted: Sun 13 Nov '05 3:06    Post subject: thanks Reply with quote

thanks. I didn't see the command line to remove an apache service buried in this doc.

I am running Windows XP Home Edition with SP2 and all the latest patches/security fixes installed. I am planning on developing locally on my machine and then uploading to a webhost that I have yet to choose/purchase.

thanks again for your help.

newbie
Back to top
ivo3510



Joined: 19 Nov 2005
Posts: 1

PostPosted: Sat 19 Nov '05 0:24    Post subject: Reply with quote

hello.i think,that you need a simple .bat file,there is the code:
""""""


@rem = '--*-Perl-*--
@echo off
if exist .\perl\bin\perl.exe goto perlexefound
echo.
echo ERROR: Can not find .\perl\bin\perl.exe
echo.
goto endofperl

:perlexefound
.\perl\bin\perl -w -I.\perl\lib uninstall.bat %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
@rem ';
#!perl -w
#################################################################
#
# script to set up path and shortcuts to the Perl installation
# run this bat file from the directory where perl is installed
#
#################################################################

@rem = (); # eliminate warning

use Config;
use Win32::API;
use Win32::Shortcut;
use Win32::Registry;
use strict;
use DSUtil;


my $shortcutfoldername = "IndigoPerl 2004";
my $configUser = 0; # set up user path and shortcuts instead of shared ones
my $debug_pretent_tobe_95 = 0;


open (LOG, ">>install.log");
my $date = localtime(time());
print LOG "\n**** Uninstaller started at $date ****\n";

print "This script will uninstall IndigoPerl $]\n\n";

my $install_directory = Win32::GetCwd();
RemoveShortcuts($shortcutfoldername, $configUser);
RemovePath("$install_directory\\perl\\bin");
StopApacheService("$install_directory\\apache") if Win32::IsWinNT();
UninstallApacheService("$install_directory\\apache") if Win32::IsWinNT();

print "\nTo complete the uninstallation manually stop the ApacheMonitor if it is running\n";
print "and remove the folder $install_directory\n";
print "FINISHED.\nPress enter to continue"; <STDIN>;
exit 0;



sub RemoveShortcuts
{
my ($shortcutfoldername, $configUser) = @_;
print "Removing shortcut from $shortcutfoldername\n";
print LOG "Removing shortcut from $shortcutfoldername\n";

my ($key);
if ($configUser || Win32::IsWin95()) {
$key = 'HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Programs';
} else {
$key = 'HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Programs';
}
my $folderdir = DS::GetReg($key);
my $folderpath = "$folderdir\\$shortcutfoldername";
my $startup_folderpath = "$folderdir\\StartUp";

if (!-d $folderpath) {
print "Shortcut folder $folderpath not found\n";
return;
}

unlink (
"$folderpath\\Apache Documentation.lnk",
"$folderpath\\Apache Service - Start.lnk",
"$folderpath\\Apache Service - Stop.lnk",
"$folderpath\\Apache Service - Restart.lnk",
"$folderpath\\Apache Monitor.lnk",
"$startup_folderpath\\Apache Monitor.lnk",

"$folderpath\\Start Apache.lnk",
"$startup_folderpath\\Start Apache.lnk",

"$folderpath\\Perl Console.lnk",
"$folderpath\\Perl Documentation.lnk",
"$folderpath\\PHP Documentation.lnk",
"$folderpath\\Uninstall.lnk",
"$folderpath\\View Access Log.lnk",
"$folderpath\\View Config.lnk",
"$folderpath\\View Error Log.lnk",
"$folderpath\\View Website.lnk",
);

# win98
unlink (
"$folderpath\\Start Apache.pif",
"$folderpath\\Uninstall.pif",
"$startup_folderpath\\Start Apache.pif",
);

rmdir "$folderpath";
}







sub RemovePath
{
my ($long_required_path) = @_;
my $new_path;
my $debug_addpath = 0;

# Remove required_path from PATH environment if necessary
print "Removing $long_required_path from path\n";
print LOG "Removing $long_required_path from path\n";

my $required_path = Win32::GetShortPathName ($long_required_path);
if (!$required_path) {
print "ERROR: AddPath: directory '$long_required_path' must exist before calling AddPath\n";
return;
}

my $current_path = GetPath();
print LOG "current_path=$current_path\n";

$new_path = $current_path;
$new_path =~ s/^\Q$required_path\E$//i; # path=x only
$new_path =~ s/^\Q$required_path\E;//i; # path=x;a;b beginning
$new_path =~ s/;\Q$required_path\E$//i; # path=a;x;b path=a;b;x middle or end

if ($new_path ne $current_path) {
print LOG "new_path=$new_path\n";
SetPath($new_path);
if(Win32::IsWinNT() && !$debug_pretent_tobe_95) {
print "Path will take effect when any new window is opened\n";
}
else {
print "Path will take effect after a reboot\n";
print "\nPLEASE REBOOT YOUR COMPUTER\n\n";
}
}
else {
print "Path not changed\n";
print LOG "Path not changed\n";
}
}



sub GetPath
{
my $current_path;
my $autoexec_bat = "c:\\autoexec.bat";
if(Win32::IsWinNT() && !$debug_pretent_tobe_95) {
my $key = $configUser ? 'HKCU\Environment\path' :
'HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\path';
$current_path = DS::GetReg($key);
return $current_path;
}
else {
my $data = DS::ReadFile($autoexec_bat);
if ($data =~ m/(.*)(^|\n)(set\s+|)(\s*path\s*=\s*)(.*?)(\n|$)/is) {
$current_path = $5;
}
else {
$current_path = "";
}
}
return $current_path;
}



sub SetPath
{
my ($new_path) = @_;
my $debug_addpath = 0;
my $autoexec_bat = "c:\\autoexec.bat";
my $autoexec_bak = "autoexec.bak";
if(Win32::IsWinNT() && !$debug_pretent_tobe_95) {
my $key = $configUser ? 'HKCU\Environment\path' :
'HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\path';
DS::SetReg($key, "$new_path");
my $SendMessageTimeout = new Win32::API("user32", "SendMessageTimeout",
['N','N','N','P','N','N','P'], 'N');
my $dwResult = pack("L", 0);
$SendMessageTimeout->Call(0xffff, 0x001A, 0, "Environment", 0x0002, 5000,$dwResult);
}
else {
my $data = DS::ReadFile($autoexec_bat);
DS::WriteFile($autoexec_bak, $data);
print "Old autoexec.bat =\n'$data'\n" if $debug_addpath;
if ($data =~ m/(.*)(^|\n)(set\s+|)(\s*path\s*=\s*)(.*?)(\n|$)/is) {
$data =~ s/(.*)(^|\n)(set\s+|)(\s*path\s*=\s*)(.*?)(\n|$)/$1$2$3$4$new_path$6/is;
print "New autoexec.bat =\n'$data'\n" if $debug_addpath;
}
else {
# no path in autoexec
if ($data eq "") {
$data = "PATH=$new_path\n";
} else {
$data .= "\nPATH=$new_path\n";
}
print "New autoexec.bat =\n'$data'\n" if $debug_addpath;
}
chmod(0777, $autoexec_bat); # JIC
DS::WriteFile($autoexec_bat, $data);
}
}



sub StopApacheService
{
my ($apache_directory) = @_;
# TOD need a way to stop ApacheMonitor

print "Stopping Apache Service\n";
print LOG "Stopping Apache Service\n";
my $apache_dir = $apache_directory;
$apache_dir =~ s|\\|/|g;
my $config_file = "$apache_dir/conf/httpd.conf";
my $cmd = "\"$apache_directory\\bin\\apache.exe\" -f \"$config_file\" -k stop";
print LOG "cmd=$cmd\n";
my $rc = system($cmd);
print LOG "rc=$rc\n";
}



sub UninstallApacheService
{
my ($apache_directory) = @_;

print "Uninstalling Apache Service\n";
print LOG "Uninstalling Apache Service\n";
my $apache_dir = $apache_directory;
$apache_dir =~ s|\\|/|g;
my $config_file = "$apache_dir/conf/httpd.conf";
my $cmd = "\"$apache_directory\\bin\\apache.exe\" -f \"$config_file\" -k uninstall";
print LOG "cmd=$cmd\n";
my $rc = system($cmd);
print LOG "rc=$rc\n";
}




__END__
:endofperl



""""""
of cource,if you are using perl.
i suggest you a simple to install package from indigoperl,which i used over two years whitout any problems,even if i reinstall hte entire os(xp pro)
Back to top


Reply to topic   Topic: Uninstalling Apache 1.3.33 as a Service View previous topic :: View next topic
Post new topic   Forum Index -> Apache