$datafile = '.shared.template';
		my $shared = '';
		if (-e $datafile) {
			($err, $text) = &ReadFile($datafile);
			foreach (split(m!\n!, $text)) {
				next unless (m!^(.+)\=(.*)$!);
				next if (defined($FORM{"shared_$1"}));
				$shared .= "$_\n";
				}
			}
		foreach (keys %FORM) {
			next unless (m!^shared_(.+)$!);
			$shared .= &ue($1) . '=' . &ue($FORM{$_}) . "\n";
			}
		$err = &WriteFile($datafile, $shared);
		next Err if ($err);