sendmail.m

matlab处理图像的一些基本方法。其中有一部分mex程序需要安装编译

function sendmail(command)
%SENDMAIL Send comments via e-mail to the alex group.
%
%	SENDMAIL(COMMAND)
%
%		COMMAND: - EDIT  Edit a window for text entry
%			 - BUGS  Bugs info
%			 - SEND  Send the mail
%			 - CLOSE Close the mail window.
%  Claudio  May, 10 1995
%

%
% Copyright (c) 1995 by Claudio Rivetti and Mark Young
% [e-mail],    [e-mail]
%

global mailfig ed_mail comments Uibgcolor TempDir

mail_tmp_file=[TempDir 'mailalex.txt'];
alex_address1='[e-mail]';
alex_address2='[e-mail]';

if strcmp(upper(command), 'EDIT')

  f=findobj('name', 'Mail to Alex...');
  if ~isempty(f)
    figure(f);
    return;
  end

  mailfig=figure('Name', 'Mail to Alex...', 'NumberTitle', 'off', 'position', [260 410 678 550], 'color', Uibgcolor);

  axes;axis([0 100 0 100]);axis off;

  if isempty(comments)
    comments='My comments are:';
  end
  t=text(50, 105, 'Send comments, suggestions and found bugs to Alex...');
  set(t, 'HorizontalAlignment', 'Center', 'FontName', 'cave', 'color', 'yellow');

  ed_mail=uicontrol(mailfig, 'Style', 'edit',...
		'String', comments,...
		'min', 1,...
		'max', 10,...
		'Units', 'normalized',...
		'position', [0.1 0.25 0.8, 0.66],...
		'Value', 1,...
		'UserData', 0,...
		'Backgroundcolor', [0.2549 0.5887 0.4657],...
		'Foregroundcolor', [1 1 1],...
		'HorizontalAlignment', 'left',...
		'CallBack', '');

  uicontrol(mailfig, 'Style', 'text', ...
		'String', alex_address1, ...
		'Units', 'normalized', ...
		'Position', [0.03 0.20 0.4 0.035], ...
		'Horiz', 'left',...
		'Backgroundcolor', Uibgcolor,...
		'Foregroundcolor', [.3 .3 .3]);

  uicontrol(mailfig, 'Style', 'text', ...
		'String', alex_address2, ...
		'Units', 'normalized', ...
		'Position', [0.03 0.16 0.4 0.035], ...
		'Horiz', 'left',...
		'Backgroundcolor', Uibgcolor,...
		'Foregroundcolor', [.3 .3 .3]);

  bt_send=uicontrol(mailfig, 'Style', 'push', ...
		'String', 'Send', ...
		'Units', 'normalized', ...
		'Position', [0.1 0.05 0.15 0.08], ...
		'Backgroundcolor', [0.6623 0 0.2571],...
		'Foregroundcolor', [1 1 1],...
		'CallBack', 'sendmail(''send'');');

  bt_bugs=uicontrol(mailfig, 'Style', 'push', ...
		'String', 'Bugs?', ...
		'Units', 'normalized', ...
		'Position', [0.425 0.05 0.15 0.08], ...
		'Backgroundcolor', [0.6623 0 0.2571],...
		'Foregroundcolor', [1 1 1],...
		'Interruptible', 'yes',...
		'CallBack', 'sendmail(''bugs'');');

  bt_close=uicontrol(mailfig, 'Style', 'push', ...
		'String', 'Close', ...
		'Units', 'normalized', ...
		'Position', [0.75 0.05 0.15 0.08], ...
		'Backgroundcolor', [0.6623 0 0.2571],...
		'Foregroundcolor', [1 1 1],...
		'CallBack', 'sendmail(''close'');');


end % EDIT


%%%%%%%%%%%%%%%%%  SEND  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

if strcmp(upper(command), 'SEND')

  txt=get(ed_mail, 'string');
  writestr(mail_tmp_file, txt);
  unix(['mail ' alex_address1 ' < ' mail_tmp_file]);
  unix(['mail ' alex_address2 ' < ' mail_tmp_file]);
  delete(mail_tmp_file);
end  % SEND


%%%%%%%%%%%%%%%%%  BUGS  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

if strcmp(upper(command), 'BUGS')

  msg=str2mat('In order to facilitate the bugs fixing please...',...
		'  ',...
		' - Describe the operation where the error occurred.',...
		' - Indicate the file name(s) and the error line that are displayed.',...
		' - Say if it happens occasionally or sistematicly.',...
		' - If you can, make a suggestion.',...
		' ',...
		' Thank you very much,',...
		'                         Claudio & Mark.   ');
  
  display_text(msg, 'Bugs Report...', [350   435   660   300]);
end  % BUGS

 
%%%%%%%%%%%%%%%%%  CLOSE  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

if strcmp(upper(command), 'CLOSE')
  comments=get(ed_mail, 'string');
  close(mailfig);
end  % CLOSE

return