+$last_frame = int($settings{'last'});
+%default = read_data_file(DATA_DEFAULT_PATH());
+
+for (my $frame=0; $frame<=$last_frame; $frame+=1) {
+ my %frame_data =read_data_file(
+ join_path(PATH_SEPARATOR(), DATA_PATH(), $frame)
+ );
+ %frame_data = merge_settings(\%default, \%frame_data);
+ unless ($frame == 0) {
+ push @remove_list, (
+ ($frame_data{'page'} ne '') ?
+ $frame_data{'page'} :
+ sprintf(
+ $settings{'frame'},
+ $frame, 'htm'
+ )
+ );
+ }
+ push @remove_list, (
+ ($frame_data{'frame'} ne '') ?
+ $frame_data{'frame'} :
+ sprintf(
+ $settings{'frame'},
+ $frame, $frame_data{'ext'}
+ )
+ );
+}
+push @remove_list, 'goto.htm';
+for (my $i=0; ;$i+=1) {
+ my %file_data;
+
+ %file_data = read_data_file(DATA_ATTACH_PATH().$i);
+ if ($file_data{'frame'} eq '') {
+ last;
+ }
+ if ($file_data{'content'} ne '') {
+ next;
+ }
+ push @remove_list, $file_data{'filename'};
+}
+