' Formats an amount of CP neatly as xx GP yy SP zz CP.
' Example: 1234 would end up as "12 GP 3 SP 4 CP",
'          while 1001 would end up as "10 GP 1 CP"
Function FormatCoins(cpValue As Integer) As String
    Dim output As String
    Dim cp, sp, gp As Integer
    
    output = ""
    
    cp = cpValue Mod 10
    sp = (cpValue Mod 100) \ 10
    gp = cpValue \ 100
    
    If cp > 0 Then
        output = cp & " CP " & output
    End If
    
    If sp > 0 Then
        output = sp & " SP " & output
    End If
    
    If gp > 0 Or output = "" Then
        output = gp & " GP " & output
    End If
    
    ' We will have leftover spaces, so it's easier to trim them here than
    ' to take care of them earlier.
    FormatCoins = Trim(output)
End Function

Sebbe fucked around with this message at 01:16 on Apr 30, 2010

Jose Cuervo fucked around with this message at 05:59 on Apr 27, 2010

shrughes fucked around with this message at 09:20 on Apr 27, 2010

Long Wang fucked around with this message at 18:43 on Apr 28, 2010

Chumpington fucked around with this message at 09:59 on Apr 29, 2010

c=`echo "$a" | sed "s#$b##g"`

ToxicFrog fucked around with this message at 18:23 on Apr 29, 2010

#!/usr/bin/perl

use strict;
use warnings;

use CGI::Simple qw( );
use Errno qw( EEXIST );
use Fcntl qw( O_CREAT O_EXCL O_WRONLY );

my $q = CGI::Simple->new( );

my %remove = ( );

foreach my $name ( $q->param( "name" ) ) {
  $remove{$name} = 1;
};

while ( not sysopen( NEW, "/path/to/data.csv.tmp", O_CREAT | O_EXCL | O_WRONLY, 0600 ) ) {
  if ( not $!{EEXIST} ) {
    die "Unable to create data.csv.tmp: $!";
  };
  warn "Sleeping to acquire exclusive control of temporary file.\n";
  sleep( 1 );
};

if ( not open( OLD, "<", "/path/to/data.csv" ) ) {
  close( NEW );
  unlink( "/path/to/data.csv.tmp" );
  die "Unable to open data.csv: $!";
};

while ( defined ( my $line = <OLD> ) ) {
  my ( $name ) = $line =~ m/^([^#]+)#/;
  if ( defined $name and not exists $remove{$name} ) {
    print NEW $line;
  };
};

close( OLD );
close( NEW );

if ( not rename( "/path/to/data.csv.tmp", "/path/to/data.csv" ) ) {
  unlink( "/path/to/data.csv.tmp" );
  die "Unable to move data.csv.tmp on top of data.csv: $!";
};

print <<END;
Status: 303 See Other
Location: /updatesuccessful.html
Content-type: text/plain

Your change has been committed.
END

ShoulderDaemon fucked around with this message at 22:03 on Apr 29, 2010