Windows 95 Super Collection/Windows 95 Super Collection.iso/win95/programm/perl32b3/smtp.pl

Text File | 1995-06-21 | 726 b | 39 lines

require 'hives.pl';

if ( &setupSMTP )
{
   print 'SMTP Mail Registry Update Successfully Completed...',"\n";
}
else
{
   print 'SMTP Mail Registry Update Failed...',"\n";
}

print 'Please Hit Any Key to Exit...';

getc;

sub setupSMTP
{
       local( $smtpKey );

       $smtpKey= 'SOFTWARE\Microsoft\Windows\CurrentVersion\Setup\OptionalComponents';

       &setLM( $smtpKey,'Route66',$REG_SZ,'Route66' ) || return 0;

       $smtpKey .= '\Route66';

       &cKeyLM( $smtpKey ) || return 0;

       &setLM( $smtpKey,'INF',$REG_SZ,'mailopt.inf' ) || return 0;

       &setLM( $smtpKey,'Installed',$REG_SZ,'0' ) || return 0;

       &setLM( $smtpKey,'Section',$REG_SZ,'route66' );
}