#!/usr/bin/perl # # # Description: LiveSPC.com dataset file uploader # # $Id: update.pl,v 1.1 2009/11/22 20:52:29 michaelholder Exp $ # # Copyright (C) 2007-2009 TRD Associates, LLC # # - All rights reserved. # # use LiveSPC; my $dataset = shift; my $passcode = shift; my $filename = shift; open TFILE, "<$filename" or die "cannot open $filename"; my $text; while () { $text .= $_; } close TFILE; my $success = LiveSPC::updateData($dataset, $passcode, 'REPLACE', $text); if ($success) { print "<<\n$success\n>>\n"; print "data submitted successfully\n"; } else { print "data NOT submitted successfully\n"; }