EQTD AUTO ALERT CODE

Ted Aspiotis // tedasjob@gmail.com

EQTDA folder contains a subfolder named 'initial' , 3 *.m files , 1 *.xls , 1 *.php , 1 *.exe , 1 *.dll , 2 *.html , 1 *.php , 1 *.txt , 1 *.bat

stri.long=get(ed,'str');
stri.lat=get(ed1,'str');
stri.deta=get(ed3,'str');
stri.nam=get(ed2,'str');

fid = fopen(txtname,'r');
i=1;
line = fgetl(fid);
strhtmltxt{i}=line;

while ischar(line)
    i=i+1;
disp(line)
line = fgetl(fid);
strhtmltxt{i}=line;
end
fclose(fid)

fid = fopen('example.html','r');
i=1;
line = fgetl(fid);
strhtml{i}=line;

while ischar(line)
    i=i+1;
disp(line)
line = fgetl(fid);
strhtml{i}=line;

end
fclose(fid)

for i=1:length(strhtmltxt{1,13})
  if strhtmltxt{1,13}(i)=='2' | strhtmltxt{1,13}(i)=='3'   | strhtmltxt{1,13}(i)=='4' 
 
      
      rlat = strhtmltxt{1,13}(i:i+6);
      rlat1 = str2num(rlat);
break
  end
end

for i=1:length(strhtmltxt{1,14})
  if strhtmltxt{1,14}(i)=='1' | strhtmltxt{1,14}(i)=='2'   | strhtmltxt{1,14}(i)=='3'  | strhtmltxt{1,14}(i)=='4' 
      
  
 rlon =strhtmltxt{1,14}(i:i+6);
 rlon1 = str2num(rlon);
break
 end
end

%{
if ~isempty(adline) % prostheto kati diko moy apo to gui
 if length(stri.lat)==11
strhtml{9} = ['var myCenter=new google.maps.LatLng(' rlat ',' rlon ');']; 
strhtml{73} = ['' strhtmltxt{1,6} ' // ' strhtmltxt{1,7} ' // ' strhtmltxt{1,8} ' // ' strhtmltxt{1,9} ' // ' strhtmltxt{1,10} ' // ' strhtmltxt{1,11} ' // ' strhtmltxt{1,12} ' // ' adline ''];

else
strhtml{9} = ['var myCenter=new google.maps.LatLng(' stri.lat ',' stri.long ');'];
strhtml{73} = ['' strhtmltxt{1,6} ' // Lat: ' stri.lat ' // Long: ' stri.long ' // ' strhtmltxt{1,9} ' // ' strhtmltxt{1,10} ' // ' strhtmltxt{1,11} ' // ' strhtmltxt{1,12} ' // ' adline ''];

end 
 
else
% an den patiso tipota
 if length(stri.lat)==11
strhtml{9} = ['var myCenter=new google.maps.LatLng(' rlat ',' rlon ');']; 
strhtml{73} = ['' strhtmltxt{1,6} ' // ' strhtmltxt{1,7} ' // ' strhtmltxt{1,8} ' // ' strhtmltxt{1,9} ' // ' strhtmltxt{1,10} ' // ' strhtmltxt{1,11} ' // ' strhtmltxt{1,12} ''];

end

end
%}

if ~isempty(adline) % prostheto kati diko moy apo to gui
 if length(stri.lat)==11
strhtml{9} = ['var myCenter=new google.maps.LatLng(' rlat ',' rlon ');']; 
strhtml{73} = ['' strhtmltxt{1,6} ' // ' strhtmltxt{1,7} ' // ' strhtmltxt{1,8} ' // ' strhtmltxt{1,9} ' // ' strhtmltxt{1,10} ' // ' strhtmltxt{1,11} ' // Seismology Department UOA Event Page Here: <a href="' strhtmltxt{1,1} '" target="_blank">U.O.A Seismic event page</a> // ' adline ''];

else
strhtml{9} = ['var myCenter=new google.maps.LatLng(' stri.lat ',' stri.long ');'];
strhtml{73} = ['' strhtmltxt{1,6} ' // Lat: ' stri.lat ' // Long: ' stri.long ' // ' strhtmltxt{1,9} ' // ' strhtmltxt{1,10} ' // ' strhtmltxt{1,11} ' // Seismology Department UOA Event Page Here: <a href="' strhtmltxt{1,1} '" target="_blank">U.O.A Seismic event page</a> // ' adline ''];

end 
 
else
% an den patiso tipota
 if length(stri.lat)==11
 
strhtml{9} = ['var myCenter=new google.maps.LatLng(' rlat ',' rlon ');']; 
strhtml{73} = ['' strhtmltxt{1,6} ' // ' strhtmltxt{1,7} ' // ' strhtmltxt{1,8} ' // ' strhtmltxt{1,9} ' // ' strhtmltxt{1,10} ' // ' strhtmltxt{1,11} ' // Seismology Department UOA Event Page Here: <a href="' strhtmltxt{1,1} '" target="_blank">U.O.A Seismic event page</a> '];

else
 
strhtml{9} = ['var myCenter=new google.maps.LatLng(' stri.lat ',' stri.long ');'];
strhtml{73} = ['' strhtmltxt{1,6} ' // Lat: ' stri.lat ' // Long: ' stri.long ' // ' strhtmltxt{1,9} ' // ' strhtmltxt{1,10} ' // ' strhtmltxt{1,11} ' // Seismology Department UOA Event Page Here: <a href="' strhtmltxt{1,1} '" target="_blank">U.O.A Seismic event page</a> '];

end

%{
if length(stri.lat)==11
strhtml{9} = ['var myCenter=new google.maps.LatLng(' strhtmltxt{1,7}(11:end-1) ',' strhtmltxt{1,8}(11:end-1) ');']; 
else
strhtml{9} = ['var myCenter=new google.maps.LatLng(' stri.lat ',' stri.long ');'];
end 
%}
%'<div id="matrix">hewllo</div>';

%strhtml{81} = [stri.deta];

%stri.nam = strhtmltxt{1,12};
stri.nam = [strhtmltxt{1,9} strhtmltxt{1,11}  strhtmltxt{1,24}];
  
    statvera=stri.nam;
statvera(find(statvera==':'))='-';
statvera(find(statvera=='+'))='-';
statvera(find(statvera=='-'))='-';
statvera(find(statvera=='/'))='-';
statvera(find(statvera==' '))='';
statvera(find(statvera=='('))='_';
statvera(find(statvera==')'))='_';
statvera(find(statvera==','))='_';

stri.nam = statvera;

if length(stri.nam)==17
    stri.nam = [strhtmltxt{1,11} strhtmltxt{1,12}] ;
    statver=stri.nam;
statver(find(statver==':'))='-'
statver(find(statver==' '))='_';
statver(find(statver==','))='_';
statver(find(statver=='('))='_';
statver(find(statver==')'))='_';
statver(find(statver=='.'))='_';
stri.nam = statver;

ftpob = ftp(ftopob_domain,ftopob_username,ftopob_code);
if strcmp(ftopob_domain,'mysite')
cd(ftpob,'/public_html/seismic_events_matlab')
else
cd(ftpob,'/public_html/')    
end
stri.nam = [num2str(length(dir(ftpob))) '---'  stri.nam  '.html'];

fid = fopen([stri.nam '.html'],'w');
else
    
    
ftpob = ftp(ftopob_domain,ftopob_username,ftopob_code);
if strcmp(ftopob_domain,'')
cd(ftpob,'/public_html/seismic_events_matlab')
else
cd(ftpob,'/public_html/')    
end
stri.nam = [num2str(length(dir(ftpob))) '__'  stri.nam  '.html'];

fid = fopen([stri.nam '.html'],'wt');
end

stri.nam2 = [num2str(length(dir(ftpob))+1) '__Ted_Aspiotis_seismic_stations_data' stri.nam ];
str.nam2 = stri.nam2;
% ti deixnei sto epikedro stin proti selida
strhtml{25} = ['content:" Earthquake epicenter Latitude: ' num2str(rlat1) ' Longitude: ' num2str(rlon1) ' ' strhtmltxt{1,15} ' Magnitude: ' strhtmltxt{1,23} ' ' strhtmltxt{1,11} ' ' strhtmltxt{1,12} ' Built via Matlab Ted Aspiotis "'];
strhtml{74} = [strhtml{74} '<img src="http://www.geophysics.geol.uoa.gr/stations/maps/mech/FM20130113b.png"> <a class="black" href="http://site/seismic_events_matlab/ stri.nam2 " target="_new">Seismic Stations records</a> <img src="http://www.geophysics.geol.uoa.gr/stations/maps/mech/FM20130113b.png">'];
crd = date;
strhtml{72} =[' ' strhtml{72} ' ' crd ' '];
% to link gia to istoriko php
strhtml{1,47} = ['$wsite = " Earthquake alert // ' strhtmltxt{3} '"; '];
 
strhtml{1,48} = ['$visitlink = "http://w/seismic_events_matlab/' stri.nam '.html"; '];
 for i=1:80

fprintf(fid,'%s \n',strhtml{1,i})

end   
   
for i=4:length(strhtmltxt)
    
fprintf(fid,'%s \n',strhtmltxt{1,i})
    
end

fprintf(fid,'%s \n',strhtml{1,84})
fprintf(fid,'%s \n',' tedasjob@gmail.com</body>')
fprintf(fid,'%s \n',strhtml{1,85})

fclose(fid)

% fortono apo to xls oloys toys stathmoys
[num_data,text_data,all_data] = xlsread('stations_data.xls');

iend=length(text_data);

for i=1:iend
    
    
    
    station(i).name = all_data{i,2};
    station(i).long = all_data{i,5};
    station(i).long = station(i).long/10000;

station(i).lat = all_data{i,4};
    station(i).lat = station(i).lat/10000;

station(i).elevation = all_data{i,6};
    station(i).seismometer = all_data{i,7};
    station(i).datalogger = all_data{i,8};
    station(i).ml = 0;
   
end

for i = length(strhtmltxt)-1:-1:1 
    if strcmp(strhtmltxt{1,i}(5:7),'sta')
   
   %imgstart = i - (length(strhtmltxt) - i) + 1;
   imgstart = i+1;
   break
    end
  
end

%{
 vrisko sto autoalert toys stathmoys 
sobgc = 1;
if isempty(firstline)
imgstart = 48;
else
  imgstart = firstline;  
end
imgend = length(strhtmltxt)-6;
difimg = imgend - imgstart;

%elegxo se poia stili exo magnitude gia ta kena pio kato
if cmagn==1
    cmagnv1=2;
    cmagnv2=1;
elseif cmagn==2
    cmagnv1=1;
    cmagnv2=0;
else
    cmagnv1=0;
    cmagnv2=inf;
end
%}

geagh = 0;

ageaae = (length(strhtmltxt)) - imgstart ;

for i = 1 : ageaae

seismofrall = regexprep(strhtmltxt{1,imgstart},'[^\w'']','');
    
    seismofrallmag = strfind(seismofrall,'MLv');
    
    if isempty(seismofrallmag)
    seismofrallmag = strfind(seismofrall,'mB');
    if isempty(seismofrallmag)
        seismofrallmag = strfind(seismofrall,'mb');
    end
     sobj.magn{i} = seismofrall(seismofrallmag+2:seismofrallmag+5);
      sobj.magn{i} = str2num(sobj.magn{i});
      sobj.magn{i} = sobj.magn{i} / 1000 ;
      
    else
        
      sobj.magn{i} = seismofrall(seismofrallmag+3:seismofrallmag+6);
      sobj.magn{i} = str2num(sobj.magn{i});
      sobj.magn{i} = sobj.magn{i} / 1000 ;
      
    end
    
           
   sobj.name{i} = seismofrall(1:3) ;
 findstation = 'tonpoylo' ;
 sagha = 1;
 while strcmp(findstation,'tonpoylo')
     if sagha==1
         dong='1';
     elseif sagha==2
   sobj.name{i} = seismofrall(1:4) ;      
     else
         geagh = geagh + 1;
         break
     end
    for ik = 1:length(station)
        if strcmp(strtrim(sobj.name{1,i}),strtrim(station(1,ik).name))
            findstation = 'brika';
        station(1,ik).ml = sobj.magn{i};
        
        end
    end
    sagha=sagha+1;
 end
   
 imgstart = imgstart + 1;
    %['Bondi Beach', -33.890542, 151.274856, 4],
    
    %fprintf(fid,'%s \n',strhtmltxt{1,i})
    
end

%{
 fiaxno poia einai sto xarti kai ta bazo sto telos gia na jump
metrao = 0;
for i = 1:length(sobj.name)
    for ii = 1:length(station)
        
          if strcmp(strtrim(sobj.name{1,i}),strtrim(station(1,ii).name))
              
              %station(1,ii).ml = 'ayto tha to bro ';
              
              metrao = metrao + 1;
              position_jump_stations.n{metrao} = ii;
              station(1,ii).ml = sobj.magn{i};
              
              
              break
              
          end
    end
end

fid = fopen('earthquake_alert_seismic_stations.html','r');
i=1;
line = fgetl(fid);
str_map{i}=line;

while ischar(line)
    i=i+1;
disp(line)
line = fgetl(fid);
str_map{i}=line;

end
fclose(fid)

tobrike = 'fail';
asf = 1;
mputloc = 0;
gage=1;
supload_str_map{1,143} = ' ';
supload_str_map{1,gage} =['[' ''' <center>Earthquake epicenter </center> ' 'Epicenter: Here(Edw)!' ' ' strhtmltxt{1,11} ' ' strhtmltxt{1,12} ' Magnitude: ' strhtmltxt{1,23} ' Depth: ' strhtmltxt{1,15} ' Lat/Long: ' num2str(rlat1) ' / ' num2str(rlon1) ' Built via Matlab Ted Aspiotis' ' <img src="http://www.geophysics.geol.uoa.gr/stations/maps/mech/FM20130113b.png"> <a class="black" href="http:///seismic_events_matlab/' stri.nam '.html" target="_new">Seismic Stations data</a> <img src="http:///favicon%20(4).ico">' ''' , ' num2str(rlat) ' , ' num2str(rlon) ',' num2str(mputloc) '],' ];
for i=1:iend
 
 % for ii=1:length(position_jump_stations.n)
 if station(1,i).ml~=0
 if mputloc == 0
 
 supload_str_map{1,iend} = ['[' '''Station name: ' station(1,i).name ' '' + '' <img src="http:///favicon%20(4).ico"> '' + '' Longitude: ' num2str(station(1,i).long) ' '' + '' Latitude: ' num2str(station(1,i).lat) ' '' + '' Elevation: ' num2str(station(1,i).elevation) ' '' + '' Seismometer: ' station(1,i).seismometer ' '' + '' Datalogger: ' station(1,i).datalogger ' '' + '' Magnitude: ' num2str(station(1,i).ml) ''' , ' num2str(station(1,i).lat) ' , ' num2str(station(1,i).long) ',' num2str(i) '],' ];
 
 else
 supload_str_map{1,iend-mputloc} = ['[' '''Station name: ' station(1,i).name ' '' + '' <img src="http:///favicon%20(4).ico"> '' + '' Longitude: ' num2str(station(1,i).long) ' '' + '' Latitude: ' num2str(station(1,i).lat) ' '' + '' Elevation: ' num2str(station(1,i).elevation) ' '' + '' Seismometer: ' station(1,i).seismometer ' '' + '' Datalogger: ' station(1,i).datalogger ' '' + '' Magnitude: ' num2str(station(1,i).ml) ''' , ' num2str(station(1,i).lat) ' , ' num2str(station(1,i).long) ',' num2str(i) '],' ];
 
 end
 
 mputloc = mputloc +1;
 % tobrike = 'true';
 % mputloc = mputloc +1;
 % end
 % end
 else
 %a = ['''' station(1,i).name ' '' + '' ' num2str(station(1,i).long) ' '' + '' ' num2str(station(1,i).lat) ' '' + '' ' num2str(station(1,i).elevation) ' '' + '' ' station(1,i).seismometer ' '' + '' ' station(1,i).datalogger ' '' + '' ' num2str(station(1,i).ml) ];
 %if strcmp(tobrike,'fail')
 
 gage = gage + 1;
 supload_str_map{1,gage} = ['[' '''Station name: ' station(1,i).name ' '' + '' <img src="http:///favicon%20(4).ico"> '' + '' Longitude: ' num2str(station(1,i).long) ' '' + '' Latitude: ' num2str(station(1,i).lat) ' '' + '' Elevation: ' num2str(station(1,i).elevation) ' '' + '' Seismometer: ' station(1,i).seismometer ' '' + '' Datalogger: ' station(1,i).datalogger ' '' + '' Magnitude: ' num2str(station(1,i).ml) ''' , ' num2str(station(1,i).lat) ' , ' num2str(station(1,i).long) ',' num2str(i) '],' ];
 
 
 
 %mputloc = mputloc +1;
 %end
%tobrike = 'fail';
 end
end

%str_map{1,11} = [str_map{1,11} ' <iframe src="http:///leg6.jpg" STYLE="position:absolute; TOP:70%; LEFT:80%; WIDTH:20%; HEIGHT:30%"></iframe> '];

%str.nam2 = ['Ted_Aspiotis___'  stri.nam 'greece_seismometers.html'];
fid = fopen(str.nam2,'wt');
for i=1:14
    
fprintf(fid,'%s \n',str_map{1,i})
    
end
for i=1:143
    
fprintf(fid,'%s \n',supload_str_map{1,i})
    
end

str_map{1,86} = ['$wsite = " Google Maps Earthquake alert // '  strhtmltxt{3} '"; '];
 
str_map{1,87} = ['$visitlink = "http:///seismic_events_matlab/' stri.nam2  '.html";  '];

for i=16:length(str_map)-3
 
 if i == 39
 fprintf(fid,'%s \n', [ 'for (i = 0; i < locations.length-' num2str( mputloc-geagh) '; i++) { ' ]);
 
 elseif i==61
 fprintf(fid,'%s \n',[ 'for (i = locations.length-' num2str(mputloc-geagh) '; i < locations.length; i++) { ']);
 
 else
 
fprintf(fid,'%s \n',str_map{1,i})
 end
 
end
fprintf(fid,'%s \n',' Ted Aspiotis // tedasjob@gmail.com // ')
fprintf(fid,'%s \n','</body>')
fprintf(fid,'%s \n','</html>')

fclose(fid)

% gia server

% sto 1 site exo sql db poy sozo to istoriko. se alla sites den ginete

if strcmp(ftopob_domain,'')
mput(ftpob,[stri.nam  '.html'])
mput(ftpob,str.nam2)
else 
  mput(ftpob,[stri.nam2 '.html'])  
end

close(ftpob)

%system(['seismic_events_matlab/' stri.nam  '.html'])

web(['http:///seismic_events_matlab/' stri.nam  '.html'], '-browser')
web(['http:///seismic_events_matlab/' str.nam2], '-browser')

if ~isempty(lineforcode)
    
    fid = fopen('seismic_alerts.php','r');
i=1;
line = fgetl(fid);
alerts{i}=line;

while ischar(line)
    i=i+1;
disp(line)
line = fgetl(fid);
alerts{i}=line;
end
fclose(fid)

cd(ftpob,'/public_html/seismic_events_alerts')
stri.nam3 = [num2str(length(dir(ftpob))+1) '__' stri.nam '_seismic_alerts.php'];

fid = fopen(stri.nam3,'w');
alerts{1,25} = ['$strSubject = "Earthquake//'  strhtmltxt{1,13}(27:end-18) '//' strhtmltxt{1,14}(27:end-18) '//' strhtmltxt{1,15}(32:end-7) '//M ' strhtmltxt{1,24}(12:end-24) '";' ];

alerts{1,26} = ['$strMessage = '' <html><body><a href = "http:/com/seismic_events_matlab/' stri.nam2 '"><img STYLE="position:absolute; TOP:22%; LEFT:84%; WIDTH:64%; HEIGHT:46%" src="http://seismology.gr/sep.jpg"></a> </body></html> ---Earthquake Alert--- ' strhtmltxt{1,13} ' ' strhtmltxt{1,14} ' ' strhtmltxt{1,15} ' ' strhtmltxt{1,23} ' link1: http://seismology.gr/seismic_events_matlab/' stri.nam '.html link2: http://seismology.gr/seismic_events_matlab/' stri.nam2 ' undergraduate student Ted Aspiotis // tedasjob@gmail.com National and Kapodistrian University of Athens Geology and Geoenvironment department <html><body> <a href="http://seismology.gr/seismic_events_matlab/' stri.nam '.html"> <img src="http://seismology.gr/seismic_events_matlab/seizmo.png"></a> </body></html>'';' ];
 
 
for i=1:length(alerts)
 
if i==25
 fprintf(fid,'%s \n',alerts{1,25})
elseif i==26
 fprintf(fid,'%s \n',alerts{1,26})
else
 
 fprintf(fid,'%s \n',alerts{1,i}) 
end
end

fclose(fid) 
mput(ftpob,[stri.nam3])
 web(['http://seismology.gr/seismic_events_alerts/' stri.nam3], '-browser')
   
end

close(ftpob)

curcd = cd;
got = [curcd '\initial'];
movefile([stri.nam '.html'],got,'f')
movefile(str.nam2,got,'f')

if ~isempty(lineforcode)
movefile([stri.nam3],got,'f')
end

cd(curcd)

%mcc -t -L C -W lib:earthquake_v2_tedas -T link:lib -h main_quake.m quake.m libmmfile.mlib
%mcc -m main_quake.m quake.m

==========================================================================================

main.quake.m

clear all
clc
close all
figure

set(gcf,'numberTitle','off','Name',...
    'Earthquake Alert // FTP server connector built seismic event // Ted Aspiotis // tedasjob@gmail.com',...
    'menuBar','none','un','nor','pos',...
    [0.2453    0.2526    0.5000    0.4648],'Color',[0 0 0])

ed = uicontrol('style','edit','un','norm','str','Type long...',...
    'pos',[.05 .7 .2 .06 ],'back',[0 0 0],'for',[0 1 0],...
    'callb','');

ed1 = uicontrol('style','edit','un','norm','str','Type lat...',...
    'pos',[.05 .6 .2 .06],'back',[0 0 0],'for',[0 1 0],...
    'callb','');

ed3 = uicontrol('style','push','un','norm','str','New Event Web Page',...
    'pos',[.05 .1 .2 .06],'back',[0 0 0],'for',[0 1 0],...
    'callb','main_quake');

ed2 = uicontrol('style','edit','un','norm','str','Name Page Here...',...
    'pos',[.05 .8 .2 .06],'back',[0 0 0],'for',[0 1 0],...
    'callb','');

ad_linet = uicontrol('style','text','un','norm','str',' seismic_data // HERE ' ,...
 'pos',[.34 .76 .32 .06],'back',[0 0 0],'for',[0 1 0]);

ad_line = uicontrol('style','edit','un','norm','str','<code here>',...
 'pos',[.4 .7 .2 .06],'back',[0 0 0],'for',[0 1 0],...
 'callb','adline=get(ad_line,''str'');');
adline=[];
line = uicontrol('style','push','un','norm','str','Send Alert Mail php',...
 'pos',[.7 .7 .2 .06],'back',[0 0 0],'for',[0 1 0],...
 'callb','lineforcode=1;');

lineforcode=[];
start_station = uicontrol('style','edit','un','norm','str','<line for first station>',...
 'pos',[.54 .5 .2 .06],'back',[0 0 0],'for',[0 1 0],...
 'callb','firstline=get(start_station,''str'');,firstline=str2num(firstline);');

start_station = uicontrol('style','pushb','un','norm','str','*txt Earthquake alert data',...
    'pos',[.54 .5 .2 .06],'back',[0 0 0],'for',[0 1 0],...
    'callb','[txtname,txtdir,dataa] = uigetfile(''*.txt'',''Select *txt seismic data file'');');

%[a,b,ad2] = xlsread('magnitudes.xls');

ml1 = uicontrol('style','push','un','norm','pos',[.5 .3 .05 .05],...
    'str','ml 1','back',[0 0 0],'for',[1 0 0],'callb','cmagn=1;');

cmagn=[];
firstline=[];
ML2 = uicontrol('style','push','un','norm','pos',[.62 .3 .05 .05],...
    'str','ML 2','back',[0 0 0],'for',[0 1 0],'callb','cmagn=2;');

mb3 = uicontrol('style','push','un','norm','pos',[.74 .3 .05 .05],...
    'str','mb 3','back',[0 0 0],'for',[0 1 0],'callb','cmagn=3;');

uplo = uicontrol('style','push','un','norm','pos',[.85 .1 .1 .1],...
    'str','Upload','back',[0 0 0],'for',[1 0 0],'callb','quake');

ftopob_domain = 'sd';
ftopob_username = '';
ftopob_code = '';

nftc = uicontrol('style','text','un','norm','str',' - Load to your Site -',...
    'pos',[.1 .46 .2 .06],'back',[0 0 0],'for',[0 1 0],...
    'callb','ftopob_domain=get(conftp_domain,''str'');');

conftp_domain = uicontrol('style','edit','un','norm','str','Domain',...
    'pos',[.1 .4 .2 .06],'back',[0 0 0],'for',[0 1 0],...
    'callb','ftopob_domain=get(conftp_domain,''str'');');

conftp_u = uicontrol('style','edit','un','norm','str','Username',...
    'pos',[.1 .3 .2 .06],'back',[0 0 0],'for',[0 1 0],...
    'callb','ftopob_username=get(conftp_u,''str'');');

conftp_c = uicontrol('style','edit','un','norm','str','Code',...
    'pos',[.1 .2 .2 .06],'back',[0 0 0],'for',[0 1 0],...
    'callb','ftopob_code=get(conftp_c,''str'');');

=======================================================================

eq.html

<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml">
 
<head> <link rel="shortcut icon" href="http://seismology.gr/favicon%20(4).ico">
 <meta http-equiv="content-type" content="text/html; charset=UTF-8" /> 
 <title>Earthquake alert tedas</title> 
 <script src="http://maps.google.com/maps/api/js?sensor=false" 
 type="text/javascript"></script>
</head> 
<body>
.
.
.

4 main html & 1 php initial prototype files (private)