Changeset 2666

Show
Ignore:
Timestamp:
04/24/08 03:54:25
Author:
miyagawa
Message:

Add userid

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • yapcasia2008/misc/nameplate-svg.pl

    r2664 r2666  
    1111 
    1212my $base_file = "namecard_2x5.svg"; 
    13 my $csv_file  = shift || "sample.csv"; 
     13my $csv_file  = shift @ARGV || "sample.csv"; 
    1414 
    1515open my $fh, $csv_file or die $!; 
     
    2727    my $ref = $csv->getline_hr($fh); 
    2828    next unless $ref->{user_id}; 
    29     warn $ref->{user_id}; 
    3029    push @users, $ref; 
    3130} 
     
    4948            $svg->text(x => $ox + 50, y => $oy + 120, style => { 'font-family' => $font, 'font-weight' => 'bold', color => 'black', 'font-size' => 16 })->cdata($role); 
    5049        } 
     50 
     51        $svg->text(x => $ox + 50, y => $oy + 140, style => { 'font-family' => $font, color => 'black', 'font-size' => 10 })->cdata($ref->{user_id}); 
    5152 
    5253        $ox = $ox == 0 ? 296 : 0;