view release on metacpan or  search on metacpan

htdocs/assets/templates/app/office/contacts/import.vcards.js  view on Meta::CPAN

var import_vcards_callback =
{
	// Note: Use upload, not success, with file uploads.

	upload: function(o)
	{
		var e = document.getElementById("import_vcards_result");

		if (o.responseText !== undefined)
		{
			var column_defs =
			[
			 {key: "count", label: "Count"},
			 {key: "name", label: "Name"},
			 {key: "status", label: "Status"},

htdocs/assets/templates/app/office/contacts/import.vcards.tmpl  view on Meta::CPAN

<tr>
<td>Communicate</td><td><tmpl_var name=communication_types></td>
</tr>
<tr>
<td>Role</td><td><tmpl_var name=roles></td>
</tr>
<tr>
<td>File name</td><td><input type="file" name="vfile_name" id="vfile_name" size="60" /></td>
</tr>
<tr>
<td align="center" colspan="2"><input type="submit" name="submit_upload" value="Upload vFile" /></td>
</tr>
</table>
<input type="hidden" name="sid" id="sid" value="<tmpl_var name=sid>" />
</form>
<table align="center">
<tr><td><div id="import_vcards_result"></div></td></tr>
</table>

lib/App/Office/Contacts/Import/vCards/Controller/Import.pm  view on Meta::CPAN

	my($vfile_name) = $self -> query -> param($field_name);

	if (! $vfile_name)
	{
		return $self -> param('view') -> viewer -> format([{name => 'No file name provided', status => 'Error'}])
	}

	# Build some of the progress report.
	# Note: This report, @progress, is not actually output.

	my($fh)        = $self -> query -> upload($field_name);
	my($mime_type) = ${$self -> query -> uploadInfo($vfile_name)}{'Content-Type'};

	my(@progress);

	push @progress, "file_name => $vfile_name";
	push @progress, 'file_size => ' . (-s $fh);
	push @progress, "mime_type => $mime_type";

	# Parse the VCF into XML and then into text.

	my($start_time) = time;