#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use XML::LibXML;

## how many lines of the password file to look at?
my $limit=$ARGV[0];
if(not defined($limit)) {
  print "no limit\n";
  exit;
}

## get the password for wotan as me
my $whoami=`whoami`;
chomp $whoami;
my $get_command="ssh $whoami\@wotan cat /etc/passwd | tail -$limit";

my $line;
foreach $line (`$get_command`) {
  my $data=&parse_line($line);
  print &format_yodl($data);
}

## from wotan's perl/passwd_to_gradesheet
sub parse_line {
  my $line=shift;
  # returned value
  my $o;
  my @fields=split(':',$line);
  #print Dumper @fields;
  $o->{'user'}=$fields[0];
  ## personal information
  my $personal=$fields[4];
  @fields=split(',',$personal);
  $o->{'name'}=$fields[0];
  $o->{'email'}=$fields[4];
  return $o;
}


sub format_yodl {
  my $o=shift;
  my $user=$o->{'user'};
  my $name=$o->{'name'};
  return "surl($name)(http://wotan.liu.edu/home/$user/) surl($name's omeka site)(http://wotan.liu.edu/omeka/$user/)nl()\n"; 
}