original art for dog breeds, cats, bear, wolf, eagle, elk, caribou, moose

Alpen Designs

Original Art: Dogs, Cats, Flowers, Birds, 
Wild Animals and More!

#!/usr/bin/perl require 'ebay.pl'; $localfile = "feedbackalert.txt"; %roles = ('S', 'seller', 'B', 'buyer'); my $rsp = call_api({ Verb => 'GetFeedback', [1] DetailLevel => 1, UserId => $user_id, SiteId => $site_id, StartingPage => $page_number, ItemsPerPage => 1 }); $totalcomments = $rsp->{Feedback}{FeedbackDetailItemTotal}; $oldtotal = 0; if (-e "$localdir/$localfile") { open (INFILE,"$localdir/$localfile"); $oldtotal = ; [2] close (INFILE); } $newcomments = $totalcomments - $oldtotal; [3] if ($newcomments == 0) { exit; } if ($newcomments > 200) { $num_pages = int($newcomments / 200) + 1; $page_size = 200; } else { $num_pages = 1; $page_size = $newcomments; } PAGE: for (my $page_number = 1; $page_number <= $num_pages; $page_number++) { my $rsp = call_api({ Verb => 'GetFeedback', [4] DetailLevel => 1, UserId => $user_id, SiteId => $site_id, StartingPage => $page_number, ItemsPerPage => $page_size }); if ($rsp->{Errors}) { print_error($rsp); last PAGE; } FEEDBACK: foreach (@{$rsp->{Feedback}{FeedbackDetail}{FeedbackDetailItem}}) { my %i = %$_; ($text, $type, $from, $item, $id, $role) = @i{qw/CommentText CommentType CommentingUser ItemNumber TransactionId FeedbackRole/}; if (($type eq "Complaint") || ($type eq "Neutral")) { [5] open (INFILE,"$localdir/$localfile"); while ( $line = ) { if ($line eq "$id\n") { next FEEDBACK; } } close (INFILE); open(MAIL,"|/usr/sbin/sendmail -t"); print MAIL "To: $selleremail\n"; print MAIL "From: $selleremail\n"; print MAIL "Subject: Negative Feedback Alert\n\n"; print MAIL "A ".$roles{"$role"}.", $from, has left this feedback:\n"; print MAIL "$type: '$text'\n"; print MAIL "regarding this transaction:\n"; print MAIL "$itemurl$item\n"; close(MAIL); [6] } } } open (OUTFILE,">$localdir/$localfile"); print OUTFILE $totalcomments; [7] close (OUTFILE);
UA-6669505-3