<% include("/elements/header.html", 'Upload business card' ) %> % if ( $error ) { Error: <% $error %>

% } else {

% my $num = 0; % foreach my $line ( @lines ) { % unless ( $num++) { % } % }

Name Title Company Email Address (1) Address (2) City, State, Zip % my @phone_types = qsearch({table=>'phone_type',order_by=>'weight'}); % foreach my $phone_type ( @phone_types ) { % next if $phone_type->typename eq 'Home'; <% $phone_type->typename |h %> phone % } Comment

<% $line %>

% } <% include('/elements/footer.html') %> <%init> my $fh = $cgi->upload('card'); my $error = ''; my @lines = (); my $session = ''; if ( defined $fh ) { local $/; my $logo_data = <$fh>; $session = int(rand(4294967296)); #XXX my $pref = new FS::access_user_pref({ 'usernum' => $FS::CurrentUser::CurrentUser->usernum, 'prefname' => "bizcard$session", 'prefvalue' => encode_base64($logo_data), 'expiration' => time + 3600, #1h? 1m? }); my $pref_error = $pref->insert; if ( $pref_error ) { die "FATAL: couldn't set preview cookie: $pref_error\n"; } @lines = eval { ocr_image($logo_data); }; $error = $@ if $error; } else { $error = 'No file uploaded'; }