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

% } else {
% my $num = 0; % foreach my $line ( @lines ) { % unless ( $num++) { % } % }
<% $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'; }