#!/usr/bin/perl use lib '.'; require "pagelib.pl"; header(); head(); print "
\n"; #print "Content-type: text/html\n\n"; #print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; if(open(SETF,"/home/dave/lego/mysets/sets2.txt")) { while() { # next unless /castle/i; if(!/^\#/) { if(/^([\dA-Z\?]+)\t+/) { chomp; s/\n//g; $num = $1; s/\"//g; @dat = split /\t+/; if($dat[1] !~ /\w/) { push @warnings,"Strange description for id $dat[0]: \"$dat[1]\""; } if($dat[2] !~ /^-?\d+/) { push @warnings,"Invalid piece count for id $dat[0] ($dat[1]): \"$dat[2]\""; } if($dat[3] !~ /^-?\d+/) { push @warnings,"Invalid fig count for id $dat[0] ($dat[1]): \"$dat[3]\""; } if($dat[4] !~ /^\d+/) { push @warnings,"Invalid quantity for id $dat[0] ($dat[1]): \"$dat[4]\""; } if($dat[5] !~ /\w/) { push @warnings,"Strange theme for id $dat[0] ($dat[1]): \"$dat[5]\""; } if($dat[6] =~ /./ && $dat[6] !~ /\w/) { push @warnings,"Strange subtheme for id $dat[0] ($dat[1]): \"$dat[6]\""; } if($dat[6] =~ /,/ && $dat[6] !~ /^([A-Za-z0-9\'\:\ \-.]+ \(\d+\),? ?)*$/) { push @warnings,"Illegal subtheme for id $dat[0] ($dat[1]): \"$dat[6]\""; } print "\n"; if($dat[0] =~ /^\d+$/) { print "\n"; } else { print "\n"; } shift @dat; for($i=0; $i<=5; $i++) { print " 0) { print " bgcolor=#FFC0C0"; } if($dat[$i] =~ /^\s*$/) { print "> \n"; } else { print ">$dat[$i]\n"; } if($i == 1) { print ""; } } print "\n"; } else { push @warnings,"Extra line: $_"; } } } close SETF; } print "
Set NumberDescriptionPiecesTot PiecesMinifigsQuantitySet ThemeSubtheme (minifig count)
$dat[0]\n"; #print " (BrickSet)"; print "$dat[0]".($dat[$i]*$dat[3])."
\n"; #print "\n"; foreach my $warn (@warnings) { print "$warn
\n"; } foot();